From 93a0c3410b3f3db307691167e3c4b8781d17e862 Mon Sep 17 00:00:00 2001
From: David Waern <unknown>
Date: Wed, 29 Aug 2007 23:55:24 +0000
Subject: Wibble

---
 src/Haddock/Interface.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/Haddock/Interface.hs')

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
-- 
cgit v1.2.3