a461d7f · typeable/country-codes

git.iko.soy/typeable/country-codes

Merge pull request #2 from JPMoresmau/master

remove ToMessage instance

commita461d7fe835817d688a2a27edcf6644fd54a5c41 authorJP Moresmau <jp@moresmau.fr> dateMon 28 Apr 2014, 19:47 (12 years ago) parenteb128a6 0a99c4d

2 files changed+2−9

unifiedsplit

exe/Main.hs+1−4

@@ -119,10 +119,7 @@ generate assocs =

119119 " | Just a <- fromMText s=pure a" <> nl <>

120120 " parseJSON _ =fail \"CountryCode\"" <> nl <> nl

121121 sp = json <>

122− "-- | show user readable name" <> nl <>

123− "instance ToMessage CountryCode where" <> nl <>

124− " toMessage = toName" <> nl <> nl <>

125− "-- | show user readable name, in english (ignoring locale for now)" <> nl <>

122+ "-- | show user readable name, in English (ignoring locale for now)" <> nl <>

126123 "instance RenderMessage master CountryCode where" <> nl <>

127124 " renderMessage _ _ = toName" <> nl <> nl

128125 in sp

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

@@ -1556,11 +1556,7 @@ instance FromJSON CountryCode where

15561556 | Just a <- fromMText s=pure a

15571557 parseJSON _ =fail "CountryCode"

15581558

1559−-- | show user readable name

1560−instance ToMessage CountryCode where

1561− toMessage = toName

1562−

1563−-- | show user readable name, in english (ignoring locale for now)

1559+-- | show user readable name, in English (ignoring locale for now)

15641560instance RenderMessage master CountryCode where

15651561 renderMessage _ _ = toName

15661562