aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-rw-r--r--src/Haddock/Interface/Create.hs13
1 files changed, 6 insertions, 7 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index d919ab4b..65028a9f 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -509,15 +509,14 @@ mkExportItems modMap this_mod gre exported_names decls declMap
let hsdecl = tyThingToHsSynSig tyThing
return [ mkExportDecl t
( hsdecl
- , (fmap (fmapHsDoc getName) $
- Map.lookup t (instDocMap iface), Map.empty{-todo-})
+ , fromMaybe noDocForDecl $
+ Map.lookup t (instDocMap iface)
, map (\subt ->
- ( subt
- , (fmap (fmapHsDoc getName) $
- Map.lookup subt (instDocMap iface), Map.empty{-todo-})
+ ( subt ,
+ fromMaybe noDocForDecl $
+ Map.lookup subt (instDocMap iface)
)
- )
- subs
+ ) subs
)]
mkExportDecl :: Name -> DeclInfo -> ExportItem Name