38317b0 · typeable/country-codes

git.iko.soy/typeable/country-codes

newline

commit38317b004ddb81f56df1306530c04b59d221e4d8 authorjpmoresmau <jp@moresmau.fr> dateSat 26 Apr 2014, 18:03 (12 years ago) parent6e89b05

2 files changed+4−2

unifiedsplit

exe/Main.hs+1−1

@@ -99,7 +99,7 @@ generate assocs =

9999 toNames = foldl' toName (fromNames <> nl <> nl <>

100100 "-- | Get the user readable name." <> nl <>

101101 "toName :: CountryCode -> T.Text") assocs

102− json = toNames <>

102+ json = toNames <> nl <> nl <>

103103 "-- | to json: as a simple string" <> nl <>

104104 "instance ToJSON CountryCode where" <> nl <>

105105 " toJSON =toJSON . toText" <> nl <>

src/Data/CountryCodes/ISO31661.hs+3−1

@@ -1290,7 +1290,9 @@ toName YE = "Yemen"

12901290toName YT = "Mayotte"

12911291toName ZA = "South Africa"

12921292toName ZM = "Zambia"

1293−toName ZW = "Zimbabwe"-- | to json: as a simple string

1293+toName ZW = "Zimbabwe"

1294+

1295+-- | to json: as a simple string

12941296instance ToJSON CountryCode where

12951297 toJSON =toJSON . toText

12961298