diff options
Diffstat (limited to 'src/Haddock/Interface.hs')
| -rw-r--r-- | src/Haddock/Interface.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index d0106347..ffb9ebaf 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -102,7 +102,7 @@ createInterfaces' verbosity modules flags instIfaceMap = do modgraph' <- if needsTemplateHaskell modgraph then do dflags <- getSessionDynFlags - setSessionDynFlags dflags { hscTarget = HscC } + _ <- setSessionDynFlags dflags { hscTarget = HscC } -- we need to set HscC on all the ModSummaries as well let addHscC m = m { ms_hspp_opts = (ms_hspp_opts m) { hscTarget = HscC } } return (map addHscC modgraph) @@ -186,8 +186,8 @@ processModule verbosity modsum flags modMap instIfaceMap = do out verbosity verbose "Creating interface..." let (interface, msg) = runWriter $ createInterface ghcMod flags modMap instIfaceMap liftIO $ mapM_ putStrLn msg - liftIO $ evaluate interface - return (Just interface) + interface' <- liftIO $ evaluate interface + return (Just interface') else return Nothing #else |