X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FEnvironment.hs;h=b85bc42e5e0c1a104780b60e19b7ac1b711e6a43;hb=85ed71ab833a40f5acfeb4610a0aa3c3c3e1a35b;hp=4f0ab96779e1b707354dd3fb06c3b2d53bff5c87;hpb=d2063b5b0be014545b21819172c87756efcb0b0c;p=ghc-base.git

diff --git a/System/Environment.hs b/System/Environment.hs
index 4f0ab96..b85bc42 100644
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -34,7 +34,7 @@ import Foreign
 import Foreign.C
 import Control.Exception.Base   ( bracket )
 import Control.Monad
-import GHC.IO
+-- import GHC.IO
 import GHC.IO.Exception
 #endif
 
@@ -155,7 +155,8 @@ withArgv new_args act = do
   pName <- System.Environment.getProgName
   existing_args <- System.Environment.getArgs
   bracket (setArgs new_args)
-          (\argv -> do setArgs (pName:existing_args); freeArgv argv)
+          (\argv -> do _ <- setArgs (pName:existing_args)
+                       freeArgv argv)
           (const act)
 
 freeArgv :: Ptr CString -> IO ()