Skip to content

Instantly share code, notes, and snippets.

View shmish111's full-sized avatar

David Smith shmish111

23 followers · 0 following
View GitHub Profile
@shmish111
shmish111 / Main.hs
Created January 6, 2021 12:24
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / Main.hs
Created January 6, 2021 12:20
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / Main.hs
Last active January 6, 2021 12:22
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / Main.hs
Last active January 6, 2021 11:46
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / Main.hs
Last active January 6, 2021 09:34
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / blockly.xml
Created October 27, 2020 16:41
New Project 3
<xml xmlns="https://developers.google.com/blockly/xml"><block type="BaseContractType" id="root_contract" deletable="false" x="13" y="187"><statement name="BaseContractType"><block type="CloseContractType" id="b=EX]~3zh-UncfHB}Q}c"/></statement></block></xml>
@shmish111
shmish111 / playground.marlowe
Created October 27, 2020 16:40
New Project
?new_contract
@shmish111
shmish111 / Main.hs
Created October 21, 2020 13:02
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / Main.hs
Created October 21, 2020 10:52
Untitled Project
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?
@shmish111
shmish111 / Main.hs
Last active October 21, 2020 14:16
Untitled Project 2
{-# LANGUAGE OverloadedStrings #-}
module Escrow where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- What does the vanilla contract look like?