From 1a10c09d6150dbc9e8a1718b710252cb7b38b776 Mon Sep 17 00:00:00 2001
From: Cypher <cypher@server.ky>
Date: Tue, 3 May 2022 15:05:40 -0500
Subject: use stack lts-18.8

Update text handling to keep uptodate with changes with string conversion,
using 'encodeUtf' and 'decodeUtf' where necessary.

One update uses an odd encoding to and from JSON, which must be looked at
later.
---
 src/Ssb/Peer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Ssb/Peer.hs')

diff --git a/src/Ssb/Peer.hs b/src/Ssb/Peer.hs
index 75078ff..41a49cb 100644
--- a/src/Ssb/Peer.hs
+++ b/src/Ssb/Peer.hs
@@ -45,7 +45,7 @@ parseMultiAddress txt = do
       { protocol = protocol
       , host = address
       , port = port
-      , key  = PublicKey $ Base64.decodeLenient $ toS key
+      , key  = PublicKey $ Base64.decodeLenient $ encodeUtf8 key
       }
   where
     split c arg = (identity *** Text.drop 1) $ Text.breakOn c arg
-- 
cgit v1.2.3