module QuantLib.Currency
( module QuantLib.Currency
)
where
data Currency = Currency {
Currency -> String
cName :: String,
Currency -> String
cCode :: String,
Currency -> Integer
cIsoCode :: Integer,
Currency -> Integer
cFracsPerUnit :: Integer
} deriving (Currency -> Currency -> Bool
(Currency -> Currency -> Bool)
-> (Currency -> Currency -> Bool) -> Eq Currency
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Currency -> Currency -> Bool
$c/= :: Currency -> Currency -> Bool
== :: Currency -> Currency -> Bool
$c== :: Currency -> Currency -> Bool
Eq)
instance Show Currency where
showsPrec :: Int -> Currency -> ShowS
showsPrec Int
_ Currency
x String
s = Currency -> String
cCode Currency
x String -> ShowS
forall a. [a] -> [a] -> [a]
++ String
s