X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FSysTools.lhs;h=c9993a2f5a20d8c3d7b8bea707772c5763c32432;hb=7fa861d23122d4d6a3053c09b5c636bad0478ad3;hp=a4224e98aa19221ce72ee0ba67dd0145b9dc1bbe;hpb=1889796e4c1048f2c18f7875c5d0cdbf53468bc6;p=ghc-hetmet.git

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index a4224e9..c9993a2 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -474,7 +474,7 @@ xs `isContainedIn` ys = any (xs `isPrefixOf`) (tails ys)
 getGccEnv :: [Option] -> IO (Maybe [(String,String)])
 getGccEnv opts = 
 #if __GLASGOW_HASKELL__ < 603
-  return (opts,Nothing)
+  return Nothing
 #else
   if null b_dirs
      then return Nothing