hrajchert · May 30, 2022 19:51
diff --git a/Main.hs b/Main.hs
 {-# LANGUAGE OverloadedStrings #-}
 module Example where

 import Language.Marlowe.Extended

 main :: IO ()
 main = printJSON $ contract


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

 contract :: Contract
 contract = Close
diff --git a/metadata.json b/metadata.json
 {"valueParameterInfo":[],"timeParameterDescriptions":[],"roleDescriptions":[],"contractType":"Other","contractShortDescription":"Unknown","contractName":"Unknown","contractLongDescription":"We couldn't find information about this contract","choiceInfo":[]}
diff --git a/playground.marlowe.json b/playground.marlowe.json
 {}
	{-# LANGUAGE OverloadedStrings #-}
	module Example where

	import Language.Marlowe.Extended

	main :: IO ()
	main = printJSON $ contract


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

	contract :: Contract
	contract = Close