X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FMakefile;h=f330340b33728653b1c4d707f3920c047adf2716;hb=46b28f7bfdd535e9fe5217a1151bedfb2cc15472;hp=c832f43776836c5e8d4e5536f0126eb561844757;hpb=a171dac28baada2036577e7b0b4d7cc1c6836952;p=ghc-hetmet.git

diff --git a/compiler/Makefile b/compiler/Makefile
index c832f43..f330340 100644
--- a/compiler/Makefile
+++ b/compiler/Makefile
@@ -712,7 +712,7 @@ TOP_ABS=$(subst \\,/,$(FPTOOLS_TOP_ABS_PLATFORM))
 
 $(INPLACE_HS): Makefile $(FPTOOLS_TOP)/mk/config.mk
 	echo "import System.Cmd; import System.Environment; import System.Exit" > $@
-	echo "main = getArgs >>= \args -> rawSystem \"$(TOP_ABS)/$(GHC_COMPILER_DIR_REL)/$(GHC_PROG)\" (\"-B$(TOP_ABS)\":args) >>= exitWith" >> $@
+	echo "main = do args <- getArgs; rawSystem \"$(TOP_ABS)/$(GHC_COMPILER_DIR_REL)/$(GHC_PROG)\" (\"-B$(TOP_ABS)\":args) >>= exitWith" >> $@
 
 $(INPLACE_PROG): $(INPLACE_HS)
 	$(GHC) --make $< -o $@