@@ -12,6 +12,7 @@ module Web.HttpApiData (
1212 -- * Classes
1313 ToHttpApiData (..),
1414 FromHttpApiData (..),
15+
1516 -- * Utility functions
1617 parseMaybeHttpApiData,
1718 showUrlPiece,
@@ -28,8 +29,8 @@ import Data.Word
2829import Data.Text (Text)
2930import Data.Text.Encoding (encodeUtf8, decodeUtf8)
3031import Data.Text.Read (signed, decimal, rational, Reader)
31−import qualified Data.Text as Text
32−import qualified Data.Text.Lazy as TL
32+import qualified Data.Text as T
33+import qualified Data.Text.Lazy as L
3334
3435import Data.Time (Day)
3536
@@ -79,11 +80,11 @@ parseMaybeHttpApiData parse input =
7980
8081-- | Convert to URL piece using @'Show'@ instance.
8182showUrlPiece :: Show a => a -> Text
82−showUrlPiece = Text.pack . show
83+showUrlPiece = T.pack . show
8384
8485-- | Parse URL piece using @'Read'@ instance.
8586readMaybeUrlPiece :: Read a => Text -> Maybe a
86−readMaybeUrlPiece = readMaybe . Text.unpack
87+readMaybeUrlPiece = readMaybe . T.unpack
8788
8889-- | Parse URL piece using @'Read'@ instance.
8990readEitherUrlPiece :: Read a => Text -> Either Text a
@@ -93,10 +94,10 @@ readEitherUrlPiece = parseMaybeHttpApiData readMaybeUrlPiece
9394runReader :: Reader a -> Text -> Either Text a
9495runReader reader input =
9596 case reader input of
96− Left err -> Left (Text.pack err)
97+ Left err -> Left (T.pack err)
9798 Right (x, rest)
98− | Text.null rest -> Right x
99− | otherwise -> Left ("could not convert: `" <> input <> "'")
99+ | T.null rest -> Right x
100+ | otherwise -> Left ("could not convert: `" <> input <> "'")
100101
101102instance ToHttpApiData Bool where toUrlPiece = showUrlPiece
102103instance ToHttpApiData Double where toUrlPiece = showUrlPiece
@@ -112,9 +113,9 @@ instance ToHttpApiData Word8 where toUrlPiece = showUrlPiece
112113instance ToHttpApiData Word16 where toUrlPiece = showUrlPiece
113114instance ToHttpApiData Word32 where toUrlPiece = showUrlPiece
114115instance ToHttpApiData Word64 where toUrlPiece = showUrlPiece
115−instance ToHttpApiData String where toUrlPiece = Text.pack
116+instance ToHttpApiData String where toUrlPiece = T.pack
116117instance ToHttpApiData Text where toUrlPiece = id
117−instance ToHttpApiData TL.Text where toUrlPiece = TL.toStrict
118+instance ToHttpApiData L.Text where toUrlPiece = L.toStrict
118119instance ToHttpApiData Day where toUrlPiece = showUrlPiece
119120
120121instance FromHttpApiData Bool where parseUrlPiece = readEitherUrlPiece
@@ -131,9 +132,9 @@ instance FromHttpApiData Word8 where parseUrlPiece = runReader decimal
131132instance FromHttpApiData Word16 where parseUrlPiece = runReader decimal
132133instance FromHttpApiData Word32 where parseUrlPiece = runReader decimal
133134instance FromHttpApiData Word64 where parseUrlPiece = runReader decimal
134−instance FromHttpApiData String where parseUrlPiece = Right . Text.unpack
135+instance FromHttpApiData String where parseUrlPiece = Right . T.unpack
135136instance FromHttpApiData Text where parseUrlPiece = Right
136−instance FromHttpApiData TL.Text where parseUrlPiece = Right . TL.fromStrict
137+instance FromHttpApiData L.Text where parseUrlPiece = Right . L.fromStrict
137138instance FromHttpApiData Day where parseUrlPiece = readEitherUrlPiece
138139
139140-- $examples