diff options
| author | David Waern <david.waern@gmail.com> | 2012-05-15 01:46:35 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2012-05-15 01:46:35 +0200 |
| commit | 23009e2f7655103bbc816eceff0395e1aaeb2324 (patch) | |
| tree | b00efbcd4929e38955a65825ab324f9a74383371 /src/Haddock/Interface/Create.hs | |
| parent | 4b82bad435e629c3cd65782c8ffb9bae8a7e16b4 (diff) | |
| parent | e4eceaeeb6e99ef9349fe7e99d2ab4d152f96484 (diff) | |
Merge branch 'ghc-7.4' of http://darcs.haskell.org/haddock into ghc-7.4
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 9f183432..80b5a970 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -48,6 +48,7 @@ createInterface tm flags modMap instIfaceMap = do let ms = pm_mod_summary . tm_parsed_module $ tm mi = moduleInfo tm + safety = modInfoSafe mi mdl = ms_mod ms dflags = ms_hspp_opts ms instances = modInfoInstances mi @@ -70,7 +71,7 @@ createInterface tm flags modMap instIfaceMap = do | otherwise = opts0 (info, mbDoc) <- do - (i, d) <- liftErrMsg $ processModuleHeader dflags gre mayDocHeader + (i, d) <- liftErrMsg $ processModuleHeader dflags gre safety mayDocHeader return (i, addModuleWarning warnings d) let declsWithDocs = topDecls group_ |