arlenner · April 30, 2021 02:45
diff --git a/Main.hs b/Main.hs
 {-# LANGUAGE OverloadedStrings #-}
 module Example where

 import           Language.Marlowe.Extended

 main :: IO ()
 main = print . pretty $ contract


 {- Define a contract, Close is the simplest contract which just ends the contract straight away
 -}

 contract :: Contract
 contract = Close
diff --git a/metadata.json b/metadata.json
 {"valueParameterDescriptions":[],"slotParameterDescriptions":[],"roleDescriptions":[],"contractType":"O","contractName":"","contractDescription":"","choiceDescriptions":[]}
diff --git a/playground.marlowe.json b/playground.marlowe.json
 {}
	{-# LANGUAGE OverloadedStrings #-}
	module Example where

	import Language.Marlowe.Extended

	main :: IO ()
	main = print . pretty $ contract


	{- Define a contract, Close is the simplest contract which just ends the contract straight away
	-}

	contract :: Contract
	contract = Close