From 814427852b9a37173808fc81d076bcc3a51be873 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 13 Jul 2021 16:04:50 -0400
Subject: [PATCH] return just list of services, no categories

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

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index ba8efce..8b555ea 100644
--- a/src/Handler/Marketplace.hs
+++ b/src/Handler/Marketplace.hs
@@ -136,7 +136,7 @@ getCategoriesR = do
     allCategories <- runDB $ select $ do from $ table @Category
     pure $ CategoryRes $ categoryName . entityVal <$>allCategories
 
-getServiceListR :: Handler ServiceListRes
+getServiceListR :: Handler [ServiceAvailable]
 getServiceListR = do
     getParameters <- reqGetParams <$> getRequest
     let defaults = ServiceListDefaults {
@@ -172,14 +172,7 @@ getServiceListR = do
     filteredServices <- runDB $ searchServices category limit' ((page - 1) * limit') query
     domain <- getsYesod $ registryHostname . appSettings
     (appsDir, appMgrDir) <- getsYesod $ ((</> "apps") . resourcesDir &&& staticBinDir) . appSettings
-    services <- runDB $ traverse (mapEntityToServiceAvailable appMgrDir appsDir domain) filteredServices
-    pure $ ServiceListRes {
-          serviceListResCategories = [FEATURED .. MESSAGING]
-        , serviceListResServices = services
-    }
-
--- >>> readMaybe $ "0.3.0" :: Maybe Version
--- Just 0.3.0
+    runDB $ traverse (mapEntityToServiceAvailable appMgrDir appsDir domain) filteredServices
 
 getServiceR :: Handler ServiceRes
 getServiceR = do