diff options
| author | davve <davve@dtek.chalmers.se> | 2007-01-05 01:38:45 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2007-01-05 01:38:45 +0000 |
| commit | 63dccfcba3743a78a1848b9ccbba1339e2a669c5 (patch) | |
| tree | 203c7c8f5a656d724ff142cccb22f1d46f596ac0 /src/Main.hs | |
| parent | 480f09d1ce43853eb3849edd7503ecee60fe036e (diff) | |
Fixed a bug so that --ghc-flag works correctly
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |