diff options
| -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) |