mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-03-31 03:16:05 +00:00
add comment
This commit is contained in:
@@ -97,9 +97,7 @@ data instance (<==|) (rs <==> bs) ss :: Type where
|
||||
-> Sing ss
|
||||
-> rs <==> bs <==| ss
|
||||
|
||||
st1 :: 'New <==> 'New
|
||||
st1 = SNew :<==> SNew
|
||||
|
||||
-- recipient <==> broker <==| sender
|
||||
st2 :: 'Pending <==> 'New <==| 'Confirmed
|
||||
st2 = SPending :<==> SNew :<==| SConfirmed
|
||||
|
||||
|
||||
Reference in New Issue
Block a user