Skip to content

Instantly share code, notes, and snippets.

@paluh

paluh/Main.hs

Last active June 1, 2022 10:34
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save paluh/22efaf338128d694ea10440b073f4802 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save paluh/22efaf338128d694ea10440b073f4802 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. paluh revised this gist Jun 1, 2022. No changes.
  2. paluh created this gist May 30, 2022.
    14 changes: 14 additions & 0 deletions Main.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,14 @@
    {-# 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
    -}

    contract :: Contract
    contract = Close
    1 change: 1 addition & 0 deletions metadata.json
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1 @@
    {"valueParameterInfo":[],"timeParameterDescriptions":[],"roleDescriptions":[],"contractType":"Other","contractShortDescription":"Unknown","contractName":"Unknown","contractLongDescription":"We couldn't find information about this contract","choiceInfo":[]}
    1 change: 1 addition & 0 deletions playground.marlowe.json
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1 @@
    {}