module Q.Currencies.America
(
module Q.Currencies.America
)
where
import Q.Currency
cad :: Currency
cad :: Currency
cad = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
cName :: String
cName = String
"Canadian dollar"
, cCode :: String
cCode = String
"CAD"
, cIsoCode :: Integer
cIsoCode = Integer
124
, cFracsPerUnit :: Integer
cFracsPerUnit = Integer
100
}
usd :: Currency
usd :: Currency
usd = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
cName :: String
cName = String
"U.S. dollar"
, cCode :: String
cCode = String
"USD"
, cIsoCode :: Integer
cIsoCode = Integer
840
, cFracsPerUnit :: Integer
cFracsPerUnit = Integer
100
}