diff options
| author | David Terei <davidterei@gmail.com> | 2011-08-18 14:27:53 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-10-12 14:06:58 -0700 |
| commit | 0c16f3b04aadd0cc22fedbf123bae6369d1c445e (patch) | |
| tree | 2c3b8045789334e9ac12b55a9f5de1d1c8dd8f7d /src/Haddock/Interface/Rn.hs | |
| parent | 2eb873b5191eee0ffb5094068ab8f0d580453299 (diff) | |
Add safe haskell indication to haddock output
Diffstat (limited to 'src/Haddock/Interface/Rn.hs')
| -rw-r--r-- | src/Haddock/Interface/Rn.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Rn.hs b/src/Haddock/Interface/Rn.hs index 6f7af908..d63524b6 100644 --- a/src/Haddock/Interface/Rn.hs +++ b/src/Haddock/Interface/Rn.hs @@ -9,8 +9,9 @@ import Name ( Name ) import Outputable ( ppr, showSDoc ) rnHaddockModInfo :: GlobalRdrEnv -> HaddockModInfo RdrName -> HaddockModInfo Name -rnHaddockModInfo gre (HaddockModInfo desc port stab maint) = - HaddockModInfo (fmap (rnDoc gre) desc) port stab maint +rnHaddockModInfo gre hmod = + let desc = hmi_description hmod + in hmod { hmi_description = fmap (rnDoc gre) desc } ids2string :: [RdrName] -> String ids2string [] = [] |