* lints

* revert

* add import

* remove StrictData
This commit is contained in:
Evgeny Poberezkin
2022-10-01 11:51:52 +01:00
committed by GitHub
parent 9cd5f96fe4
commit 29332a5e9f
15 changed files with 17 additions and 23 deletions
+1 -1
View File
@@ -265,7 +265,7 @@ subscribeQueue ca srv sub = do
showServer :: SMPServer -> ByteString
showServer ProtocolServer {host, port} =
strEncode host <> (B.pack $ if null port then "" else ':' : port)
strEncode host <> B.pack (if null port then "" else ':' : port)
smpSubscribe :: SMPClient -> (SMPSub, C.APrivateSignKey) -> ExceptT ProtocolClientError IO ()
smpSubscribe smp ((party, queueId), privKey) = subscribe_ smp privKey queueId