aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface.hs
diff options
context:
space:
mode:
authorDavid Waern <unknown>2007-08-29 23:55:24 +0000
committerDavid Waern <unknown>2007-08-29 23:55:24 +0000
commit93a0c3410b3f3db307691167e3c4b8781d17e862 (patch)
treedc90127e4dbb2c7184eaed1869cb4034b52309e9 /src/Haddock/Interface.hs
parentea3ec06c3716c9f47cbe2a17f77dbd63a18cff4a (diff)
Wibble
Diffstat (limited to 'src/Haddock/Interface.hs')
-rw-r--r--src/Haddock/Interface.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs
index 4d931f21..b8ee4fe4 100644
--- a/src/Haddock/Interface.hs
+++ b/src/Haddock/Interface.hs
@@ -33,8 +33,7 @@ import Name
-- | Turn a topologically sorted list of GhcModules into interfaces. Also
-- return the home link environment created in the process, and any error
-- messages.
-createInterfaces :: [GhcModule] -> LinkEnv -> [Flag] ->
- ([Interface], LinkEnv, [ErrMsg])
+createInterfaces :: [GhcModule] -> LinkEnv -> [Flag] -> ([Interface], LinkEnv, [ErrMsg])
createInterfaces modules extLinks flags = (interfaces, homeLinks, messages)
where
((interfaces, homeLinks), messages) = runWriter $ do
@@ -57,8 +56,7 @@ createInterfaces' modules flags = do
return $ Map.insert (hmod_mod interface) interface map
-renameInterfaces :: [Interface] -> LinkEnv ->
- ErrMsgM ([Interface], LinkEnv)
+renameInterfaces :: [Interface] -> LinkEnv -> ErrMsgM ([Interface], LinkEnv)
renameInterfaces interfaces externalLinks = do
let homeLinks = buildHomeLinks interfaces
let links = homeLinks `Map.union` externalLinks