fix building with pre-6.4
authorSimon Marlow <simonmar@microsoft.com>
Mon, 16 Apr 2007 08:27:32 +0000 (08:27 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Mon, 16 Apr 2007 08:27:32 +0000 (08:27 +0000)
compiler/main/SysTools.lhs

index a4224e9..c9993a2 100644 (file)
@@ -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