rel8-internal-1.8.0.0: src/Rel8/Internal/Type/Parser.hs

module Rel8.Internal.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 parser = A.parseOnly (parser <* A.endOfInput)