diff options
| author | David Waern <david.waern@gmail.com> | 2009-09-06 18:44:12 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-09-06 18:44:12 +0000 |
| commit | 6870e6ded2380a9a3749795980631e16e0c1406d (patch) | |
| tree | 2771d958a4addae2d7e1c47054bd7002cf00c602 | |
| parent | b9fca77c976276957623f620616cc70132d7e41e (diff) | |
Style police
| -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 |