@@ -84,7 +84,7 @@ toUrlPieces = fmap toUrlPiece
8484-- >>> parseUrlPieces ["true", "false"] :: Either Text [Bool]
8585-- Right [True,False]
8686-- >>> parseUrlPieces ["123", "hello", "world"] :: Either Text [Int]
87−-- Left "input does not start with a digit"
87+-- Left "could not parse: `hello' (input does not start with a digit)"
8888parseUrlPieces :: (Traversable t, FromHttpApiData a) => t Text -> Either Text (t a)
8989parseUrlPieces = traverse parseUrlPiece
9090
@@ -304,7 +304,7 @@ readTextData = parseMaybeTextData (readMaybe . T.unpack)
304304runReader :: Reader a -> Text -> Either Text a
305305runReader reader input =
306306 case reader input of
307− Left err -> Left (T.pack err)
307+ Left err -> Left ("could not parse: `" <> input <> "' (" <> T.pack err <> ")")
308308 Right (x, rest)
309309 | T.null rest -> Right x
310310 | otherwise -> defaultParseError input