@@ -214,10 +214,6 @@ parseBoundedTextData = parseMaybeTextData (flip lookup values . T.toLower)
215 values = map (showTextData &&& id) [minBound..maxBound :: a]
215 values = map (showTextData &&& id) [minBound..maxBound :: a]
217−-- | Parse URL piece using @'Read'@ instance.
218−readMaybeTextData :: Read a => Text -> Maybe a
219−readMaybeTextData = readMaybe . T.unpack
221-- | Parse URL piece using @'Read'@ instance.
217-- | Parse URL piece using @'Read'@ instance.
223-- Use for types which do not involve letters:
219-- Use for types which do not involve letters:
@@ -233,7 +229,7 @@ readMaybeTextData = readMaybe . T.unpack
234-- See @'parseBoundedTextData'@.
230-- See @'parseBoundedTextData'@.
235readTextData :: Read a => Text -> Either Text a
231readTextData :: Read a => Text -> Either Text a
236−readTextData = parseMaybeTextData readMaybeTextData
232+readTextData = parseMaybeTextData (readMaybe . T.unpack)
238-- | Run @'Reader'@ as HTTP API data parser.
234-- | Run @'Reader'@ as HTTP API data parser.
239runReader :: Reader a -> Text -> Either Text a
235runReader :: Reader a -> Text -> Either Text a