module Rel8.Type.Parser
  ( parse
  )
where

-- attoparsec
import qualified Data.Attoparsec.ByteString as A

-- base
import Prelude

-- bytestring
import Data.ByteString (ByteString)


parse :: A.Parser a -> ByteString -> Either String a
parse :: forall a. Parser a -> ByteString -> Either String a
parse Parser a
parser = Parser a -> ByteString -> Either String a
forall a. Parser a -> ByteString -> Either String a
A.parseOnly (Parser a
parser Parser a -> Parser ByteString () -> Parser a
forall a b.
Parser ByteString a -> Parser ByteString b -> Parser ByteString a
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f a
<* Parser ByteString ()
forall t. Chunk t => Parser t ()
A.endOfInput)