diff options
author | Cypher <cypher@server.ky> | 2022-05-03 15:05:40 -0500 |
---|---|---|
committer | Cypher <cypher@server.ky> | 2022-05-03 15:05:40 -0500 |
commit | 1a10c09d6150dbc9e8a1718b710252cb7b38b776 (patch) | |
tree | 34139f56373ad9e93d267543166c0c3da0f434d0 /src/Ssb/Peer.hs | |
parent | 0732fbc8925efb9753b543d721ea845b9b4f338f (diff) | |
download | ssb-haskell-1a10c09d6150dbc9e8a1718b710252cb7b38b776.tar.xz |
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.
Diffstat (limited to 'src/Ssb/Peer.hs')
-rw-r--r-- | src/Ssb/Peer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |