1 {-# LANGUAGE NoMonomorphismRestriction #-}
2 {-# LANGUAGE Rank2Types #-}
3 {-# LANGUAGE TemplateHaskell #-}
4 {-# LANGUAGE UnboxedTuples #-}
5 module Golden.Parsers where
7 import Data.Either (Either(..))
8 import Data.Char (Char)
9 import qualified Data.Text as Text
10 import qualified Symantic.Parser as P
13 g_a :: Text.Text -> Either P.ParsingError Char
14 g_a = $$(P.runParser (P.char 'a'))
16 p_a = $$(P.runParser @Text.Text g_a)