Commit b0616f49 authored by Ian Lynagh's avatar Ian Lynagh

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

parent 0a066666
......@@ -14,6 +14,7 @@ include $(GHC_COMPAT_DIR)/compat.mk
# $(GhcHcOpts) because it is linked to the compiler, and hence
# we must also build with $(GhcHcOpts) here:
SRC_HC_OPTS += $(GhcHcOpts) $(GhcStage1HcOpts)
SRC_HC_OPTS += -Wall
binary-dist:
$(INSTALL_DIR) $(BIN_DIST_DIR)/utils/runghc
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment