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/Pub.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/Pub.hs')
-rw-r--r-- | src/Ssb/Pub.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |