diff options
Diffstat (limited to 'Presence/Util.hs')
-rw-r--r-- | Presence/Util.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/Util.hs b/Presence/Util.hs index a934cad7..a6e5b35f 100644 --- a/Presence/Util.hs +++ b/Presence/Util.hs | |||
@@ -44,7 +44,7 @@ textToLazyByteString :: Text -> L.ByteString | |||
44 | textToLazyByteString s = L.fromChunks [Text.encodeUtf8 s] | 44 | textToLazyByteString s = L.fromChunks [Text.encodeUtf8 s] |
45 | 45 | ||
46 | lazyByteStringToText :: L.ByteString -> Text | 46 | lazyByteStringToText :: L.ByteString -> Text |
47 | lazyByteStringToText = (foldr1 (<>) . map Text.decodeUtf8 . L.toChunks) | 47 | lazyByteStringToText = (foldr (<>) mempty . map Text.decodeUtf8 . L.toChunks) |
48 | 48 | ||
49 | -- | for example: 2001-db8-85a3-8d3-1319-8a2e-370-7348.ipv6-literal.net | 49 | -- | for example: 2001-db8-85a3-8d3-1319-8a2e-370-7348.ipv6-literal.net |
50 | ip6literal :: Text -> Text | 50 | ip6literal :: Text -> Text |