From 6efbc7dfe3173497211a54ad737ca9bbd495e77d Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 10 Apr 2010 10:54:06 +0000 Subject: Rename startGhc into withGhc --- src/Main.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3