aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2011-05-22 22:09:11 +0000
committerDavid Waern <david.waern@gmail.com>2011-05-22 22:09:11 +0000
commitf5782ed0e979119a5ee3b48643b2161f06259774 (patch)
tree6d80f5421c549739d8ee8ae30ea9e09ea6c533bc /src
parent28a2b064b9b7509912622323c3153600a430400a (diff)
Indentation
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/Create.hs28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index ffe614f5..0123d22a 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -666,20 +666,20 @@ moduleExports :: Module -- ^ Module A
moduleExports thisMod expMod dflags gre exports decls ifaceMap instIfaceMap
| m == thisMod = liftErrMsg $ fullContentsOfThisModule dflags gre decls
| otherwise =
- case Map.lookup m ifaceMap of
- Just iface
- | OptHide `elem` ifaceOptions iface -> return (ifaceExportItems iface)
- | otherwise -> return [ ExportModule m ]
-
- Nothing -> -- we have to try to find it in the installed interfaces
- -- (external packages)
- case Map.lookup expMod (Map.mapKeys moduleName instIfaceMap) of
- Just iface -> return [ ExportModule (instMod iface) ]
- Nothing -> do
- liftErrMsg $
- tell ["Warning: " ++ pretty thisMod ++ ": Could not find " ++
- "documentation for exported module: " ++ pretty expMod]
- return []
+ case Map.lookup m ifaceMap of
+ Just iface
+ | OptHide `elem` ifaceOptions iface -> return (ifaceExportItems iface)
+ | otherwise -> return [ ExportModule m ]
+
+ Nothing -> -- we have to try to find it in the installed interfaces
+ -- (external packages)
+ case Map.lookup expMod (Map.mapKeys moduleName instIfaceMap) of
+ Just iface -> return [ ExportModule (instMod iface) ]
+ Nothing -> do
+ liftErrMsg $
+ tell ["Warning: " ++ pretty thisMod ++ ": Could not find " ++
+ "documentation for exported module: " ++ pretty expMod]
+ return []
where
m = mkModule packageId expMod
packageId = modulePackageId thisMod