diff options
| author | David Terei <davidterei@gmail.com> | 2012-04-03 17:58:02 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2012-04-04 15:08:21 -0700 |
| commit | 853397a9c62f906f5c8b4dc889c97ad2823f9c07 (patch) | |
| tree | f899cff780e1d527ea1cbc542eee20129c6b00e7 /src/Haddock/Interface/Create.hs | |
| parent | 0a9b99a0c916100e7087026d29253d72f1ff9057 (diff) | |
Fix reporting of modules safe haskell mode (#5989)
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 5029dce8..608928b2 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -45,6 +45,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 @@ -68,7 +69,7 @@ createInterface tm flags modMap instIfaceMap = do | Flag_IgnoreAllExports `elem` flags = OptIgnoreExports : opts0 | otherwise = opts0 - (info, mbDoc) <- liftErrMsg $ lexParseRnHaddockModHeader dflags gre mayDocHeader + (info, mbDoc) <- liftErrMsg $ lexParseRnHaddockModHeader dflags gre safety mayDocHeader let declsWithDocs = topDecls group_ (decls, _) = unzip declsWithDocs |