projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use _ rather than "other" in generated code
[ghc-hetmet.git]
/
utils
/
genprimopcode
/
Lexer.x
diff --git
a/utils/genprimopcode/Lexer.x
b/utils/genprimopcode/Lexer.x
index
19b0f66
..
ac1ea95
100644
(file)
--- a/
utils/genprimopcode/Lexer.x
+++ b/
utils/genprimopcode/Lexer.x
@@
-1,10
+1,16
@@
{
{
+{-# 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 Lexer (lex_tok) where
module Lexer (lex_tok) where
-import Control.Monad.State (StateT, get)
import ParserM (ParserM (..), mkT, mkTv, Token(..), St, start_code,
import ParserM (ParserM (..), mkT, mkTv, Token(..), St, start_code,
- StartCode, Action, set_start_code,
+ set_start_code,
inc_brace_depth, dec_brace_depth,
show_pos, position, input,
AlexInput, alexGetChar, alexInputPrevChar)
inc_brace_depth, dec_brace_depth,
show_pos, position, input,
AlexInput, alexGetChar, alexInputPrevChar)