Make runghc warning-free and turn -Wall on in the Makefile

[ghc-hetmet.git] / utils / runghc / runghc.hs

diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs
index 9346390..a55fdca 100644 (file)
--- a/utils/runghc/runghc.hs
+++ b/utils/runghc/runghc.hs
@@ -40,10 +40,8 @@ main :: IO ()
 main = do
     args <- getArgs
     case args of
-        ("-f" : ghc : args) -> do
-            doIt ghc args
-        ('-' : 'f' : ghc) : args -> do
-            doIt (dropWhile isSpace ghc) args
+        "-f" : ghc : args'        -> doIt ghc args'
+        ('-' : 'f' : ghc) : args' -> doIt (dropWhile isSpace ghc) args'
         _ -> do
             mb_ghc <- findExecutable "ghc"
             case mb_ghc of