aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-09-06 18:44:12 +0000
committerDavid Waern <david.waern@gmail.com>2009-09-06 18:44:12 +0000
commit6870e6ded2380a9a3749795980631e16e0c1406d (patch)
tree2771d958a4addae2d7e1c47054bd7002cf00c602 /src/Haddock
parentb9fca77c976276957623f620616cc70132d7e41e (diff)
Style police
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/AttachInstances.hs1
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