mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-08-28 02:54:34 +00:00
simplify predicate template
This commit is contained in:
@@ -16,6 +16,14 @@ import Simplex.Messaging.Protocol
|
||||
import Simplex.Messaging.Types
|
||||
|
||||
|
||||
-- $(protocol Recipient [d|
|
||||
-- raCreateConn :: (--> Broker) CreateConn
|
||||
-- raSubscribe :: (--> Broker) Subscribe
|
||||
-- rcPushConfirm :: (<-- Broker) PushConfirm
|
||||
-- rcPushMsg :: (<-- Broker) PushMsg
|
||||
-- ...
|
||||
-- |]
|
||||
|
||||
instance Prf HasState Sender s
|
||||
=> ProtocolAction Recipient
|
||||
Broker
|
||||
|
||||
Reference in New Issue
Block a user