mte14eha

-- Crowdfunding contract implemented using the [[Plutus]] interface.
-- This is the fully parallel version that collects all contributions
-- in a single transaction.
--
-- Note [Transactions in the crowdfunding campaign] explains the structure of
-- this contract on the blockchain.

import           Control.Applicative                  (Applicative (pure))
import           Control.Monad                        (void)
import           Language.Plutus.Contract

mte14eha

Close 

mte14eha

Close 

mte14eha

Close 

mte14eha

When
    [Case
        (Deposit
            ?party
            (Role "role")
            ?token ?value
        )
        ?contract]
    1 ?contract

mte14eha

When
    [Case
        (Deposit
            ?party
            (Role "role")
            ?token ?value
        )
        ?contract]
    1 ?contract

mte14eha

When
    [Case
        (Deposit
            (Role "bank")
            (Role "fan")
            (Token "" "")
            (Constant 1)
        )
        (Assert
            ?observation

mte14eha

When
    [Case
        (Deposit
            (Role "bank")
            (Role "fan")
            (Token "" "")
            (ConstantParam "parameterName")
        )
        (When
            [Case

mte14eha

When
    [Case
        (Deposit
            (Role "party1")
            (Role "fan")
            (Token "" "")
            (ConstantParam "donation")
        )
        (When
            [Case