Skip to content

Instantly share code, notes, and snippets.

@scottexemine
Created September 27, 2022 13:33
Show Gist options
  • Save scottexemine/b7020f1be0c8a3c5bb2c1aef23503dec to your computer and use it in GitHub Desktop.
Save scottexemine/b7020f1be0c8a3c5bb2c1aef23503dec to your computer and use it in GitHub Desktop.
Plutus Playground Smart Contract
import Data.Text qualified as T
import Playground.Contract
import Plutus.Contract
import PlutusTx.Prelude
import Prelude qualified as Haskell
-- | A 'Contract' that Declares that Revvy Exists.
start :: Contract () EmptySchema T.Text ()
start = logInfo @Haskell.String "Revvy Exists"
endpoints :: Contract () EmptySchema T.Text ()
endpoints = start
-- 'mkSchemaDefinitions' doesn't work with 'EmptySchema'
-- (that is, with 0 endpoints) so we define a
-- dummy schema type with 1 endpoint to make it compile.
-- TODO: Repair 'mkSchemaDefinitions'
type TempSchema = Endpoint "temp" ()
mkSchemaDefinitions ''TempSchema
$(mkKnownCurrencies [])
[0,[{"simulationWallets":[{"simulatorWalletWallet":{"getWallet":1},"simulatorWalletBalance":{"getValue":[[{"unCurrencySymbol":""},[[{"unTokenName":""},100000000]]]]}},{"simulatorWalletWallet":{"getWallet":2},"simulatorWalletBalance":{"getValue":[[{"unCurrencySymbol":""},[[{"unTokenName":""},100000000]]]]}}],"simulationName":"Simulation 1","simulationId":1,"simulationActions":[]}]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment