simplify predicate template

This commit is contained in:
Evgeny Poberezkin
2020-05-13 11:47:24 +01:00
parent a9565a5754
commit aa2ac80cf9
2 changed files with 26 additions and 18 deletions
@@ -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