Skip to content

Instantly share code, notes, and snippets.

@VeilDango
VeilDango / Playground.hs
Created April 8, 2021 07:46
Plutus Playground Smart Contract
-- Vesting scheme as a PLC contract
import Control.Monad (void, when)
import qualified Data.Map as Map
import qualified Data.Text as T
import Language.Plutus.Contract hiding (when)
import qualified Language.Plutus.Contract.Typed.Tx as Typed
import qualified Language.PlutusTx as PlutusTx
import Language.PlutusTx.Prelude hiding (Semigroup (..), fold)
import Ledger (Address, PubKeyHash, Slot (Slot), Validator, pubKeyHash)
### Keybase proof
I hereby claim:
* I am veildango on github.
* I am veildango (https://keybase.io/veildango) on keybase.
* I have a public key ASAKp_Bi-Bgr905GPGr8hYaWgbx8Iy-oGwBmCDzoO7m6DAo
To claim this, I am signing this object: