| data Money = Money { -- Declares a Money class with: | |
| amount :: Amount, -- * an amount field | |
| currency :: Currency -- * a currency field | |
| } deriving (Show, Eq) -- * and equality on all fields |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment