@@ -28,6 +28,7 @@ newtype Money curr = Money { getAmount :: Centi }
2828-- | Empty type, used only to carry its type parameter with a currency code around. E.g. 'Currency "USD"', 'Currency "GBP"', et cetera.
2929-- See Data.Money.Currencies for pre-defined currency types.
3030data Currency (name :: Symbol)
31+ deriving (Generic, Data)
3132
3233-- | Statically known currency type class.
3334class KnownCurrency c where