mirror of
https://github.com/macocianradu/RosettaHaskellCompiler.git
synced 2026-03-18 21:10:07 +00:00
11 lines
407 B
Plaintext
11 lines
407 B
Plaintext
namespace test.period : <"Something">
|
|
version "${version.ok}"
|
|
|
|
func PayoutParty1:
|
|
inputs:
|
|
payout PayoutBase (1..1)
|
|
contract Contract (1..1)
|
|
output:
|
|
contractOut Contract (1..1)
|
|
assign-output contractOut:
|
|
if (payout -> payerReceiver -> payer = CounterpartyRoleEnum -> PARTY_1) or (payout -> payerReceiver -> receiver = CounterpartyRoleEnum -> PARTY_2) then MkGive(contract) else contract |