From d0504bc616f241f582cabd328c76ed4a2306cc10 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 20 Jul 2021 13:20:00 -0400
Subject: [PATCH] fix eos json response

---
 src/Handler/Marketplace.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index 6198fd3..140c56e 100644
--- a/src/Handler/Marketplace.hs
+++ b/src/Handler/Marketplace.hs
@@ -147,7 +147,12 @@ data EosRes = EosRes
     , eosResHeadline :: Text
     , eosResReleaseNotes :: ReleaseNotes
 } deriving (Eq, Show, Generic)
-instance ToJSON EosRes
+instance ToJSON EosRes where
+    toJSON EosRes { .. } = object 
+        [ "version" .= eosResVersion
+        , "headline" .= eosResHeadline
+        , "release-notes" .= eosResReleaseNotes
+        ]
 instance ToContent EosRes where
     toContent = toContent . toJSON
 instance ToTypedContent EosRes where