currency (empty) → 0.1.0.0
raw patch · 4 files changed
+826/−0 lines, 4 filesdep +basedep +hashabledep +iso3166-country-codessetup-changed
Dependencies added: base, hashable, iso3166-country-codes
Files
- COPYING +13/−0
- Currency.hs +773/−0
- Setup.hs +2/−0
- currency.cabal +38/−0
+ COPYING view
@@ -0,0 +1,13 @@+Copyright © 2011, Stephen Paul Weber <singpolyma.net>++Permission to use, copy, modify, and/or distribute this software for any+purpose with or without fee is hereby granted, provided that the above+copyright notice and this permission notice appear in all copies.++THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ Currency.hs view
@@ -0,0 +1,773 @@+-- | A representation of both ISO4217 and nonstandard currencies+module Currency (Currency(..), ISO4217Currency(..), minorUnits) where++import Data.String (IsString(fromString))+import Data.Hashable (Hashable(hashWithSalt))+import qualified Data.ISO3166_CountryCodes as Country++-- | ISO4217 currency, either national or non-national+data ISO4217Currency =+ NationalCurrency Country.CountryCode Char |+ NonNationalCurrency Char Char+ deriving (Eq, Ord)++-- | Either an 'ISO4217Currency' or a nonstandard currency+data Currency = ISO4217Currency ISO4217Currency | NonStandardCurrency String+ deriving (Eq, Ord)++instance Show ISO4217Currency where+ show (NationalCurrency country code) = show country ++ [code]+ show (NonNationalCurrency a b) = ['X',a,b]++instance Read ISO4217Currency where+ readsPrec _ = readParen False (go . lex)+ where+ go [(['X',b,c], rest)] = [(NonNationalCurrency b c, rest)]+ go [([a,b,c], rest)] = case reads [a,b] of+ [(country, "")] -> [(NationalCurrency country c, rest)]+ _ -> []+ go _ = []++instance Show Currency where+ show (ISO4217Currency currency) = show currency+ show (NonStandardCurrency str) = show str++instance Read Currency where+ readsPrec _ = readParen False (go . lex)+ where+ go [(lexeme, rest)] = case reads lexeme of+ [(isoCurrency, "")] -> [(ISO4217Currency isoCurrency, rest)]+ _ -> case reads lexeme of+ [(string, "")] -> [(NonStandardCurrency string, rest)]+ _ -> []+ go _ = []++instance IsString Currency where+ fromString s = case reads s of+ [(isoCurrency, "")] -> ISO4217Currency isoCurrency+ _ -> NonStandardCurrency s++instance Hashable ISO4217Currency where+ hashWithSalt salt currency = hashWithSalt salt (show currency)++instance Hashable Currency where+ hashWithSalt salt currency = hashWithSalt salt (show currency)++instance Enum Currency where+ fromEnum (ISO4217Currency isoCurrency) = fromEnum isoCurrency+ fromEnum _ = error "NonStandardCurrency does not have ISO4217 currency code"+ toEnum = ISO4217Currency . toEnum++-- Autogenerated from Wikipedia data+instance Enum ISO4217Currency where+ fromEnum (NationalCurrency Country.AF 'A') = 4+ fromEnum (NationalCurrency Country.AL 'L') = 8+ fromEnum (NationalCurrency Country.DZ 'D') = 12+ fromEnum (NationalCurrency Country.AD 'P') = 20+ fromEnum (NationalCurrency Country.AO 'N') = 24+ fromEnum (NationalCurrency Country.AZ 'M') = 31+ fromEnum (NationalCurrency Country.AR 'S') = 32+ fromEnum (NationalCurrency Country.AU 'D') = 36+ fromEnum (NationalCurrency Country.AT 'S') = 40+ fromEnum (NationalCurrency Country.BS 'D') = 44+ fromEnum (NationalCurrency Country.BH 'D') = 48+ fromEnum (NationalCurrency Country.BD 'T') = 50+ fromEnum (NationalCurrency Country.AM 'D') = 51+ fromEnum (NationalCurrency Country.BB 'D') = 52+ fromEnum (NationalCurrency Country.BE 'F') = 56+ fromEnum (NationalCurrency Country.BM 'D') = 60+ fromEnum (NationalCurrency Country.BT 'N') = 64+ fromEnum (NationalCurrency Country.BO 'B') = 68+ fromEnum (NationalCurrency Country.BW 'P') = 72+ fromEnum (NationalCurrency Country.BZ 'D') = 84+ fromEnum (NationalCurrency Country.SB 'D') = 90+ fromEnum (NationalCurrency Country.BN 'D') = 96+ fromEnum (NationalCurrency Country.BG 'L') = 100+ fromEnum (NationalCurrency Country.MM 'K') = 104+ fromEnum (NationalCurrency Country.BI 'F') = 108+ fromEnum (NationalCurrency Country.KH 'R') = 116+ fromEnum (NationalCurrency Country.CA 'D') = 124+ fromEnum (NationalCurrency Country.CV 'E') = 132+ fromEnum (NationalCurrency Country.KY 'D') = 136+ fromEnum (NationalCurrency Country.LK 'R') = 144+ fromEnum (NationalCurrency Country.CL 'P') = 152+ fromEnum (NationalCurrency Country.CN 'Y') = 156+ fromEnum (NationalCurrency Country.CO 'P') = 170+ fromEnum (NationalCurrency Country.KM 'F') = 174+ --fromEnum (NationalCurrency Country.ZR 'N') = 180+ fromEnum (NationalCurrency Country.CR 'C') = 188+ fromEnum (NationalCurrency Country.HR 'K') = 191+ fromEnum (NationalCurrency Country.CU 'P') = 192+ fromEnum (NationalCurrency Country.CY 'P') = 196+ --fromEnum (NationalCurrency Country.CS 'K') = 200+ fromEnum (NationalCurrency Country.CZ 'K') = 203+ fromEnum (NationalCurrency Country.DK 'K') = 208+ fromEnum (NationalCurrency Country.DO 'P') = 214+ fromEnum (NationalCurrency Country.EC 'S') = 218+ fromEnum (NationalCurrency Country.SV 'C') = 222+ fromEnum (NationalCurrency Country.ET 'B') = 230+ fromEnum (NationalCurrency Country.ER 'N') = 232+ fromEnum (NationalCurrency Country.EE 'K') = 233+ fromEnum (NationalCurrency Country.FK 'P') = 238+ fromEnum (NationalCurrency Country.FJ 'D') = 242+ fromEnum (NationalCurrency Country.FI 'M') = 246+ fromEnum (NationalCurrency Country.FR 'F') = 250+ fromEnum (NationalCurrency Country.DJ 'F') = 262+ fromEnum (NationalCurrency Country.GM 'D') = 270+ fromEnum (NationalCurrency Country.DE 'M') = 276+ --fromEnum (NationalCurrency Country.DD 'M') = 278+ fromEnum (NationalCurrency Country.GH 'C') = 288+ fromEnum (NationalCurrency Country.GI 'P') = 292+ fromEnum (NationalCurrency Country.GR 'D') = 300+ fromEnum (NationalCurrency Country.GT 'Q') = 320+ fromEnum (NationalCurrency Country.GN 'F') = 324+ fromEnum (NationalCurrency Country.GY 'D') = 328+ fromEnum (NationalCurrency Country.HT 'G') = 332+ fromEnum (NationalCurrency Country.HN 'L') = 340+ fromEnum (NationalCurrency Country.HK 'D') = 344+ fromEnum (NationalCurrency Country.HU 'F') = 348+ fromEnum (NationalCurrency Country.IS 'K') = 352+ fromEnum (NationalCurrency Country.IN 'R') = 356+ fromEnum (NationalCurrency Country.ID 'R') = 360+ fromEnum (NationalCurrency Country.IR 'R') = 364+ fromEnum (NationalCurrency Country.IQ 'D') = 368+ fromEnum (NationalCurrency Country.IE 'P') = 372+ fromEnum (NationalCurrency Country.IL 'S') = 376+ fromEnum (NationalCurrency Country.IT 'L') = 380+ fromEnum (NationalCurrency Country.JM 'D') = 388+ fromEnum (NationalCurrency Country.JP 'Y') = 392+ fromEnum (NationalCurrency Country.KZ 'T') = 398+ fromEnum (NationalCurrency Country.JO 'D') = 400+ fromEnum (NationalCurrency Country.KE 'S') = 404+ fromEnum (NationalCurrency Country.KP 'W') = 408+ fromEnum (NationalCurrency Country.KR 'W') = 410+ fromEnum (NationalCurrency Country.KW 'D') = 414+ fromEnum (NationalCurrency Country.KG 'S') = 417+ fromEnum (NationalCurrency Country.LA 'K') = 418+ fromEnum (NationalCurrency Country.LB 'P') = 422+ fromEnum (NationalCurrency Country.LS 'L') = 426+ fromEnum (NationalCurrency Country.LV 'L') = 428+ fromEnum (NationalCurrency Country.LR 'D') = 430+ fromEnum (NationalCurrency Country.LY 'D') = 434+ fromEnum (NationalCurrency Country.LT 'L') = 440+ fromEnum (NationalCurrency Country.LU 'F') = 442+ fromEnum (NationalCurrency Country.MO 'P') = 446+ fromEnum (NationalCurrency Country.MG 'F') = 450+ fromEnum (NationalCurrency Country.MW 'K') = 454+ fromEnum (NationalCurrency Country.MY 'R') = 458+ fromEnum (NationalCurrency Country.MV 'R') = 462+ fromEnum (NationalCurrency Country.MT 'L') = 470+ fromEnum (NationalCurrency Country.MR 'O') = 478+ fromEnum (NationalCurrency Country.MU 'R') = 480+ fromEnum (NationalCurrency Country.MX 'N') = 484+ fromEnum (NationalCurrency Country.MN 'T') = 496+ fromEnum (NationalCurrency Country.MD 'L') = 498+ fromEnum (NationalCurrency Country.MA 'D') = 504+ fromEnum (NationalCurrency Country.MZ 'M') = 508+ fromEnum (NationalCurrency Country.OM 'R') = 512+ fromEnum (NationalCurrency Country.NA 'D') = 516+ fromEnum (NationalCurrency Country.NP 'R') = 524+ fromEnum (NationalCurrency Country.NL 'G') = 528+ --fromEnum (NationalCurrency Country.AN 'G') = 532+ fromEnum (NationalCurrency Country.AW 'G') = 533+ fromEnum (NationalCurrency Country.VU 'V') = 548+ fromEnum (NationalCurrency Country.NZ 'D') = 554+ fromEnum (NationalCurrency Country.NI 'O') = 558+ fromEnum (NationalCurrency Country.NG 'N') = 566+ fromEnum (NationalCurrency Country.NO 'K') = 578+ fromEnum (NationalCurrency Country.PK 'R') = 586+ fromEnum (NationalCurrency Country.PA 'B') = 590+ fromEnum (NationalCurrency Country.PG 'K') = 598+ fromEnum (NationalCurrency Country.PY 'G') = 600+ fromEnum (NationalCurrency Country.PE 'N') = 604+ fromEnum (NationalCurrency Country.PH 'P') = 608+ fromEnum (NationalCurrency Country.PL 'Z') = 616+ fromEnum (NationalCurrency Country.PT 'E') = 620+ fromEnum (NationalCurrency Country.GW 'P') = 624+ fromEnum (NationalCurrency Country.QA 'R') = 634+ fromEnum (NationalCurrency Country.RO 'L') = 642+ fromEnum (NationalCurrency Country.RU 'B') = 643+ fromEnum (NationalCurrency Country.RW 'F') = 646+ fromEnum (NationalCurrency Country.SH 'P') = 654+ fromEnum (NationalCurrency Country.ST 'D') = 678+ fromEnum (NationalCurrency Country.SA 'R') = 682+ fromEnum (NationalCurrency Country.SC 'R') = 690+ fromEnum (NationalCurrency Country.SL 'L') = 694+ fromEnum (NationalCurrency Country.SG 'D') = 702+ fromEnum (NationalCurrency Country.SK 'K') = 703+ fromEnum (NationalCurrency Country.VN 'D') = 704+ fromEnum (NationalCurrency Country.SI 'T') = 705+ fromEnum (NationalCurrency Country.SO 'S') = 706+ fromEnum (NationalCurrency Country.ZA 'R') = 710+ fromEnum (NationalCurrency Country.ZW 'D') = 716+ --fromEnum (NationalCurrency Country.YD 'D') = 720+ fromEnum (NationalCurrency Country.ES 'P') = 724+ fromEnum (NationalCurrency Country.SS 'P') = 728+ --fromEnum (NationalCurrency Country.SD 'P') = 736+ fromEnum (NationalCurrency Country.SD 'D') = 736+ fromEnum (NationalCurrency Country.SR 'G') = 740+ fromEnum (NationalCurrency Country.SZ 'L') = 748+ fromEnum (NationalCurrency Country.SE 'K') = 752+ fromEnum (NationalCurrency Country.CH 'F') = 756+ fromEnum (NationalCurrency Country.SY 'P') = 760+ fromEnum (NationalCurrency Country.TJ 'R') = 762+ fromEnum (NationalCurrency Country.TH 'B') = 764+ fromEnum (NationalCurrency Country.TO 'P') = 776+ fromEnum (NationalCurrency Country.TT 'D') = 780+ fromEnum (NationalCurrency Country.AE 'D') = 784+ fromEnum (NationalCurrency Country.TN 'D') = 788+ fromEnum (NationalCurrency Country.TR 'L') = 792+ fromEnum (NationalCurrency Country.TM 'M') = 795+ fromEnum (NationalCurrency Country.UG 'X') = 800+ fromEnum (NationalCurrency Country.UA 'K') = 804+ fromEnum (NationalCurrency Country.MK 'D') = 807+ fromEnum (NationalCurrency Country.RU 'R') = 810+ fromEnum (NationalCurrency Country.EG 'P') = 818+ fromEnum (NationalCurrency Country.GB 'P') = 826+ fromEnum (NationalCurrency Country.TZ 'S') = 834+ fromEnum (NationalCurrency Country.US 'D') = 840+ fromEnum (NationalCurrency Country.UY 'U') = 858+ fromEnum (NationalCurrency Country.UZ 'S') = 860+ fromEnum (NationalCurrency Country.VE 'B') = 862+ fromEnum (NationalCurrency Country.WS 'T') = 882+ fromEnum (NationalCurrency Country.YE 'R') = 886+ --fromEnum (NationalCurrency Country.YU 'M') = 891+ --fromEnum (NationalCurrency Country.CS 'D') = 891+ fromEnum (NationalCurrency Country.ZM 'K') = 894+ fromEnum (NationalCurrency Country.TW 'D') = 901+ fromEnum (NationalCurrency Country.CU 'C') = 931+ fromEnum (NationalCurrency Country.ZW 'L') = 933+ fromEnum (NationalCurrency Country.TM 'T') = 934+ fromEnum (NationalCurrency Country.ZW 'R') = 935+ fromEnum (NationalCurrency Country.GH 'S') = 936+ fromEnum (NationalCurrency Country.VE 'F') = 937+ fromEnum (NationalCurrency Country.SD 'G') = 938+ fromEnum (NationalCurrency Country.UY 'I') = 940+ fromEnum (NationalCurrency Country.RS 'D') = 941+ fromEnum (NationalCurrency Country.ZW 'N') = 942+ fromEnum (NationalCurrency Country.MZ 'N') = 943+ fromEnum (NationalCurrency Country.AZ 'N') = 944+ fromEnum (NationalCurrency Country.RO 'N') = 946+ fromEnum (NationalCurrency Country.CH 'E') = 947+ fromEnum (NationalCurrency Country.CH 'W') = 948+ fromEnum (NationalCurrency Country.TR 'Y') = 949+ fromEnum (NonNationalCurrency 'A' 'F') = 950+ fromEnum (NonNationalCurrency 'C' 'D') = 951+ fromEnum (NonNationalCurrency 'O' 'F') = 952+ fromEnum (NonNationalCurrency 'P' 'F') = 953+ fromEnum (NonNationalCurrency 'E' 'U') = 954+ fromEnum (NonNationalCurrency 'B' 'A') = 955+ fromEnum (NonNationalCurrency 'B' 'B') = 956+ fromEnum (NonNationalCurrency 'B' 'C') = 957+ fromEnum (NonNationalCurrency 'B' 'D') = 958+ fromEnum (NonNationalCurrency 'A' 'U') = 959+ fromEnum (NonNationalCurrency 'D' 'R') = 960+ fromEnum (NonNationalCurrency 'A' 'G') = 961+ fromEnum (NonNationalCurrency 'P' 'T') = 962+ fromEnum (NonNationalCurrency 'T' 'S') = 963+ fromEnum (NonNationalCurrency 'P' 'D') = 964+ fromEnum (NationalCurrency Country.ZM 'W') = 967+ fromEnum (NationalCurrency Country.SR 'D') = 968+ fromEnum (NationalCurrency Country.MG 'A') = 969+ fromEnum (NationalCurrency Country.CO 'U') = 970+ fromEnum (NationalCurrency Country.AF 'N') = 971+ fromEnum (NationalCurrency Country.TJ 'S') = 972+ fromEnum (NationalCurrency Country.AO 'A') = 973+ fromEnum (NationalCurrency Country.BY 'R') = 974+ fromEnum (NationalCurrency Country.BG 'N') = 975+ fromEnum (NationalCurrency Country.CD 'F') = 976+ fromEnum (NationalCurrency Country.BA 'M') = 977+ --fromEnum (NationalCurrency Country.EU 'R') = 978+ fromEnum (NationalCurrency Country.MX 'V') = 979+ fromEnum (NationalCurrency Country.UA 'H') = 980+ fromEnum (NationalCurrency Country.GE 'L') = 981+ fromEnum (NationalCurrency Country.AO 'R') = 982+ fromEnum (NationalCurrency Country.EC 'V') = 983+ fromEnum (NationalCurrency Country.BO 'V') = 984+ fromEnum (NationalCurrency Country.PL 'N') = 985+ fromEnum (NationalCurrency Country.BR 'L') = 986+ fromEnum (NationalCurrency Country.CL 'F') = 990+ fromEnum (NationalCurrency Country.ZA 'L') = 991+ fromEnum (NationalCurrency Country.ES 'B') = 995+ fromEnum (NationalCurrency Country.ES 'A') = 996+ fromEnum (NationalCurrency Country.US 'N') = 997+ fromEnum (NationalCurrency Country.US 'S') = 998+ fromEnum (NonNationalCurrency 'X' 'X') = 999+ fromEnum _ = error "ISO4217Currency: no currency number found."++ toEnum 4 = NationalCurrency Country.AF 'A'+ toEnum 8 = NationalCurrency Country.AL 'L'+ toEnum 12 = NationalCurrency Country.DZ 'D'+ toEnum 20 = NationalCurrency Country.AD 'P'+ toEnum 24 = NationalCurrency Country.AO 'N'+ toEnum 31 = NationalCurrency Country.AZ 'M'+ toEnum 32 = NationalCurrency Country.AR 'S'+ toEnum 36 = NationalCurrency Country.AU 'D'+ toEnum 40 = NationalCurrency Country.AT 'S'+ toEnum 44 = NationalCurrency Country.BS 'D'+ toEnum 48 = NationalCurrency Country.BH 'D'+ toEnum 50 = NationalCurrency Country.BD 'T'+ toEnum 51 = NationalCurrency Country.AM 'D'+ toEnum 52 = NationalCurrency Country.BB 'D'+ toEnum 56 = NationalCurrency Country.BE 'F'+ toEnum 60 = NationalCurrency Country.BM 'D'+ toEnum 64 = NationalCurrency Country.BT 'N'+ toEnum 68 = NationalCurrency Country.BO 'B'+ toEnum 72 = NationalCurrency Country.BW 'P'+ toEnum 84 = NationalCurrency Country.BZ 'D'+ toEnum 90 = NationalCurrency Country.SB 'D'+ toEnum 96 = NationalCurrency Country.BN 'D'+ toEnum 100 = NationalCurrency Country.BG 'L'+ toEnum 104 = NationalCurrency Country.MM 'K'+ toEnum 108 = NationalCurrency Country.BI 'F'+ toEnum 116 = NationalCurrency Country.KH 'R'+ toEnum 124 = NationalCurrency Country.CA 'D'+ toEnum 132 = NationalCurrency Country.CV 'E'+ toEnum 136 = NationalCurrency Country.KY 'D'+ toEnum 144 = NationalCurrency Country.LK 'R'+ toEnum 152 = NationalCurrency Country.CL 'P'+ toEnum 156 = NationalCurrency Country.CN 'Y'+ toEnum 170 = NationalCurrency Country.CO 'P'+ toEnum 174 = NationalCurrency Country.KM 'F'+ --toEnum 180 = NationalCurrency Country.ZR 'N'+ toEnum 188 = NationalCurrency Country.CR 'C'+ toEnum 191 = NationalCurrency Country.HR 'K'+ toEnum 192 = NationalCurrency Country.CU 'P'+ toEnum 196 = NationalCurrency Country.CY 'P'+ --toEnum 200 = NationalCurrency Country.CS 'K'+ toEnum 203 = NationalCurrency Country.CZ 'K'+ toEnum 208 = NationalCurrency Country.DK 'K'+ toEnum 214 = NationalCurrency Country.DO 'P'+ toEnum 218 = NationalCurrency Country.EC 'S'+ toEnum 222 = NationalCurrency Country.SV 'C'+ toEnum 230 = NationalCurrency Country.ET 'B'+ toEnum 232 = NationalCurrency Country.ER 'N'+ toEnum 233 = NationalCurrency Country.EE 'K'+ toEnum 238 = NationalCurrency Country.FK 'P'+ toEnum 242 = NationalCurrency Country.FJ 'D'+ toEnum 246 = NationalCurrency Country.FI 'M'+ toEnum 250 = NationalCurrency Country.FR 'F'+ toEnum 262 = NationalCurrency Country.DJ 'F'+ toEnum 270 = NationalCurrency Country.GM 'D'+ toEnum 276 = NationalCurrency Country.DE 'M'+ --toEnum 278 = NationalCurrency Country.DD 'M'+ toEnum 288 = NationalCurrency Country.GH 'C'+ toEnum 292 = NationalCurrency Country.GI 'P'+ toEnum 300 = NationalCurrency Country.GR 'D'+ toEnum 320 = NationalCurrency Country.GT 'Q'+ toEnum 324 = NationalCurrency Country.GN 'F'+ toEnum 328 = NationalCurrency Country.GY 'D'+ toEnum 332 = NationalCurrency Country.HT 'G'+ toEnum 340 = NationalCurrency Country.HN 'L'+ toEnum 344 = NationalCurrency Country.HK 'D'+ toEnum 348 = NationalCurrency Country.HU 'F'+ toEnum 352 = NationalCurrency Country.IS 'K'+ toEnum 356 = NationalCurrency Country.IN 'R'+ toEnum 360 = NationalCurrency Country.ID 'R'+ toEnum 364 = NationalCurrency Country.IR 'R'+ toEnum 368 = NationalCurrency Country.IQ 'D'+ toEnum 372 = NationalCurrency Country.IE 'P'+ toEnum 376 = NationalCurrency Country.IL 'S'+ toEnum 380 = NationalCurrency Country.IT 'L'+ toEnum 388 = NationalCurrency Country.JM 'D'+ toEnum 392 = NationalCurrency Country.JP 'Y'+ toEnum 398 = NationalCurrency Country.KZ 'T'+ toEnum 400 = NationalCurrency Country.JO 'D'+ toEnum 404 = NationalCurrency Country.KE 'S'+ toEnum 408 = NationalCurrency Country.KP 'W'+ toEnum 410 = NationalCurrency Country.KR 'W'+ toEnum 414 = NationalCurrency Country.KW 'D'+ toEnum 417 = NationalCurrency Country.KG 'S'+ toEnum 418 = NationalCurrency Country.LA 'K'+ toEnum 422 = NationalCurrency Country.LB 'P'+ toEnum 426 = NationalCurrency Country.LS 'L'+ toEnum 428 = NationalCurrency Country.LV 'L'+ toEnum 430 = NationalCurrency Country.LR 'D'+ toEnum 434 = NationalCurrency Country.LY 'D'+ toEnum 440 = NationalCurrency Country.LT 'L'+ toEnum 442 = NationalCurrency Country.LU 'F'+ toEnum 446 = NationalCurrency Country.MO 'P'+ toEnum 450 = NationalCurrency Country.MG 'F'+ toEnum 454 = NationalCurrency Country.MW 'K'+ toEnum 458 = NationalCurrency Country.MY 'R'+ toEnum 462 = NationalCurrency Country.MV 'R'+ toEnum 470 = NationalCurrency Country.MT 'L'+ toEnum 478 = NationalCurrency Country.MR 'O'+ toEnum 480 = NationalCurrency Country.MU 'R'+ toEnum 484 = NationalCurrency Country.MX 'N'+ toEnum 496 = NationalCurrency Country.MN 'T'+ toEnum 498 = NationalCurrency Country.MD 'L'+ toEnum 504 = NationalCurrency Country.MA 'D'+ toEnum 508 = NationalCurrency Country.MZ 'M'+ toEnum 512 = NationalCurrency Country.OM 'R'+ toEnum 516 = NationalCurrency Country.NA 'D'+ toEnum 524 = NationalCurrency Country.NP 'R'+ toEnum 528 = NationalCurrency Country.NL 'G'+ --toEnum 532 = NationalCurrency Country.AN 'G'+ toEnum 533 = NationalCurrency Country.AW 'G'+ toEnum 548 = NationalCurrency Country.VU 'V'+ toEnum 554 = NationalCurrency Country.NZ 'D'+ toEnum 558 = NationalCurrency Country.NI 'O'+ toEnum 566 = NationalCurrency Country.NG 'N'+ toEnum 578 = NationalCurrency Country.NO 'K'+ toEnum 586 = NationalCurrency Country.PK 'R'+ toEnum 590 = NationalCurrency Country.PA 'B'+ toEnum 598 = NationalCurrency Country.PG 'K'+ toEnum 600 = NationalCurrency Country.PY 'G'+ toEnum 604 = NationalCurrency Country.PE 'N'+ toEnum 608 = NationalCurrency Country.PH 'P'+ toEnum 616 = NationalCurrency Country.PL 'Z'+ toEnum 620 = NationalCurrency Country.PT 'E'+ toEnum 624 = NationalCurrency Country.GW 'P'+ toEnum 634 = NationalCurrency Country.QA 'R'+ toEnum 642 = NationalCurrency Country.RO 'L'+ toEnum 643 = NationalCurrency Country.RU 'B'+ toEnum 646 = NationalCurrency Country.RW 'F'+ toEnum 654 = NationalCurrency Country.SH 'P'+ toEnum 678 = NationalCurrency Country.ST 'D'+ toEnum 682 = NationalCurrency Country.SA 'R'+ toEnum 690 = NationalCurrency Country.SC 'R'+ toEnum 694 = NationalCurrency Country.SL 'L'+ toEnum 702 = NationalCurrency Country.SG 'D'+ toEnum 703 = NationalCurrency Country.SK 'K'+ toEnum 704 = NationalCurrency Country.VN 'D'+ toEnum 705 = NationalCurrency Country.SI 'T'+ toEnum 706 = NationalCurrency Country.SO 'S'+ toEnum 710 = NationalCurrency Country.ZA 'R'+ toEnum 716 = NationalCurrency Country.ZW 'D'+ --toEnum 720 = NationalCurrency Country.YD 'D'+ toEnum 724 = NationalCurrency Country.ES 'P'+ toEnum 728 = NationalCurrency Country.SS 'P'+ --toEnum 736 = NationalCurrency Country.SD 'P'+ toEnum 736 = NationalCurrency Country.SD 'D'+ toEnum 740 = NationalCurrency Country.SR 'G'+ toEnum 748 = NationalCurrency Country.SZ 'L'+ toEnum 752 = NationalCurrency Country.SE 'K'+ toEnum 756 = NationalCurrency Country.CH 'F'+ toEnum 760 = NationalCurrency Country.SY 'P'+ toEnum 762 = NationalCurrency Country.TJ 'R'+ toEnum 764 = NationalCurrency Country.TH 'B'+ toEnum 776 = NationalCurrency Country.TO 'P'+ toEnum 780 = NationalCurrency Country.TT 'D'+ toEnum 784 = NationalCurrency Country.AE 'D'+ toEnum 788 = NationalCurrency Country.TN 'D'+ toEnum 792 = NationalCurrency Country.TR 'L'+ toEnum 795 = NationalCurrency Country.TM 'M'+ toEnum 800 = NationalCurrency Country.UG 'X'+ toEnum 804 = NationalCurrency Country.UA 'K'+ toEnum 807 = NationalCurrency Country.MK 'D'+ toEnum 810 = NationalCurrency Country.RU 'R'+ toEnum 818 = NationalCurrency Country.EG 'P'+ toEnum 826 = NationalCurrency Country.GB 'P'+ toEnum 834 = NationalCurrency Country.TZ 'S'+ toEnum 840 = NationalCurrency Country.US 'D'+ toEnum 858 = NationalCurrency Country.UY 'U'+ toEnum 860 = NationalCurrency Country.UZ 'S'+ toEnum 862 = NationalCurrency Country.VE 'B'+ toEnum 882 = NationalCurrency Country.WS 'T'+ toEnum 886 = NationalCurrency Country.YE 'R'+ --toEnum 891 = NationalCurrency Country.YU 'M'+ --toEnum 891 = NationalCurrency Country.CS 'D'+ toEnum 894 = NationalCurrency Country.ZM 'K'+ toEnum 901 = NationalCurrency Country.TW 'D'+ toEnum 931 = NationalCurrency Country.CU 'C'+ toEnum 933 = NationalCurrency Country.ZW 'L'+ toEnum 934 = NationalCurrency Country.TM 'T'+ toEnum 935 = NationalCurrency Country.ZW 'R'+ toEnum 936 = NationalCurrency Country.GH 'S'+ toEnum 937 = NationalCurrency Country.VE 'F'+ toEnum 938 = NationalCurrency Country.SD 'G'+ toEnum 940 = NationalCurrency Country.UY 'I'+ toEnum 941 = NationalCurrency Country.RS 'D'+ toEnum 942 = NationalCurrency Country.ZW 'N'+ toEnum 943 = NationalCurrency Country.MZ 'N'+ toEnum 944 = NationalCurrency Country.AZ 'N'+ toEnum 946 = NationalCurrency Country.RO 'N'+ toEnum 947 = NationalCurrency Country.CH 'E'+ toEnum 948 = NationalCurrency Country.CH 'W'+ toEnum 949 = NationalCurrency Country.TR 'Y'+ toEnum 950 = NonNationalCurrency 'A' 'F'+ toEnum 951 = NonNationalCurrency 'C' 'D'+ toEnum 952 = NonNationalCurrency 'O' 'F'+ toEnum 953 = NonNationalCurrency 'P' 'F'+ toEnum 954 = NonNationalCurrency 'E' 'U'+ toEnum 955 = NonNationalCurrency 'B' 'A'+ toEnum 956 = NonNationalCurrency 'B' 'B'+ toEnum 957 = NonNationalCurrency 'B' 'C'+ toEnum 958 = NonNationalCurrency 'B' 'D'+ toEnum 959 = NonNationalCurrency 'A' 'U'+ toEnum 960 = NonNationalCurrency 'D' 'R'+ toEnum 961 = NonNationalCurrency 'A' 'G'+ toEnum 962 = NonNationalCurrency 'P' 'T'+ toEnum 963 = NonNationalCurrency 'T' 'S'+ toEnum 964 = NonNationalCurrency 'P' 'D'+ toEnum 967 = NationalCurrency Country.ZM 'W'+ toEnum 968 = NationalCurrency Country.SR 'D'+ toEnum 969 = NationalCurrency Country.MG 'A'+ toEnum 970 = NationalCurrency Country.CO 'U'+ toEnum 971 = NationalCurrency Country.AF 'N'+ toEnum 972 = NationalCurrency Country.TJ 'S'+ toEnum 973 = NationalCurrency Country.AO 'A'+ toEnum 974 = NationalCurrency Country.BY 'R'+ toEnum 975 = NationalCurrency Country.BG 'N'+ toEnum 976 = NationalCurrency Country.CD 'F'+ toEnum 977 = NationalCurrency Country.BA 'M'+ --toEnum 978 = NationalCurrency Country.EU 'R'+ toEnum 979 = NationalCurrency Country.MX 'V'+ toEnum 980 = NationalCurrency Country.UA 'H'+ toEnum 981 = NationalCurrency Country.GE 'L'+ toEnum 982 = NationalCurrency Country.AO 'R'+ toEnum 983 = NationalCurrency Country.EC 'V'+ toEnum 984 = NationalCurrency Country.BO 'V'+ toEnum 985 = NationalCurrency Country.PL 'N'+ toEnum 986 = NationalCurrency Country.BR 'L'+ toEnum 990 = NationalCurrency Country.CL 'F'+ toEnum 991 = NationalCurrency Country.ZA 'L'+ toEnum 995 = NationalCurrency Country.ES 'B'+ toEnum 996 = NationalCurrency Country.ES 'A'+ toEnum 997 = NationalCurrency Country.US 'N'+ toEnum 998 = NationalCurrency Country.US 'S'+ toEnum 999 = NonNationalCurrency 'X' 'X'+ toEnum _ = error "ISO4217Currency: no currency found for that number."++class MinorUnits a where+ -- | The number of fractional decimal places in an amount of a+ -- 'Currency' or 'ISO4217Currency'+ minorUnits :: a -> Maybe Int++instance MinorUnits Currency where+ minorUnits (ISO4217Currency isoCurrency) = minorUnits isoCurrency+ minorUnits _ = Nothing++-- Autogenerated from Wikipedia data+instance MinorUnits ISO4217Currency where+ minorUnits (NationalCurrency Country.AE 'D') = Just 2+ minorUnits (NationalCurrency Country.AF 'N') = Just 2+ minorUnits (NationalCurrency Country.AL 'L') = Just 2+ minorUnits (NationalCurrency Country.AM 'D') = Just 2+ --minorUnits (NationalCurrency Country.AN 'G') = Just 2+ minorUnits (NationalCurrency Country.AO 'A') = Just 2+ minorUnits (NationalCurrency Country.AR 'S') = Just 2+ minorUnits (NationalCurrency Country.AU 'D') = Just 2+ minorUnits (NationalCurrency Country.AW 'G') = Just 2+ minorUnits (NationalCurrency Country.AZ 'N') = Just 2+ minorUnits (NationalCurrency Country.BA 'M') = Just 2+ minorUnits (NationalCurrency Country.BB 'D') = Just 2+ minorUnits (NationalCurrency Country.BD 'T') = Just 2+ minorUnits (NationalCurrency Country.BG 'N') = Just 2+ minorUnits (NationalCurrency Country.BH 'D') = Just 3+ minorUnits (NationalCurrency Country.BI 'F') = Just 0+ minorUnits (NationalCurrency Country.BM 'D') = Just 2+ minorUnits (NationalCurrency Country.BN 'D') = Just 2+ minorUnits (NationalCurrency Country.BO 'B') = Just 2+ minorUnits (NationalCurrency Country.BO 'V') = Just 2+ minorUnits (NationalCurrency Country.BR 'L') = Just 2+ minorUnits (NationalCurrency Country.BS 'D') = Just 2+ minorUnits (NationalCurrency Country.BT 'N') = Just 2+ minorUnits (NationalCurrency Country.BW 'P') = Just 2+ minorUnits (NationalCurrency Country.BY 'R') = Just 0+ minorUnits (NationalCurrency Country.BZ 'D') = Just 2+ minorUnits (NationalCurrency Country.CA 'D') = Just 2+ minorUnits (NationalCurrency Country.CD 'F') = Just 2+ minorUnits (NationalCurrency Country.CH 'E') = Just 2+ minorUnits (NationalCurrency Country.CH 'F') = Just 2+ minorUnits (NationalCurrency Country.CH 'W') = Just 2+ minorUnits (NationalCurrency Country.CL 'F') = Just 0+ minorUnits (NationalCurrency Country.CL 'P') = Just 0+ minorUnits (NationalCurrency Country.CN 'Y') = Just 2+ minorUnits (NationalCurrency Country.CO 'P') = Just 2+ minorUnits (NationalCurrency Country.CO 'U') = Just 2+ minorUnits (NationalCurrency Country.CR 'C') = Just 2+ minorUnits (NationalCurrency Country.CU 'C') = Just 2+ minorUnits (NationalCurrency Country.CU 'P') = Just 2+ minorUnits (NationalCurrency Country.CV 'E') = Just 0+ minorUnits (NationalCurrency Country.CZ 'K') = Just 2+ minorUnits (NationalCurrency Country.DJ 'F') = Just 0+ minorUnits (NationalCurrency Country.DK 'K') = Just 2+ minorUnits (NationalCurrency Country.DO 'P') = Just 2+ minorUnits (NationalCurrency Country.DZ 'D') = Just 2+ minorUnits (NationalCurrency Country.EG 'P') = Just 2+ minorUnits (NationalCurrency Country.ER 'N') = Just 2+ minorUnits (NationalCurrency Country.ET 'B') = Just 2+ --minorUnits (NationalCurrency Country.EU 'R') = Just 2+ minorUnits (NationalCurrency Country.FJ 'D') = Just 2+ minorUnits (NationalCurrency Country.FK 'P') = Just 2+ minorUnits (NationalCurrency Country.GB 'P') = Just 2+ minorUnits (NationalCurrency Country.GE 'L') = Just 2+ minorUnits (NationalCurrency Country.GH 'S') = Just 2+ minorUnits (NationalCurrency Country.GI 'P') = Just 2+ minorUnits (NationalCurrency Country.GM 'D') = Just 2+ minorUnits (NationalCurrency Country.GN 'F') = Just 0+ minorUnits (NationalCurrency Country.GT 'Q') = Just 2+ minorUnits (NationalCurrency Country.GY 'D') = Just 2+ minorUnits (NationalCurrency Country.HK 'D') = Just 2+ minorUnits (NationalCurrency Country.HN 'L') = Just 2+ minorUnits (NationalCurrency Country.HR 'K') = Just 2+ minorUnits (NationalCurrency Country.HT 'G') = Just 2+ minorUnits (NationalCurrency Country.HU 'F') = Just 2+ minorUnits (NationalCurrency Country.ID 'R') = Just 0+ minorUnits (NationalCurrency Country.IL 'S') = Just 2+ minorUnits (NationalCurrency Country.IN 'R') = Just 2+ minorUnits (NationalCurrency Country.IQ 'D') = Just 3+ minorUnits (NationalCurrency Country.IR 'R') = Just 0+ minorUnits (NationalCurrency Country.IS 'K') = Just 0+ minorUnits (NationalCurrency Country.JM 'D') = Just 2+ minorUnits (NationalCurrency Country.JO 'D') = Just 3+ minorUnits (NationalCurrency Country.JP 'Y') = Just 0+ minorUnits (NationalCurrency Country.KE 'S') = Just 2+ minorUnits (NationalCurrency Country.KG 'S') = Just 2+ minorUnits (NationalCurrency Country.KH 'R') = Just 2+ minorUnits (NationalCurrency Country.KM 'F') = Just 0+ minorUnits (NationalCurrency Country.KP 'W') = Just 0+ minorUnits (NationalCurrency Country.KR 'W') = Just 0+ minorUnits (NationalCurrency Country.KW 'D') = Just 3+ minorUnits (NationalCurrency Country.KY 'D') = Just 2+ minorUnits (NationalCurrency Country.KZ 'T') = Just 2+ minorUnits (NationalCurrency Country.LA 'K') = Just 0+ minorUnits (NationalCurrency Country.LB 'P') = Just 0+ minorUnits (NationalCurrency Country.LK 'R') = Just 2+ minorUnits (NationalCurrency Country.LR 'D') = Just 2+ minorUnits (NationalCurrency Country.LS 'L') = Just 2+ minorUnits (NationalCurrency Country.LT 'L') = Just 2+ minorUnits (NationalCurrency Country.LV 'L') = Just 2+ minorUnits (NationalCurrency Country.LY 'D') = Just 3+ minorUnits (NationalCurrency Country.MA 'D') = Just 2+ minorUnits (NationalCurrency Country.MD 'L') = Just 2+ minorUnits (NationalCurrency Country.MG 'A') = Just 0+ minorUnits (NationalCurrency Country.MK 'D') = Just 0+ minorUnits (NationalCurrency Country.MM 'K') = Just 0+ minorUnits (NationalCurrency Country.MN 'T') = Just 2+ minorUnits (NationalCurrency Country.MO 'P') = Just 2+ minorUnits (NationalCurrency Country.MR 'O') = Just 0+ minorUnits (NationalCurrency Country.MU 'R') = Just 2+ minorUnits (NationalCurrency Country.MV 'R') = Just 2+ minorUnits (NationalCurrency Country.MW 'K') = Just 2+ minorUnits (NationalCurrency Country.MX 'N') = Just 2+ minorUnits (NationalCurrency Country.MX 'V') = Just 2+ minorUnits (NationalCurrency Country.MY 'R') = Just 2+ minorUnits (NationalCurrency Country.MZ 'N') = Just 2+ minorUnits (NationalCurrency Country.NA 'D') = Just 2+ minorUnits (NationalCurrency Country.NG 'N') = Just 2+ minorUnits (NationalCurrency Country.NI 'O') = Just 2+ minorUnits (NationalCurrency Country.NO 'K') = Just 2+ minorUnits (NationalCurrency Country.NP 'R') = Just 2+ minorUnits (NationalCurrency Country.NZ 'D') = Just 2+ minorUnits (NationalCurrency Country.OM 'R') = Just 3+ minorUnits (NationalCurrency Country.PA 'B') = Just 2+ minorUnits (NationalCurrency Country.PE 'N') = Just 2+ minorUnits (NationalCurrency Country.PG 'K') = Just 2+ minorUnits (NationalCurrency Country.PH 'P') = Just 2+ minorUnits (NationalCurrency Country.PK 'R') = Just 2+ minorUnits (NationalCurrency Country.PL 'N') = Just 2+ minorUnits (NationalCurrency Country.PY 'G') = Just 0+ minorUnits (NationalCurrency Country.QA 'R') = Just 2+ minorUnits (NationalCurrency Country.RO 'N') = Just 2+ minorUnits (NationalCurrency Country.RS 'D') = Just 2+ minorUnits (NationalCurrency Country.RU 'B') = Just 2+ minorUnits (NationalCurrency Country.RW 'F') = Just 0+ minorUnits (NationalCurrency Country.SA 'R') = Just 2+ minorUnits (NationalCurrency Country.SB 'D') = Just 2+ minorUnits (NationalCurrency Country.SC 'R') = Just 2+ minorUnits (NationalCurrency Country.SD 'G') = Just 2+ minorUnits (NationalCurrency Country.SE 'K') = Just 2+ minorUnits (NationalCurrency Country.SG 'D') = Just 2+ minorUnits (NationalCurrency Country.SH 'P') = Just 2+ minorUnits (NationalCurrency Country.SL 'L') = Just 0+ minorUnits (NationalCurrency Country.SO 'S') = Just 2+ minorUnits (NationalCurrency Country.SR 'D') = Just 2+ minorUnits (NationalCurrency Country.SS 'P') = Just 2+ minorUnits (NationalCurrency Country.ST 'D') = Just 0+ minorUnits (NationalCurrency Country.SY 'P') = Just 2+ minorUnits (NationalCurrency Country.SZ 'L') = Just 2+ minorUnits (NationalCurrency Country.TH 'B') = Just 2+ minorUnits (NationalCurrency Country.TJ 'S') = Just 2+ minorUnits (NationalCurrency Country.TM 'T') = Just 2+ minorUnits (NationalCurrency Country.TN 'D') = Just 3+ minorUnits (NationalCurrency Country.TO 'P') = Just 2+ minorUnits (NationalCurrency Country.TR 'Y') = Just 2+ minorUnits (NationalCurrency Country.TT 'D') = Just 2+ minorUnits (NationalCurrency Country.TW 'D') = Just 2+ minorUnits (NationalCurrency Country.TZ 'S') = Just 2+ minorUnits (NationalCurrency Country.UA 'H') = Just 2+ minorUnits (NationalCurrency Country.UG 'X') = Just 2+ minorUnits (NationalCurrency Country.US 'D') = Just 2+ minorUnits (NationalCurrency Country.US 'N') = Just 2+ minorUnits (NationalCurrency Country.US 'S') = Just 2+ minorUnits (NationalCurrency Country.UY 'I') = Just 0+ minorUnits (NationalCurrency Country.UY 'U') = Just 2+ minorUnits (NationalCurrency Country.UZ 'S') = Just 2+ minorUnits (NationalCurrency Country.VE 'F') = Just 2+ minorUnits (NationalCurrency Country.VN 'D') = Just 0+ minorUnits (NationalCurrency Country.VU 'V') = Just 0+ minorUnits (NationalCurrency Country.WS 'T') = Just 2+ minorUnits (NonNationalCurrency 'A' 'F') = Just 0+ minorUnits (NonNationalCurrency 'C' 'D') = Just 2+ minorUnits (NonNationalCurrency 'O' 'F') = Just 0+ minorUnits (NonNationalCurrency 'P' 'F') = Just 0+ minorUnits (NationalCurrency Country.YE 'R') = Just 2+ minorUnits (NationalCurrency Country.ZA 'R') = Just 2+ minorUnits (NationalCurrency Country.ZM 'W') = Just 2+ minorUnits (NationalCurrency Country.AD 'F') = Just 2+ minorUnits (NationalCurrency Country.AD 'P') = Just 0+ minorUnits (NationalCurrency Country.AT 'S') = Just 2+ minorUnits (NationalCurrency Country.BE 'F') = Just 1+ minorUnits (NationalCurrency Country.CY 'P') = Just 2+ minorUnits (NationalCurrency Country.DE 'M') = Just 2+ minorUnits (NationalCurrency Country.EE 'K') = Just 2+ minorUnits (NationalCurrency Country.ES 'P') = Just 0+ minorUnits (NationalCurrency Country.FI 'M') = Just 2+ minorUnits (NationalCurrency Country.FR 'F') = Just 2+ minorUnits (NationalCurrency Country.GR 'D') = Just 0+ minorUnits (NationalCurrency Country.IE 'P') = Just 2+ minorUnits (NationalCurrency Country.IT 'L') = Just 0+ minorUnits (NationalCurrency Country.LU 'F') = Just 1+ minorUnits (NationalCurrency Country.MC 'F') = Just 1+ minorUnits (NationalCurrency Country.MA 'F') = Just 0+ minorUnits (NationalCurrency Country.MT 'L') = Just 2+ minorUnits (NationalCurrency Country.NL 'G') = Just 2+ minorUnits (NationalCurrency Country.PT 'E') = Just 0+ minorUnits (NationalCurrency Country.SI 'T') = Just 1+ minorUnits (NationalCurrency Country.SK 'K') = Just 1+ minorUnits (NationalCurrency Country.SM 'L') = Just 0+ minorUnits (NationalCurrency Country.VA 'L') = Just 0+ minorUnits (NationalCurrency Country.AO 'N') = Just 0+ minorUnits (NationalCurrency Country.AO 'R') = Just 0+ minorUnits (NationalCurrency Country.AR 'L') = Just 2+ minorUnits (NationalCurrency Country.AR 'P') = Just 2+ minorUnits (NationalCurrency Country.AR 'A') = Just 2+ minorUnits (NationalCurrency Country.AZ 'M') = Just 0+ minorUnits (NationalCurrency Country.BG 'L') = Just 2+ minorUnits (NationalCurrency Country.BO 'P') = Just 2+ minorUnits (NationalCurrency Country.BR 'Z') = Just 2+ minorUnits (NationalCurrency Country.BR 'B') = Just 2+ minorUnits (NationalCurrency Country.BR 'C') = Just 2+ minorUnits (NationalCurrency Country.BR 'N') = Just 2+ minorUnits (NationalCurrency Country.BR 'E') = Just 2+ minorUnits (NationalCurrency Country.BR 'R') = Just 2+ --minorUnits (NationalCurrency Country.CS 'D') = Just 2+ minorUnits (NationalCurrency Country.EC 'S') = Just 0+ minorUnits (NationalCurrency Country.GH 'C') = Just 0+ minorUnits (NationalCurrency Country.IL 'P') = Just 3+ minorUnits (NationalCurrency Country.IL 'R') = Just 2+ minorUnits (NationalCurrency Country.IS 'J') = Just 2+ minorUnits (NationalCurrency Country.MZ 'M') = Just 0+ minorUnits (NationalCurrency Country.NF 'D') = Just 2+ minorUnits (NationalCurrency Country.SV 'C') = Just 2+ minorUnits (NationalCurrency Country.TM 'M') = Just 0+ minorUnits (NationalCurrency Country.TR 'L') = Just 0+ minorUnits (NationalCurrency Country.VE 'B') = Just 2+ --minorUnits (NationalCurrency Country.YU 'D') = Just 2+ --minorUnits (NationalCurrency Country.YU 'N') = Just 2+ --minorUnits (NationalCurrency Country.YU 'R') = Just 2+ --minorUnits (NationalCurrency Country.YU 'O') = Just 2+ --minorUnits (NationalCurrency Country.YU 'G') = Just 2+ --minorUnits (NationalCurrency Country.YU 'M') = Just 2+ minorUnits (NationalCurrency Country.ZM 'K') = Just 2+ --minorUnits (NationalCurrency Country.ZR 'N') = Just 2+ --minorUnits (NationalCurrency Country.ZR 'Z') = Just 3+ minorUnits (NationalCurrency Country.ZW 'C') = Just 2+ minorUnits (NationalCurrency Country.ZW 'D') = Just 2+ minorUnits (NationalCurrency Country.ZW 'N') = Just 2+ minorUnits (NationalCurrency Country.ZW 'R') = Just 2+ minorUnits (NationalCurrency Country.ZW 'L') = Just 2+ minorUnits _ = Nothing
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ currency.cabal view
@@ -0,0 +1,38 @@+name: currency+version: 0.1.0.0+cabal-version: >=1.8+license: OtherLicense+license-file: COPYING+copyright: © 2011-2012 Stephen Paul Weber+category: Data+author: Stephen Paul Weber <singpolyma@singpolyma.net>+maintainer: Stephen Paul Weber <singpolyma@singpolyma.net>+stability: experimental+build-type: Simple+homepage: https://github.com/singpolyma/currency-haskell+bug-reports: http://github.com/singpolyma/OpenPGP-Haskell/issues+synopsis: Types representing standard and non-standard currencies+description:+ This package provides two types for representing currencies, one that+ can only represent ISO4217 currencies, and one that can also represent+ nonstandard currencies.+ .+ An IsString instance is provided for convenience on the general type.+ .+ Instances of Eq, Ord, and, Hashable are provided for use as keys.+ .+ The Enum instance provides a mapping to/from ISO4217 numeric codes for+ currencies that have such a code.++library+ exposed-modules:+ Currency++ build-depends:+ base == 4.*,+ hashable,+ iso3166-country-codes >= 0.20111111++source-repository head+ type: git+ location: git://github.com/singpolyma/currency-haskell.git