parseAttempt' ∷ Parser α → Ascii → Attempt α
{-# INLINE parseAttempt' #-}
-parseAttempt' p a = parseAttempt h p bs
- where
- h ∷ String → StringException
- h _ = StringException $ A.toString a
-
- bs ∷ ByteString
- bs = A.toByteString a
+parseAttempt' = (∘ A.toByteString) ∘ parseAttempt StringException