Skip to content

Instantly share code, notes, and snippets.



Last active Aug 13, 2017
What would you like to do?
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