@@ -19,9 +19,10 @@ import Data.Int
1919import Data.Word
2020
2121import Data.Text (Text)
22−import Data.Text.Read (signed, decimal, rational, Reader)
2322import Data.Text.Encoding (encodeUtf8, decodeUtf8)
23+import Data.Text.Read (signed, decimal, rational, Reader)
2424import qualified Data.Text as Text
25+import qualified Data.Text.Lazy as TL
2526
2627import Text.Read (readMaybe)
2728
@@ -92,6 +93,7 @@ instance ToHttpApiData Word32 where toUrlPiece = showUrlPiece
9293instance ToHttpApiData Word64 where toUrlPiece = showUrlPiece
9394instance ToHttpApiData [Char] where toUrlPiece = Text.pack
9495instance ToHttpApiData Text where toUrlPiece = id
96+instance ToHttpApiData TL.Text where toUrlPiece = TL.toStrict
9597
9698instance FromHttpApiData Bool where parseUrlPiece = readEitherUrlPiece
9799instance FromHttpApiData Double where parseUrlPiece = runReader rational
@@ -109,4 +111,5 @@ instance FromHttpApiData Word32 where parseUrlPiece = runReader decimal
109111instance FromHttpApiData Word64 where parseUrlPiece = runReader decimal
110112instance FromHttpApiData [Char] where parseUrlPiece = Right . Text.unpack
111113instance FromHttpApiData Text where parseUrlPiece = Right
114+instance FromHttpApiData TL.Text where parseUrlPiece = Right . TL.fromStrict
112115