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/Pub.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Ssb/Pub.hs b/src/Ssb/Pub.hs
index 9ed5410..16e9e2e 100644
--- a/src/Ssb/Pub.hs
+++ b/src/Ssb/Pub.hs
@@ -33,7 +33,7 @@ parsePub txt = do
     return PubAddress
       { 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