Skip to content
Browse files

Indentation

  • Loading branch information...
1 parent 28a2b06 commit f5782ed0e979119a5ee3b48643b2161f06259774 @waern waern committed May 22, 2011
Showing with 14 additions and 14 deletions.
  1. +14 −14 src/Haddock/Interface/Create.hs
View
28 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

0 comments on commit f5782ed

Please sign in to comment.
Something went wrong with that request. Please try again.