Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/namedBasedMatching.hs

Created February 14, 2018 14:27
Show Gist options
  • Save deque-blog/e1f36ed04ae5e7bfb0daa7295e798278 to your computer and use it in GitHub Desktop.
Save deque-blog/e1f36ed04ae5e7bfb0daa7295e798278 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
namedBasedMatching.hs
summary :: Payment -> String
summary Payment { amount = amount_, from = from_, to = to_ } =
join " " ["Transfered", show (value amount_), currency amount_, "from", from_, "to", to_]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment