Skip to content

Instantly share code, notes, and snippets.

@jhbertra
Created May 19, 2023 16:39
Show Gist options
  • Save jhbertra/4d7bdce4a80e386f4b0ca85a3776b4ba to your computer and use it in GitHub Desktop.
Save jhbertra/4d7bdce4a80e386f4b0ca85a3776b4ba to your computer and use it in GitHub Desktop.
Test 2
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe.Extended.V1
main :: IO ()
main = printJSON example
{- Define a contract, Close is the simplest contract which just ends the contract straight away
-}
example :: Contract
example = Close
{"valueParameterInfo":[],"timeParameterDescriptions":[],"roleDescriptions":[],"contractType":"Other","contractShortDescription":"Unknown","contractName":"Unknown","contractLongDescription":"We couldn't find information about this contract","choiceInfo":[]}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment