{-# OPTIONS #-}
module Language.JavaScript.Parser.ParserMonad
( AlexUserState(..)
, alexInitUserState
) where
import Language.JavaScript.Parser.Token
import Language.JavaScript.Parser.SrcLocation
data AlexUserState = AlexUserState
{ AlexUserState -> Token
previousToken :: !Token
, :: [Token]
, AlexUserState -> Bool
inTemplate :: Bool
}
alexInitUserState :: AlexUserState
alexInitUserState :: AlexUserState
alexInitUserState = AlexUserState
{ previousToken :: Token
previousToken = Token
initToken
, comment :: [Token]
comment = []
, inTemplate :: Bool
inTemplate = Bool
False
}
initToken :: Token
initToken :: Token
initToken = TokenPosn -> String -> [CommentAnnotation] -> Token
CommentToken TokenPosn
tokenPosnEmpty String
"" []