module Q.Currencies.Europe
  (
    module Q.Currencies.Europe
  )
where

import           Q.Currency

-- | Swiss france
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
  }

-- | European Euro
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
  }

-- | British pound sterling
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
  }