diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-12 03:47:14 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-12 03:47:14 +0000 |
| commit | 3f8dc6644815d3219bcb970ce6fa5cbee144c7c4 (patch) | |
| tree | bd530646127889a22aa87e2ce12af3221144fdc8 /src/Haddock/Interface.hs | |
| parent | 8b90ac9206b25e67cdf1154304e031edd1bc6552 (diff) | |
Cross-Package Documentation version 4
Diffstat (limited to 'src/Haddock/Interface.hs')
| -rw-r--r-- | src/Haddock/Interface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 3092afc6..d81a5c9f 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -183,7 +183,7 @@ processModule verbosity modsum flags modMap instIfaceMap = do moduleInfo tc_mod)) dynflags out verbosity verbose "Creating interface..." - let (interface, msg) = runWriter $ createInterface ghcMod flags modMap instIfaceMap + (interface, msg) <- runWriterGhc $ createInterface ghcMod flags modMap instIfaceMap liftIO $ mapM_ putStrLn msg interface' <- liftIO $ evaluate interface return (Just interface') @@ -201,7 +201,7 @@ processModule verbosity session modsum flags modMap instIfaceMap = do Just (CheckedModule a (Just b) (Just c) (Just d) _) -> return $ mkGhcModule (ms_mod modsum, filename, (a,b,c,d)) (ms_hspp_opts modsum) _ -> throwE ("Failed to check module: " ++ (moduleString $ ms_mod modsum)) - let (interface, msg) = runWriter $ createInterface ghcMod flags modMap instIfaceMap + (interface, msg) <- runWriterGhc $ createInterface ghcMod flags modMap instIfaceMap mapM_ putStrLn msg return (Just interface) else |