The Backpack patch.
[ghc.git] / utils / genprimopcode / Lexer.x
index d29d8a1..ad2590b 100644 (file)
@@ -1,20 +1,20 @@
 
 {
-{-# LANGUAGE BangPatterns #-} -- required for versions of Alex before 2.3.4
-{-# OPTIONS -w -Wwarn #-}
--- 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
+-- See Note [Warnings in code generated by Alex] in compiler/parser/Lexer.x
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-tabs #-}
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 module Lexer (lex_tok) where
 
-import ParserM (ParserM (..), mkT, mkTv, Token(..), St, start_code,
+import ParserM (ParserM (..), mkT, mkTv, Token(..), start_code,
                 set_start_code,
                 inc_brace_depth, dec_brace_depth,
-                show_pos, position, input,
-                AlexInput, alexGetChar, alexGetByte, alexInputPrevChar)
+                show_pos, position,
+                AlexInput, alexGetByte)
+import qualified ParserM as ParserM (input)
 }
 
 words :-
@@ -48,7 +48,6 @@ words :-
     <0>         "primop"            { mkT TPrimop }
     <0>         "pseudoop"          { mkT TPseudoop }
     <0>         "primtype"          { mkT TPrimtype }
-    <0>         "primclass"         { mkT TPrimclass }
     <0>         "with"              { mkT TWith }
     <0>         "defaults"          { mkT TDefaults }
     <0>         "True"              { mkT TTrue }
@@ -82,7 +81,7 @@ get_tok = ParserM $ \i st ->
        AlexError _ -> Left ("Lexical error at " ++ show_pos (position i))
        AlexSkip i' _ -> case get_tok of
                             ParserM f -> f i' st
-       AlexToken i' l a -> case a $ take l $ input i of
+       AlexToken i' l a -> case a $ take l $ ParserM.input i of
                                ParserM f -> f i' st
 
 lex_tok :: (Token -> ParserM a) -> ParserM a