@@ -209,8 +209,21 @@ readMaybeTextData :: Read a => Text -> Maybe a
209209readMaybeTextData = readMaybe . T.unpack
210210
211211-- | Parse URL piece using @'Read'@ instance.
212−readEitherTextData :: Read a => Text -> Either Text a
213−readEitherTextData = parseMaybeTextData readMaybeTextData
212+--
213+-- Use for types which do not involve letters:
214+--
215+-- >>> readTextData "1991-06-02" :: Either Text Day
216+-- Right 1991-06-02
217+--
218+-- This parser is case sensitive and will not match @'showTextData'@
219+-- in presense of letters:
220+--
221+-- >>> readTextData "true" :: Either Text Bool
222+-- Left "could not parse: `true'"
223+--
224+-- See @'parseBoundedCaseInsensitiveTextData'@.
225+readTextData :: Read a => Text -> Either Text a
226+readTextData = parseMaybeTextData readMaybeTextData
214227
215228-- | Run @'Reader'@ as HTTP API data parser.
216229runReader :: Reader a -> Text -> Either Text a
@@ -355,7 +368,7 @@ instance FromHttpApiData L.Text where parseUrlPiece = Right . L.fromStrict
355368-- |
356369-- >>> toGregorian <$> parseUrlPiece "2016-12-01"
357370-- Right (2016,12,1)
358−instance FromHttpApiData Day where parseUrlPiece = readEitherTextData
371+instance FromHttpApiData Day where parseUrlPiece = readTextData
359372
360373instance FromHttpApiData All where parseUrlPiece = fmap All . parseUrlPiece
361374instance FromHttpApiData Any where parseUrlPiece = fmap Any . parseUrlPiece