From 51d7a92b232199ead61a484394283f7183612e18 Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 16 Apr 2007 08:27:32 +0000
Subject: [PATCH] fix building with pre-6.4

---
 compiler/main/SysTools.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4