Skip to content

Instantly share code, notes, and snippets.

View brunjlar's full-sized avatar

Lars Brünjes brunjlar

  • Input Output Hong Kong
  • Regensburg (Germany)
View GitHub Profile
@brunjlar
brunjlar / openpgp.txt
Created December 22, 2016 01:28
OpenKeychain Linked Identity
This Gist confirms the Linked Identity in my OpenPGP key, and links it to this GitHub account.
Token for proof:
[Verifying my OpenPGP key: openpgp4fpr:beb624a3b76bc0dde10eac8485ae60a7052bebc6]

Keybase proof

I hereby claim:

  • I am brunjlar on github.
  • I am brunjlar (https://keybase.io/brunjlar) on keybase.
  • I have a public key ASCBqKU1FZOFumM7QMvZhy8yzSz6fgvIbKRweddXjqlTvQo

To claim this, I am signing this object:

@brunjlar
brunjlar / Playground.hs
Last active June 26, 2019 16:56
Plutus Playground Smart Contract
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
module Plutus.Token where
import qualified Data.Text as Text
import qualified Language.PlutusTx as PlutusTx
@brunjlar
brunjlar / Main.hs
Last active January 12, 2021 21:00
joint payment
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract "Alice" "Bob" "Charlie" 100
{- Define a contract, Close is the simplest contract which just ends the contract straight away
-}
@brunjlar
brunjlar / blockly.xml
Created January 13, 2021 12:54
Notify
<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="WhenContractType" id="o/40`|$#E-/d0v/52n(M"><field name="timeout">1</field><statement name="case"><block type="NotifyActionType" id="5O}g]/=.8,pJ}:zXMcYH"><value name="observation"><block type="TrueObservationType" id="P80XrlCQE5dAn|w+pmJ@"/></value><statement name="contract"><block type="CloseContractType" id="6M9;(~{FXu(Nx(KsURa$"/></statement></block></statement><statement name="contract"><block type="CloseContractType" id="VyY#ll(SuhtcaO|-`xDa"/></statement></block></statement></block></xml>
@brunjlar
brunjlar / Main.hs
Last active January 20, 2021 19:38
Exercise1
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- Define a contract, Close is the simplest contract which just ends the contract straight away
@brunjlar
brunjlar / Main.hs
Last active January 20, 2021 19:40
Exercise2
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- Define a contract, Close is the simplest contract which just ends the contract straight away
@brunjlar
brunjlar / Main.hs
Last active January 20, 2021 19:43
Exercise3
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- Define a contract, Close is the simplest contract which just ends the contract straight away
@brunjlar
brunjlar / Main.hs
Last active January 20, 2021 19:48
Exercise4
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- Define a contract, Close is the simplest contract which just ends the contract straight away
@brunjlar
brunjlar / Main.hs
Last active January 20, 2021 20:04
Exercise5
{-# LANGUAGE OverloadedStrings #-}
module Example where
import Language.Marlowe
main :: IO ()
main = print . pretty $ contract
{- Define a contract, Close is the simplest contract which just ends the contract straight away