@@ -4,7 +4,7 @@ module Data.Finance.Money
44 ) where
55
66import Data.Finance.Currency (kind Currency, class Currency, CProxy(..), decimals)
7−import Data.Generic (class Generic)
7+import Data.Generic (class Generic, gShow)
88import Data.Module (class LeftModule, class RightModule)
99import Data.Newtype (class Newtype)
1010import Prelude
@@ -17,6 +17,7 @@ derive newtype instance eqDiscrete :: Eq (Discrete c)
1717derive newtype instance ordDiscrete :: Ord (Discrete c)
1818derive instance genericDiscrete :: Generic (Discrete c)
1919derive instance newtypeDiscrete :: Newtype (Discrete c) _
20+instance showDiscreteInstance :: Show (Discrete c) where show = gShow
2021
2122instance leftModuleDiscrete :: LeftModule (Discrete c) Int where
2223 mzeroL = Discrete 0