module Language.Egison.Parser.Pattern.Token
( IsToken(..)
)
where
import qualified Data.Char as Char
( isSpace )
class IsToken c where
isSpace :: c -> Bool
newline :: c
parenLeft :: c
parenRight :: c
underscore :: c
hash :: c
question :: c
exclamation :: c
and :: c
vertical :: c
dollar :: c
bracketLeft :: c
bracketRight :: c
comma :: c
instance IsToken Char where
isSpace = Char.isSpace
newline = '\n'
parenLeft = '('
parenRight = ')'
underscore = '_'
hash = '#'
question = '?'
exclamation = '!'
and = '&'
vertical = '|'
dollar = '$'
bracketLeft = '['
bracketRight = ']'
comma = ','