From 63dccfcba3743a78a1848b9ccbba1339e2a669c5 Mon Sep 17 00:00:00 2001
From: davve <davve@dtek.chalmers.se>
Date: Fri, 5 Jan 2007 01:38:45 +0000
Subject: Fixed a bug so that --ghc-flag works correctly

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 3cf46375..763be520 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -115,7 +115,7 @@ parseGHCFlags :: DynFlags -> [String] -> IO (DynFlags, [String])
 parseGHCFlags dynflags args = case args of
   [] -> return (dynflags, args)
   ("-g":rest) -> worker rest 
-  ("--ghc-flag":rest) -> worker rest
+  (('-':'-':'g':'h':'c':'-':'f':'l':'a':'g':'=':str):rest) -> worker (str:rest)
   (x:xs) -> do 
     (flags, rest) <- parseGHCFlags dynflags xs
     return (flags, x:rest)
-- 
cgit v1.2.3