Skip to content
Snippets Groups Projects
Commit c1cd2665 authored by David Waern's avatar David Waern
Browse files

Wibble

parent 5f804c06
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment