currency-codes: ISO-4217 Currency Codes

[ data, library, mit ] [ Propose Tags ]

ISO-4217 Currency Codes

[Skip to Readme]

Modules

[Last Documentation]

Data
- Data.Currency

Downloads

currency-codes-3.0.0.0.tar.gz [browse] (Cabal source package)
Package description (as included in the package)

Maintainer's Corner

Package maintainers

KtorZ

For package maintainers and hackage trustees

edit package information

Candidates

1.0.0.0

Versions [RSS]	1.0.0.0, 1.0.0.1, 1.0.0.2, 1.0.0.3, 2.0.0.0, 3.0.0.0, 3.0.0.1 (info)
Change log	CHANGELOG.md
Dependencies	aeson (>=0.7.0.0), base (>=4 && <5), bson (>=0.2.0), deepseq, random (>=1.0.0.0), safe (>=0.2), text (>=1.0.0.0) [details]
License	MIT
Copyright	(c) 2017 Chordify
Author	Chordify
Maintainer	Matthias Benkort <matthias.benkort@gmail.com>
Category	Data
Home page	https://github.com/chordify/currency-codes
Bug tracker	https://github.com/chordify/currency-codes/issues
Uploaded	by KtorZ at 2018-03-13T17:27:56Z
Distributions	NixOS:3.0.0.1
Reverse Dependencies	3 direct, 0 indirect [details]
Downloads	4658 total (26 in the last 30 days)
Rating	(no votes yet) [estimated by Bayesian average]
Your Rating	λ λ λ
Status	Docs not available [build log] Last success reported on 2018-03-13 [all 3 reports]

Readme for currency-codes-3.0.0.0

[back to package description]

Currency Codes (ISO-4217)

Overview

This package mainly provides 2 data types to represent and manipulate currencies according to the ISO 4217 standard.

It also provides a handful of instances for common typeclasses (Show, Read, Random, ToJSON, FromJSON, Val, ToSchema).

Example

import           Data.Aeson     (ToJSON(..))
import qualified Data.Aeson     as Aeson
import           Data.Currency  (Currency, Alpha)
import qualified Data.Currency  as Currency
import           GHC.Generics   (Generic)
import qualified Safe


myCurrencies :: [Currency]
myCurrencies =
  [Currency.eur, Currency.usdDollar]

fromAlpha :: Alpha -> [Currency] -> Maybe Currency
fromAlpha α =
  Safe.headMay . filter ((==) α . Currency.alpha)


data Transaction = Transaction
  { amount   :: Integer
  , currency :: Currency
  } deriving (Eq, Show, Generic)

instance ToJSON Transaction where
  toJSON = 
    Aeson.genericToJSON Aeson.defaultOptions