* lints

* revert

* add import

* remove StrictData
This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2022-10-01 11:51:52 +01:00
1 parent 9cd5f96fe4
commit 29332a5e9f
15 files changed
+17 -23

No files matched your search

+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