X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FParserCore.y;h=be16c36f5e8f7094f561d69325aa66de1eb28a22;hb=24d49415d2833a1338dfb5fd8c5c1c84df6c282b;hp=17d1098d9b95976682557ccee2e7186588e71e0d;hpb=d95ce839533391e7118257537044f01cbb1d6694;p=ghc-hetmet.git

diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y
index 17d1098..be16c36 100644
--- a/compiler/parser/ParserCore.y
+++ b/compiler/parser/ParserCore.y
@@ -1,5 +1,5 @@
 {
-{-# OPTIONS -w #-}
+{-# OPTIONS -Wwarn -w #-}
 -- The above warning supression flag is a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
@@ -275,12 +275,11 @@ exp	:: { IfaceExpr }
 	| '%case' '(' ty ')' aexp '%of' id_bndr
 	  '{' alts1 '}'		      { IfaceCase $5 (fst $7) $3 $9 }
         | '%cast' aexp aty { IfaceCast $2 $3 }
--- No InlineMe any more
--- 	| '%note' STRING exp 	   
---	    { case $2 of
---	       --"SCC"      -> IfaceNote (IfaceSCC "scc") $3
---	       "InlineMe"   -> IfaceNote IfaceInlineMe $3
---            }
+	| '%note' STRING exp 	   
+	    { case $2 of
+	       --"SCC"      -> IfaceNote (IfaceSCC "scc") $3
+	       "InlineMe"   -> IfaceNote IfaceInlineMe $3
+            }
         | '%external' STRING aty   { IfaceFCall (ForeignCall.CCall 
                                                     (CCallSpec (StaticTarget (mkFastString $2)) 
                                                                CCallConv (PlaySafe False)))