run :: ByteString -> Parser a -> Either Text a
run input parser =
  either (Left . fromString) Right $ parseOnly (parser <* endOfInput) input
run :: ByteString -> Parser a -> Either Text a
run input parser =
  either (Left . fromString) Right $ parseOnly (parser <* endOfInput) input
run input parser =
  either (Left . fromString) Right $ parseOnly (parser <* endOfInput) input