[HsParser, Lexer: ignore optimizer phase information for INLINE pragmas as available in GHC
jhc@henning-thielemann.de**20091114214829
 Ignore-this: 2a7ac0d6484724bd19be7148e377163a
 ToDo: emit warning that phase information is ignored
] hunk ./src/FrontEnd/HsParser.y 66
+      PRAGMAINLINE { PragmaInline $$ }
hunk ./src/FrontEnd/HsParser.y 368
+      | pragmainline                  { $1 }
hunk ./src/FrontEnd/HsParser.y 380
+pragmainline  :: { HsDecl }
+      : PRAGMAINLINE srcloc optphasesn vars PRAGMAEND  { HsPragmaProps $2 $1 $4 }
+
+optphasesn :: { (Bool, Maybe Int) }
+      : '~' optphases                 { (True, $2) }
+      | optphases                     { (False, $1) }
+
+optphases :: { Maybe Int }
+      : '[' INT ']'                   { (Just (readInteger $2)) }
+      |                               { Nothing }
+
hunk ./src/FrontEnd/Lexer.hs 48
+        | PragmaInline String          -- also for NOINLINE
hunk ./src/FrontEnd/Lexer.hs 659
-    ["INLINE"],
hunk ./src/FrontEnd/Lexer.hs 661
-    ["NOINLINE","NOTINLINE"],
hunk ./src/FrontEnd/Lexer.hs 667
+    (["INLINE"],PragmaInline "INLINE"),
+    (["NOINLINE","NOTINLINE"],PragmaInline "NOINLINE"),