diff options
| author | David Waern <david.waern@gmail.com> | 2010-04-10 10:54:06 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-04-10 10:54:06 +0000 |
| commit | 6efbc7dfe3173497211a54ad737ca9bbd495e77d (patch) | |
| tree | 4b946babb9799c61a8a727d639bf22a3dd2f5930 /src/Main.hs | |
| parent | a2a41c8b812cbc55d4541cec3285ee32f863a227 (diff) | |
Rename startGhc into withGhc
Diffstat (limited to 'src/Main.hs')
| -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 |