@@ -3,6 +3,7 @@
33-- <http://en.wikipedia.org/wiki/ISO_3166-1_alpha-2>
44module Data.CountryCodes.ISO31661 (
55 CountryCode(..)
6+ , countryList
67 , fromMText
78 , fromText
89 , fromMName
@@ -1292,6 +1293,259 @@ toName ZA = "South Africa"
12921293toName ZM = "Zambia"
12931294toName ZW = "Zimbabwe"
12941295
1296+-- | list of names sorted by alphabetical order, with country code
1297+-- this is ready to be used in a yesod selectField, for example
1298+countryList :: [(T.Text,CountryCode)]
1299+countryList = [("Afghanistan",AF)
1300+ ,("Albania",AL)
1301+ ,("Algeria",DZ)
1302+ ,("American Samoa",AS)
1303+ ,("Andorra",AD)
1304+ ,("Angola",AO)
1305+ ,("Anguilla",AI)
1306+ ,("Antarctica",AQ)
1307+ ,("Antigua and Barbuda",AG)
1308+ ,("Argentina",AR)
1309+ ,("Armenia",AM)
1310+ ,("Aruba",AW)
1311+ ,("Australia",AU)
1312+ ,("Austria",AT)
1313+ ,("Azerbaijan",AZ)
1314+ ,("Bahrain",BH)
1315+ ,("Bangladesh",BD)
1316+ ,("Barbados",BB)
1317+ ,("Belarus",BY)
1318+ ,("Belgium",BE)
1319+ ,("Belize",BZ)
1320+ ,("Benin",BJ)
1321+ ,("Bermuda",BM)
1322+ ,("Bhutan",BT)
1323+ ,("Bolivia",BO)
1324+ ,("Bosnia and Herzegovina",BA)
1325+ ,("Botswana",BW)
1326+ ,("Bouvet Island",BV)
1327+ ,("Brazil",BR)
1328+ ,("British Indian Ocean Territory",IO)
1329+ ,("British Virgin Islands",VG)
1330+ ,("Brunei",BN)
1331+ ,("Bulgaria",BG)
1332+ ,("Burkina Faso",BF)
1333+ ,("Burundi",BI)
1334+ ,("Cambodia",KH)
1335+ ,("Cameroon",CM)
1336+ ,("Canada",CA)
1337+ ,("Cape Verde",CV)
1338+ ,("Caribbean Netherlands",BQ)
1339+ ,("Cayman Islands",KY)
1340+ ,("Central African Republic",CF)
1341+ ,("Chad",TD)
1342+ ,("Chile",CL)
1343+ ,("China",CN)
1344+ ,("Christmas Island",CX)
1345+ ,("Cocos (Keeling) Islands",CC)
1346+ ,("Collectivity of Saint Martin",MF)
1347+ ,("Colombia",CO)
1348+ ,("Comoros",KM)
1349+ ,("Cook Islands",CK)
1350+ ,("Costa Rica",CR)
1351+ ,("Croatia",HR)
1352+ ,("Cuba",CU)
1353+ ,("Curaçao",CW)
1354+ ,("Cyprus",CY)
1355+ ,("Czech Republic",CZ)
1356+ ,("Côte d'Ivoire",CI)
1357+ ,("Democratic Republic of the Congo",CD)
1358+ ,("Denmark",DK)
1359+ ,("Djibouti",DJ)
1360+ ,("Dominica",DM)
1361+ ,("Dominican Republic",DO)
1362+ ,("East Timor",TL)
1363+ ,("Ecuador",EC)
1364+ ,("Egypt",EG)
1365+ ,("El Salvador",SV)
1366+ ,("Equatorial Guinea",GQ)
1367+ ,("Eritrea",ER)
1368+ ,("Estonia",EE)
1369+ ,("Ethiopia",ET)
1370+ ,("Falkland Islands",FK)
1371+ ,("Faroe Islands",FO)
1372+ ,("Federated States of Micronesia",FM)
1373+ ,("Fiji",FJ)
1374+ ,("Finland",FI)
1375+ ,("France",FR)
1376+ ,("French Guiana",GF)
1377+ ,("French Polynesia",PF)
1378+ ,("French Southern and Antarctic Lands",TF)
1379+ ,("Gabon",GA)
1380+ ,("Georgia (country)",GE)
1381+ ,("Germany",DE)
1382+ ,("Ghana",GH)
1383+ ,("Gibraltar",GI)
1384+ ,("Greece",GR)
1385+ ,("Greenland",GL)
1386+ ,("Grenada",GD)
1387+ ,("Guadeloupe",GP)
1388+ ,("Guam",GU)
1389+ ,("Guatemala",GT)
1390+ ,("Guernsey",GG)
1391+ ,("Guinea",GN)
1392+ ,("Guinea-Bissau",GW)
1393+ ,("Guyana",GY)
1394+ ,("Haiti",HT)
1395+ ,("Heard Island and McDonald Islands",HM)
1396+ ,("Honduras",HN)
1397+ ,("Hong Kong",HK)
1398+ ,("Hungary",HU)
1399+ ,("Iceland",IS)
1400+ ,("India",IN)
1401+ ,("Indonesia",ID)
1402+ ,("Iran",IR)
1403+ ,("Iraq",IQ)
1404+ ,("Isle of Man",IM)
1405+ ,("Israel",IL)
1406+ ,("Italy",IT)
1407+ ,("Jamaica",JM)
1408+ ,("Japan",JP)
1409+ ,("Jersey",JE)
1410+ ,("Jordan",JO)
1411+ ,("Kazakhstan",KZ)
1412+ ,("Kenya",KE)
1413+ ,("Kiribati",KI)
1414+ ,("Kuwait",KW)
1415+ ,("Kyrgyzstan",KG)
1416+ ,("Laos",LA)
1417+ ,("Latvia",LV)
1418+ ,("Lebanon",LB)
1419+ ,("Lesotho",LS)
1420+ ,("Liberia",LR)
1421+ ,("Libya",LY)
1422+ ,("Liechtenstein",LI)
1423+ ,("Lithuania",LT)
1424+ ,("Luxembourg",LU)
1425+ ,("Macau",MO)
1426+ ,("Madagascar",MG)
1427+ ,("Malawi",MW)
1428+ ,("Malaysia",MY)
1429+ ,("Maldives",MV)
1430+ ,("Mali",ML)
1431+ ,("Malta",MT)
1432+ ,("Marshall Islands",MH)
1433+ ,("Martinique",MQ)
1434+ ,("Mauritania",MR)
1435+ ,("Mauritius",MU)
1436+ ,("Mayotte",YT)
1437+ ,("Mexico",MX)
1438+ ,("Moldova",MD)
1439+ ,("Monaco",MC)
1440+ ,("Mongolia",MN)
1441+ ,("Montenegro",ME)
1442+ ,("Montserrat",MS)
1443+ ,("Morocco",MA)
1444+ ,("Mozambique",MZ)
1445+ ,("Myanmar",MM)
1446+ ,("Namibia",NA)
1447+ ,("Nauru",NR)
1448+ ,("Nepal",NP)
1449+ ,("Netherlands",NL)
1450+ ,("New Caledonia",NC)
1451+ ,("New Zealand",NZ)
1452+ ,("Nicaragua",NI)
1453+ ,("Niger",NE)
1454+ ,("Nigeria",NG)
1455+ ,("Niue",NU)
1456+ ,("Norfolk Island",NF)
1457+ ,("North Korea",KP)
1458+ ,("Northern Mariana Islands",MP)
1459+ ,("Norway",NO)
1460+ ,("Oman",OM)
1461+ ,("Pakistan",PK)
1462+ ,("Palau",PW)
1463+ ,("Panama",PA)
1464+ ,("Papua New Guinea",PG)
1465+ ,("Paraguay",PY)
1466+ ,("Peru",PE)
1467+ ,("Philippines",PH)
1468+ ,("Pitcairn Islands",PN)
1469+ ,("Poland",PL)
1470+ ,("Portugal",PT)
1471+ ,("Puerto Rico",PR)
1472+ ,("Qatar",QA)
1473+ ,("Republic of Ireland",IE)
1474+ ,("Republic of Macedonia",MK)
1475+ ,("Republic of the Congo",CG)
1476+ ,("Romania",RO)
1477+ ,("Russia",RU)
1478+ ,("Rwanda",RW)
1479+ ,("Réunion",RE)
1480+ ,("Saint Barthélemy",BL)
1481+ ,("Saint Helena, Ascension and Tristan da Cunha",SH)
1482+ ,("Saint Kitts and Nevis",KN)
1483+ ,("Saint Lucia",LC)
1484+ ,("Saint Pierre and Miquelon",PM)
1485+ ,("Saint Vincent and the Grenadines",VC)
1486+ ,("Samoa",WS)
1487+ ,("San Marino",SM)
1488+ ,("Saudi Arabia",SA)
1489+ ,("Senegal",SN)
1490+ ,("Serbia",RS)
1491+ ,("Seychelles",SC)
1492+ ,("Sierra Leone",SL)
1493+ ,("Singapore",SG)
1494+ ,("Sint Maarten",SX)
1495+ ,("Slovakia",SK)
1496+ ,("Slovenia",SI)
1497+ ,("Solomon Islands",SB)
1498+ ,("Somalia",SO)
1499+ ,("South Africa",ZA)
1500+ ,("South Georgia and the South Sandwich Islands",GS)
1501+ ,("South Korea",KR)
1502+ ,("South Sudan",SS)
1503+ ,("Spain",ES)
1504+ ,("Sri Lanka",LK)
1505+ ,("State of Palestine",PS)
1506+ ,("Sudan",SD)
1507+ ,("Suriname",SR)
1508+ ,("Svalbard and Jan Mayen",SJ)
1509+ ,("Swaziland",SZ)
1510+ ,("Sweden",SE)
1511+ ,("Switzerland",CH)
1512+ ,("Syria",SY)
1513+ ,("São Tomé and Príncipe",ST)
1514+ ,("Taiwan",TW)
1515+ ,("Tajikistan",TJ)
1516+ ,("Tanzania",TZ)
1517+ ,("Thailand",TH)
1518+ ,("The Bahamas",BS)
1519+ ,("The Gambia",GM)
1520+ ,("Togo",TG)
1521+ ,("Tokelau",TK)
1522+ ,("Tonga",TO)
1523+ ,("Trinidad and Tobago",TT)
1524+ ,("Tunisia",TN)
1525+ ,("Turkey",TR)
1526+ ,("Turkmenistan",TM)
1527+ ,("Turks and Caicos Islands",TC)
1528+ ,("Tuvalu",TV)
1529+ ,("Uganda",UG)
1530+ ,("Ukraine",UA)
1531+ ,("United Arab Emirates",AE)
1532+ ,("United Kingdom",GB)
1533+ ,("United States",US)
1534+ ,("United States Minor Outlying Islands",UM)
1535+ ,("United States Virgin Islands",VI)
1536+ ,("Uruguay",UY)
1537+ ,("Uzbekistan",UZ)
1538+ ,("Vanuatu",VU)
1539+ ,("Vatican City",VA)
1540+ ,("Venezuela",VE)
1541+ ,("Vietnam",VN)
1542+ ,("Wallis and Futuna",WF)
1543+ ,("Western Sahara",EH)
1544+ ,("Yemen",YE)
1545+ ,("Zambia",ZM)
1546+ ,("Zimbabwe",ZW)
1547+ ,("Åland Islands",AX) ]
1548+
12951549-- | to json: as a simple string
12961550instance ToJSON CountryCode where
12971551 toJSON =toJSON . toText