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 -}