-- | Exports an instance for 'Parseable' 'Char' 
-- that assumes '$' and '#' never appear in the input string.
module GLL.Parseable.Char () where

import GLL.Types.Grammar

-- | Assumes '$' and '#' never appear in the input string.
instance Parseable Char where
    eos :: Char
eos = Char
'$'
    eps :: Char
eps = Char
'#'
    matches :: Char -> Char -> Bool
matches = forall a. Eq a => a -> a -> Bool
(==)