module QuantLib.Currencies.America
        ( module QuantLib.Currencies.America
        ) where 

import QuantLib.Currency

-- | Canadian dollar
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
        }

-- | U.S. dollar
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
        }