{-# LANGUAGE FlexibleInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Text.Parsec.Text
( Parser, GenParser
) where
import qualified Data.Text as Text
import Text.Parsec.Error
import Text.Parsec.Prim
instance (Monad m) => Stream Text.Text m Char where
uncons = return . Text.uncons
{-# INLINE uncons #-}
type Parser = Parsec Text.Text ()
type GenParser st = Parsec Text.Text st