From 97b749431138f5e0ca728d81650587e3e506ed97 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 3 Aug 2008 16:48:00 +0000 Subject: Fix layout --- src/Haddock/Interface/Create.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src') diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 69dd632f..1786d433 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -421,18 +421,18 @@ mkExportItems modMap this_mod exported_names decls declMap famMap sub_map case r of Nothing -> return [] Just found -> return [ ExportDoc found ] - + declWith :: Name -> ErrMsgM [ ExportItem Name ] declWith t - | Just (decl, maybeDoc) <- findDecl t + | Just (decl, maybeDoc) <- findDecl t = return [ ExportDecl (restrictTo subs (extractDecl t mdl decl)) maybeDoc [] ] - | otherwise - = return [] - where - mdl = nameModule t - subs = filter (`elem` exported_names) all_subs - all_subs | mdl == this_mod = Map.findWithDefault [] t sub_map - | otherwise = allSubsOfName modMap t + | otherwise = return [] + where + mdl = nameModule t + subs = filter (`elem` exported_names) all_subs + all_subs + | mdl == this_mod = Map.findWithDefault [] t sub_map + | otherwise = allSubsOfName modMap t fullContentsOf m | m == this_mod = return (fullContentsOfThisModule this_mod decls) -- cgit v1.2.3