X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmParse.y;h=7ad1dd55a74ff41d064354451971c5e4d2417c4c;hp=0ae88e23363f6933088d1556961924c730997dc4;hb=b017f34bebf1588e5e579d7c653413e2a4c2d170;hpb=7854ec4b11e117f8514553890851d14a66690fbb

diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y
index 0ae88e2..7ad1dd5 100644
--- a/compiler/cmm/CmmParse.y
+++ b/compiler/cmm/CmmParse.y
@@ -1033,7 +1033,7 @@ parseCmmFile dflags filename = do
   buf <- hGetStringBuffer filename
   let
 	init_loc = mkSrcLoc (mkFastString filename) 1 1
-	init_state = (mkPState buf init_loc dflags) { lex_state = [0] }
+	init_state = (mkPState dflags buf init_loc) { lex_state = [0] }
 		-- reset the lex_state: the Lexer monad leaves some stuff
 		-- in there we don't want.
   case unP cmmParse init_state of