module Q.Currencies.Europe
(
module Q.Currencies.Europe
)
where
import Q.Currency
chf :: Currency
chf :: Currency
chf = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
cName :: String
cName = String
"Swiss franc"
, cCode :: String
cCode = String
"CHF"
, cIsoCode :: Integer
cIsoCode = Integer
756
, cFracsPerUnit :: Integer
cFracsPerUnit = Integer
100
}
eur :: Currency
eur :: Currency
eur = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
cName :: String
cName = String
"European Euro"
, cCode :: String
cCode = String
"EUR"
, cIsoCode :: Integer
cIsoCode = Integer
978
, cFracsPerUnit :: Integer
cFracsPerUnit = Integer
100
}
gbp :: Currency
gbp :: Currency
gbp = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
cName :: String
cName = String
"British pound sterling"
, cCode :: String
cCode = String
"GBP"
, cIsoCode :: Integer
cIsoCode = Integer
826
, cFracsPerUnit :: Integer
cFracsPerUnit = Integer
100
}