typeable/country-codes
1
0
Fork 0
mirror of https://github.com/typeable/country-codes.git synced 2024-07-07 02:06:45 +03:00
Code Issues Projects Releases Wiki Activity

remove ToMessage instance

Browse Source
This commit is contained in:
jpmoresmau 2014-04-28 19:46:23 +02:00
parent 5dde0f00b9
commit 0a99c4d47f
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
exe/Main.hs
View File

@ -119,10 +119,7 @@ generate assocs =
" | Just a <- fromMText s=pure a" <> nl <>
" parseJSON _ =fail \"CountryCode\"" <> nl <> nl
sp = json <>
"-- | show user readable name" <> nl <>
"instance ToMessage CountryCode where" <> nl <>
" toMessage = toName" <> nl <> nl <>
"-- | show user readable name, in english (ignoring locale for now)" <> nl <>
"-- | show user readable name, in English (ignoring locale for now)" <> nl <>
"instance RenderMessage master CountryCode where" <> nl <>
" renderMessage _ _ = toName" <> nl <> nl
in sp

6
src/Data/CountryCodes/ISO31661.hs
View File

@ -1556,11 +1556,7 @@ instance FromJSON CountryCode where
| Just a <- fromMText s=pure a
parseJSON _ =fail "CountryCode"
-- | show user readable name
instance ToMessage CountryCode where
toMessage = toName
-- | show user readable name, in english (ignoring locale for now)
-- | show user readable name, in English (ignoring locale for now)
instance RenderMessage master CountryCode where
renderMessage _ _ = toName