krisajenkins

-- | 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 qualified Language.PlutusTx            as PlutusTx
import qualified Ledger.Interval              as Interval
import           Ledger.Slot                  (SlotRange)
import qualified Ledger.Slot                  as Slot

krisajenkins

-- | A game with two players. Player 1 thinks of a secret word
--   and uses its hash, and the game validator script, to lock
--   some funds (the prize) in a pay-to-script transaction output.
--   Player 2 guesses the word by attempting to spend the transaction
--   output. If the guess is correct, the validator script releases the funds.
--   If it isn't, the funds stay locked.
import qualified Language.PlutusTx            as PlutusTx
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import qualified Ledger.Ada                   as Ada

krisajenkins

-- | A game with two players. Player 1 thinks of a secret word
--   and uses its hash, and the game validator script, to lock
--   some funds (the prize) in a pay-to-script transaction output.
--   Player 2 guesses the word by attempting to spend the transaction
--   output. If the guess is correct, the validator script releases the funds.
--   If it isn't, the funds stay locked.
import qualified Language.PlutusTx            as PlutusTx
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import qualified Ledger.Ada                   as Ada

krisajenkins

-- | A game with two players. Player 1 thinks of a secret word
--   and uses its hash, and the game validator script, to lock
--   some funds (the prize) in a pay-to-script transaction output.
--   Player 2 guesses the word by attempting to spend the transaction
--   output. If the guess is correct, the validator script releases the funds.
--   If it isn't, the funds stay locked.
import qualified Language.PlutusTx            as PlutusTx
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import qualified Ledger.Ada                   as Ada

krisajenkins

-- Contract endpoints that generate different kinds of errors for the log:
-- logAMessage produces a log message from a wallet
-- submitInvalidTxn submits an invalid txn which should result in a "Validation failed" message
-- throwWalletAPIError throws an error from a wallet (client)
import qualified Data.Set                     as Set
import           Data.Text                    (Text)

import           Ledger
import qualified Ledger.Ada                   as Ada
import           Ledger.Validation

krisajenkins

-- | A game with two players. Player 1 thinks of a secret word
--   and uses its hash, and the game validator script, to lock
--   some funds (the prize) in a pay-to-script transaction output.
--   Player 2 guesses the word by attempting to spend the transaction
--   output. If the guess is correct, the validator script releases the funds.
--   If it isn't, the funds stay locked.
import qualified Language.PlutusTx            as PlutusTx
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import qualified Ledger.Ada                   as Ada

krisajenkins

-- | Vesting scheme as a PLC contract
module Vesting where

import           Control.Monad                (void)

import qualified Language.PlutusTx            as PlutusTx
import qualified Ledger.Interval              as Interval
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import           Ledger.Ada                   (Ada)

krisajenkins

-- | Vesting scheme as a PLC contract
module Vesting where

import           Control.Monad                (void)

import qualified Language.PlutusTx            as PlutusTx
import qualified Ledger.Interval              as Interval
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import           Ledger.Ada                   (Ada)

krisajenkins

-- | Vesting scheme as a PLC contract
module Vesting where

import           Control.Monad                (void)

import qualified Language.PlutusTx            as PlutusTx
import qualified Ledger.Interval              as Interval
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import           Ledger.Ada                   (Ada)

krisajenkins

-- | Vesting scheme as a PLC contract
module Vesting where

import           Control.Monad                (void)

import qualified Language.PlutusTx            as PlutusTx
import qualified Ledger.Interval              as Interval
import qualified Language.PlutusTx.Prelude    as P
import           Ledger
import           Ledger.Ada                   (Ada)