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 -> Bool
isSpace = Char -> Bool
Char.isSpace
newline :: Char
newline = Char
'\n'
parenLeft :: Char
parenLeft = Char
'('
parenRight :: Char
parenRight = Char
')'
underscore :: Char
underscore = Char
'_'
hash :: Char
hash = Char
'#'
question :: Char
question = Char
'?'
exclamation :: Char
exclamation = Char
'!'
and :: Char
and = Char
'&'
vertical :: Char
vertical = Char
'|'
dollar :: Char
dollar = Char
'$'
bracketLeft :: Char
bracketLeft = Char
'['
bracketRight :: Char
bracketRight = Char
']'
comma :: Char
comma = Char
','