diff --git a/COPYING b/COPYING new file mode 100644 --- /dev/null +++ b/COPYING @@ -0,0 +1,13 @@ +Copyright © 2011, Stephen Paul Weber + +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. diff --git a/Currency.hs b/Currency.hs new file mode 100644 --- /dev/null +++ b/Currency.hs @@ -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 diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/currency.cabal b/currency.cabal new file mode 100644 --- /dev/null +++ b/currency.cabal @@ -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 +maintainer: Stephen Paul Weber +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