X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=4552fe24b779be49d949f2c6a0489c470d75065b;hp=d7971b4c52f844ab0cf781eddb35ad43e386aa62;hb=15a63009a30ce0d1614b36803185f548db838805;hpb=36f7a29252e805a669ffb5437b6df6a90c1bc8dd

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index d7971b4..4552fe2 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -8,6 +8,13 @@
 -- ---------------------------------------------------------------------------
 
 {
+{-# OPTIONS -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
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 {-# OPTIONS_GHC -O0 -fno-ignore-interface-pragmas #-}
 {-
 Careful optimisation of the parser: we don't want to throw everything
@@ -16,13 +23,6 @@ to inline certain key external functions, so we instruct GHC not to
 throw away inlinings as it would normally do in -O0 mode.
 -}
 
-{-# OPTIONS -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
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
 module Parser ( parseModule, parseStmt, parseIdentifier, parseType,
 		parseHeader ) where