diff options
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index de0b25ee..9b163fb8 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -46,6 +46,7 @@ attachInstances = mapM attach attach iface = do newItems <- mapM attachExport $ ifaceExportItems iface return $ iface { ifaceExportItems = newItems } + attachExport export@ExportDecl{expItemDecl = L _ (TyClD d)} = do mb_info <- getAllInfo (unLoc (tcdLName d)) return $ export { expItemInstances = case mb_info of |