diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 18:52:16 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 18:52:16 +0100 |
| commit | 1b774aef07ad33b667fbf33e01c2dc9ed0e039f4 (patch) | |
| tree | 75a8ce5ab45784b7d4e7b71ccae33da2cdbb5c4f /src/Haddock/Interface.hs | |
| parent | 315338287ea84b525da7d8fa8252cc9ec99597bb (diff) | |
Follow changes in GHC
Diffstat (limited to 'src/Haddock/Interface.hs')
| -rw-r--r-- | src/Haddock/Interface.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 09f01883..dcd794af 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -49,6 +49,7 @@ import System.FilePath import Text.Printf import Digraph +import DynFlags hiding (verbosity, flags) import Exception import GHC hiding (verbosity, flags) import HscTypes @@ -83,8 +84,9 @@ processModules verbosity modules flags extIfaces = do out verbosity verbose "Renaming interfaces..." let warnings = Flag_NoWarnings `notElem` flags + dflags <- getDynFlags let (interfaces'', msgs) = - runWriter $ mapM (renameInterface links warnings) interfaces' + runWriter $ mapM (renameInterface dflags links warnings) interfaces' liftIO $ mapM_ putStrLn msgs return (interfaces'', homeLinks) |