Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
data MoneyExpr -- An Money expression made of EITHER:
= KnownAmount Money -- * A known amount and currency (base case)
| MoneyAdd [MoneyExpr] -- * A sum of several money expression
| MoneyMul MoneyExpr Double -- * A money expression multiplied by a factor
deriving (Show, Eq)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment