From 3510d58fac2254fa40384d7eefbff58fa64d33f0 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Wed, 23 Mar 2022 12:46:22 -0600
Subject: [PATCH] make get info a json response

---
 src/Handler/Marketplace.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index 6e8c704..ff940b0 100644
--- a/src/Handler/Marketplace.hs
+++ b/src/Handler/Marketplace.hs
@@ -133,14 +133,14 @@ import           Yesod.Core.Types               ( JSONResponse(..) )
 import           Yesod.Persist                  ( YesodDB )
 import           Yesod.Persist.Core             ( YesodPersist(runDB) )
 
-getInfoR :: Handler InfoRes
+getInfoR :: Handler (JSONResponse InfoRes)
 getInfoR = do
     name          <- getsYesod $ marketplaceName . appSettings
     allCategories <- runDB $ select $ do
         cats <- from $ table @Category
         orderBy [asc (cats ^. CategoryPriority)]
         pure cats
-    pure $ InfoRes name $ categoryName . entityVal <$> allCategories
+    pure $ JSONResponse $ InfoRes name $ categoryName . entityVal <$> allCategories
 
 getEosVersionR :: Handler (JSONResponse (Maybe EosRes))
 getEosVersionR = do