From a11ad41b52ed3682d33382f2a378bf3294d688b2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 23 Mar 2016 00:45:33 +0100
Subject: Sign in token link to /

---
 src/server/Model/Message/Key.hs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/server/Model')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 4c0287b..b883132 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -1,7 +1,13 @@
+{-# LANGUAGE DeriveGeneric #-}
+
 module Model.Message.Key
   ( Key(..)
   ) where
 
+import GHC.Generics
+
+import Data.Aeson
+
 data Key =
 
   -- Title
@@ -77,4 +83,10 @@ data Key =
   | NetworkError
   | UnexpectedPayload
 
-  deriving (Enum, Bounded, Show)
+  deriving (Enum, Bounded, Show, Generic)
+
+instance ToJSON Key
+
+-- instance ToJSON Coord where
+--   toJSON (Coord x y) = object ["x" .= x, "y" .= y]
+--   toEncoding (Coord x y) = pairs ("x" .= x <> "y" .= y)
-- 
cgit v1.2.3