module Q.Currencies.America
  (
    module Q.Currencies.America
  )
where

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