]> Git — Sourcephile - haskell/symantic-parser.git/blob - test/Golden/Parsers.hs
test: save
[haskell/symantic-parser.git] / test / Golden / Parsers.hs
1 {-# LANGUAGE NoMonomorphismRestriction #-}
2 {-# LANGUAGE Rank2Types #-}
3 {-# LANGUAGE TemplateHaskell #-}
4 {-# LANGUAGE UnboxedTuples #-}
5 module Golden.Parsers where
6
7 import Data.Either (Either(..))
8 import Data.Char (Char)
9 import qualified Data.Text as Text
10 import qualified Symantic.Parser as P
11
12 {-
13 g_a :: Text.Text -> Either P.ParsingError Char
14 g_a = $$(P.runParser (P.char 'a'))
15
16 p_a = $$(P.runParser @Text.Text g_a)
17 -}