You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
454 B
33 lines
454 B
module Presyntax.Tokens where
|
|
|
|
import Data.Text (Text)
|
|
|
|
data TokenClass
|
|
= TokVar Text
|
|
| TokEof
|
|
|
|
| TokLambda
|
|
| TokArrow
|
|
|
|
| TokOParen
|
|
| TokOBrace
|
|
| TokCParen
|
|
| TokCBrace
|
|
|
|
| TokStar
|
|
| TokColon
|
|
| TokEqual
|
|
| TokComma
|
|
|
|
| TokPi1
|
|
| TokPi2
|
|
|
|
| TokSemi
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data Token
|
|
= Token { tokenClass :: TokenClass
|
|
, tokStartLine :: !Int
|
|
, tokStartCol :: !Int
|
|
}
|
|
deriving (Eq, Show, Ord)
|