Skip to content

Instantly share code, notes, and snippets.

@zackrw

zackrw/Playground.hs

Created January 30, 2021 00:44
Show Gist options
  • Save zackrw/70d3f2ad731ee43dbe0c4ca6775dc580 to your computer and use it in GitHub Desktop.
Save zackrw/70d3f2ad731ee43dbe0c4ca6775dc580 to your computer and use it in GitHub Desktop.
Download ZIP
Plutus Playground Smart Contract
Raw
Playground.hs
import qualified Data.Text as T
import Language.Plutus.Contract hiding (when)
import Language.PlutusTx.Prelude
import Playground.Contract
aussie :: String -> String
aussie s = tail s
-- | A 'Contract' that logs a message.
hello :: Contract BlockchainActions T.Text ()
hello = logInfo (aussie "hello, ")
endpoints :: Contract BlockchainActions T.Text ()
endpoints = hello
mkSchemaDefinitions ''BlockchainActions
$(mkKnownCurrencies [])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment