Skip to content

Instantly share code, notes, and snippets.

@vvkio
vvkio / Playground.hs
Created January 19, 2021 11:02
Plutus Playground Smart Contract
import Control.Lens (makeClassyPrisms, prism', review)
import Control.Monad (void)
import Control.Monad.Error.Lens (catching, throwing, throwing_)
import Data.Text (Text)
import qualified Data.Text as T
import Language.Plutus.Contract (AsContractError (_ContractError), ContractError, HasAwaitSlot, logInfo,
mapError, select)
import Playground.Contract
import Prelude (Maybe (..), const, show, ($), (.), (<>), (>>), (>>=))

Keybase proof

I hereby claim:

  • I am vvkio on github.
  • I am vvk (https://keybase.io/vvk) on keybase.
  • I have a public key ASDL7L2faaa6m2L_U4-OgaTKl_4yMnTZQJfUVafV61xoZAo

To claim this, I am signing this object: