@@ -214,10 +214,6 @@ parseBoundedTextData = parseMaybeTextData (flip lookup values . T.toLower)
214214 where
215215 values = map (showTextData &&& id) [minBound..maxBound :: a]
216216
217−-- | Parse URL piece using @'Read'@ instance.
218−readMaybeTextData :: Read a => Text -> Maybe a
219−readMaybeTextData = readMaybe . T.unpack
220−
221217-- | Parse URL piece using @'Read'@ instance.
222218--
223219-- Use for types which do not involve letters:
@@ -233,7 +229,7 @@ readMaybeTextData = readMaybe . T.unpack
233229--
234230-- See @'parseBoundedTextData'@.
235231readTextData :: Read a => Text -> Either Text a
236−readTextData = parseMaybeTextData readMaybeTextData
232+readTextData = parseMaybeTextData (readMaybe . T.unpack)
237233
238234-- | Run @'Reader'@ as HTTP API data parser.
239235runReader :: Reader a -> Text -> Either Text a