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