aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message/Key.hs14
1 files changed, 5 insertions, 9 deletions
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