aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-08-03 16:48:00 +0000
committerDavid Waern <david.waern@gmail.com>2008-08-03 16:48:00 +0000
commit97b749431138f5e0ca728d81650587e3e506ed97 (patch)
tree8f8e1e2f1bd48aac33f5ab862133319702f1edd3
parentafe8d4399d9f2831d371aa43b910762b9b9e0426 (diff)
Fix layout
-rw-r--r--src/Haddock/Interface/Create.hs18
1 files changed, 9 insertions, 9 deletions
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)