IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rename type paarameters

Browse Source
This commit is contained in:
Evgeny Poberezkin
2020-07-12 15:18:32 +01:00
parent bedcd0fa50
commit 9eec22ca43
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
definitions/src/Control/Protocol.hs
View File

@@ -20,7 +20,7 @@ import Data.Kind
import Data.Singletons
import GHC.TypeLits (ErrorMessage (..), TypeError)
type Command p k = (p, k, k) -> (p, k, k) -> Type -> Type
type Command party state = (party, state, state) -> (party, state, state) -> Type -> Type
data ProtocolCmd (cmd :: Command p k) (parties :: [p]) (s :: [k]) (s' :: [k]) (a :: Type) where
Comment :: String -> ProtocolCmd cmd ps s s ()