module QuantLib.Currencies.Europe
        ( module QuantLib.Currencies.Europe
        ) where

import QuantLib.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
        }

-- | Czech koruna
czk :: Currency
czk :: Currency
czk = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
        cName :: String
cName           = String
"Czech koruna",
        cCode :: String
cCode           = String
"CZK",
        cIsoCode :: Integer
cIsoCode        = Integer
203,
        cFracsPerUnit :: Integer
cFracsPerUnit   = Integer
100
        }

-- | Danish krone
dkk :: Currency
dkk :: Currency
dkk = Currency :: String -> String -> Integer -> Integer -> Currency
Currency {
        cName :: String
cName           = String
"Danish krone",
        cCode :: String
cCode           = String
"DKK",
        cIsoCode :: Integer
cIsoCode        = Integer
208,
        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
        }