Skip to content

Instantly share code, notes, and snippets.


Hayden Moritz MoritzHayden

View GitHub Profile
MoritzHayden / Marlowe_PassThrough_Billing.hs
Last active Mar 21, 2022
Marlowe Contract: Pass-Through Billing
View Marlowe_PassThrough_Billing.hs
{-# LANGUAGE NumericUnderscores #-}
{-# LANGUAGE OverloadedStrings #-}
module VendorPassthrough where
import Language.Marlowe.Extended
main :: IO ()
main = print . pretty $ contract
-- We can set explicitRefunds True to run Close refund analysis