From 0a99c4d47f7af429d4b0809774e5abbdcc0ba567 Mon Sep 17 00:00:00 2001
From: jpmoresmau <jp@moresmau.fr>
Date: Mon, 28 Apr 2014 19:46:23 +0200
Subject: [PATCH] remove ToMessage instance

---
 exe/Main.hs                       | 5 +----
 src/Data/CountryCodes/ISO31661.hs | 6 +-----
 2 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/exe/Main.hs b/exe/Main.hs
index ca0853b..1cfad53 100644
--- a/exe/Main.hs
+++ b/exe/Main.hs
@@ -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
diff --git a/src/Data/CountryCodes/ISO31661.hs b/src/Data/CountryCodes/ISO31661.hs
index 793dc97..6522054 100644
--- a/src/Data/CountryCodes/ISO31661.hs
+++ b/src/Data/CountryCodes/ISO31661.hs
@@ -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