From a8882071da12cbb5b0bf2f003322e42e181b0c82 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 26 Mar 2016 22:03:57 +0100
Subject: Use parsing duration facilities from config-manager

---
 src/server/Model/Message/Key.hs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

(limited to 'src/server/Model/Message/Key.hs')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index e9cbf99..6f29f43 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -4,9 +4,8 @@ module Model.Message.Key
   ( Key(..)
   ) where
 
-import GHC.Generics
-
-import Data.Aeson
+import qualified Data.Aeson as Json
+import qualified Data.Text as T
 
 data Key =
 
@@ -79,10 +78,7 @@ data Key =
   | NetworkError
   | UnexpectedPayload
 
-  deriving (Enum, Bounded, Show, Generic)
-
-instance ToJSON Key
+  deriving (Enum, Bounded, Show)
 
--- instance ToJSON Coord where
---   toJSON (Coord x y) = object ["x" .= x, "y" .= y]
---   toEncoding (Coord x y) = pairs ("x" .= x <> "y" .= y)
+instance Json.ToJSON Key where
+ toJSON = Json.String . T.pack . show
-- 
cgit v1.2.3