From 99826c0fd307aa2690ef00be94e4f392fb73e155 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sun, 5 Jul 2009 17:17:59 +0000
Subject: Fix warnings

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

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

diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs
index d0106347..ffb9ebaf 100644
--- a/src/Haddock/Interface.hs
+++ b/src/Haddock/Interface.hs
@@ -102,7 +102,7 @@ createInterfaces' verbosity modules flags instIfaceMap = do
   modgraph' <- if needsTemplateHaskell modgraph
        then do
          dflags <- getSessionDynFlags
-         setSessionDynFlags dflags { hscTarget = HscC } 
+         _ <- setSessionDynFlags dflags { hscTarget = HscC } 
          -- we need to set HscC on all the ModSummaries as well
          let addHscC m = m { ms_hspp_opts = (ms_hspp_opts m) { hscTarget = HscC } }  
          return (map addHscC modgraph)
@@ -186,8 +186,8 @@ processModule verbosity modsum flags modMap instIfaceMap = do
       out verbosity verbose "Creating interface..."
       let (interface, msg) = runWriter $ createInterface ghcMod flags modMap instIfaceMap
       liftIO $ mapM_ putStrLn msg
-      liftIO $ evaluate interface
-      return (Just interface)
+      interface' <- liftIO $ evaluate interface
+      return (Just interface')
     else
       return Nothing
 #else
-- 
cgit v1.2.3