From 6870e6ded2380a9a3749795980631e16e0c1406d Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 6 Sep 2009 18:44:12 +0000 Subject: Style police --- src/Haddock/Interface/AttachInstances.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Haddock') 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 -- cgit v1.2.3