X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fgenprimopcode%2FParserM.hs;h=a2b39d7a21e912f70c280975e53a0eeb2cb56221;hp=d70947bb8e4cf82d98b6fc7dd97399438807b7cb;hb=b2524b3960999fffdb3767900f58825903f6560f;hpb=03ffa2bfa6c31dc6bcdcacecc2bdb3bbabd800a9

diff --git a/utils/genprimopcode/ParserM.hs b/utils/genprimopcode/ParserM.hs
index d70947b..a2b39d7 100644
--- a/utils/genprimopcode/ParserM.hs
+++ b/utils/genprimopcode/ParserM.hs
@@ -18,8 +18,6 @@ module ParserM (
     happyError
  ) where
 
-import Syntax
-
 -- Parser Monad
 newtype ParserM a = ParserM (AlexInput -> St -> Either String (AlexInput, St, a))
 
@@ -83,6 +81,7 @@ data Token = TEOF
            | TUpperName String
            | TString String
            | TNoBraces String
+           | TInteger Int
     deriving Show
 
 -- Actions