# $(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
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