{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE Rank2Types #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE UnboxedTuples #-}
module Golden.Parsers where

import Data.Either (Either(..))
import Data.Char (Char)
import qualified Data.Text as Text
import qualified Symantic.Parser as P

{-
g_a :: Text.Text -> Either P.ParsingError Char
g_a = $$(P.runParser (P.char 'a'))

p_a = $$(P.runParser @Text.Text g_a)
-}