diff options
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index 67e4b877..ad0ff42e 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -140,7 +140,7 @@ main = handleTopExceptions $ do liftIO exitFailure -- initialize GHC - startGhc libDir (ghcFlags flags) $ \_ -> handleSrcErrors $ do + withGhc libDir (ghcFlags flags) $ \_ -> handleSrcErrors $ do -- get packages supplied with --read-interface packages <- readInterfaceFiles nameCacheFromGhc (ifacePairs flags) @@ -302,9 +302,9 @@ dumpInterfaceFile ifaces homeLinks flags = ------------------------------------------------------------------------------- -- | Start a GHC session with the -haddock flag set. Also turn off --- compilation and linking. -startGhc :: String -> [String] -> (DynFlags -> Ghc a) -> IO a -startGhc libDir flags ghcActs = do +-- compilation and linking. Then run the given 'Ghc' action. +withGhc :: String -> [String] -> (DynFlags -> Ghc a) -> IO a +withGhc libDir flags ghcActs = do -- TODO: handle warnings? (restFlags, _) <- parseStaticFlags (map noLoc flags) runGhc (Just libDir) $ do |