Skip to content

Instantly share code, notes, and snippets.

@cwgoes

cwgoes/transaction.hs Secret

Last active February 2, 2020 19:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cwgoes/45bebb1903523c8573263f2ee5616445 to your computer and use it in GitHub Desktop.
Save cwgoes/45bebb1903523c8573263f2ee5616445 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
transaction.hs
data Tx = Tx {
txAuthorisedAccount :: Text,
txData :: TxData
}
data TxData =
Transfer {
fromAccount :: Text,
toAccount :: Text,
transferAmount :: Nat
} |
Mint {
mintAmount :: Nat,
mintToAccount :: Text
} |
Burn {
burnAmount :: Nat,
burnFromAccount :: Text
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment