treewide: use toLText

This commit is contained in:
Anton-Latukha 2021-08-06 18:12:23 +03:00
parent 5d22b9450a
commit c1d54c8886
No known key found for this signature in database
GPG Key ID: 3D84C07E91802E41

View File

@ -100,7 +100,7 @@ bslToText :: BSL.ByteString -> Text
bslToText = toText . TL.decodeUtf8
textToBSL :: Text -> BSL.ByteString
textToBSL = TL.encodeUtf8 . TL.fromStrict
textToBSL = TL.encodeUtf8 . toLText
putText :: Text -> Put
putText = putByteStringLen . textToBSL