Fixed a bug so that --ghc-flag works correctly

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)