From a3f7d274732dbc484a324ad7df3eea3120a5e0e7 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Mon, 27 Sep 2021 15:42:26 -0600
Subject: [PATCH] more dead code removal

---
 src/Handler/Marketplace.hs | 69 --------------------------------------
 1 file changed, 69 deletions(-)

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index 65c7f95..13d26d7 100644
--- a/src/Handler/Marketplace.hs
+++ b/src/Handler/Marketplace.hs
@@ -283,9 +283,6 @@ getPackageListR = do
                 $ mapConcurrently (getServiceDetails settings packageMetadata Nothing) filteredServices'
             let (_, services) = partitionEithers serviceDetailResult
             pure $ ServiceAvailableRes services
-            -- if null errors
-            --     then pure $ ServiceAvailableRes services
-            --     else sendResponseStatus status500 ("Errors acquiring service details: " <> show <$> errors)
 
         Just packageVersionList -> case eitherDecode $ BS.fromStrict $ encodeUtf8 packageVersionList of
             Left e -> sendResponseStatus status400 ("could not parse query param \"ids\"" <> show e :: Text)
@@ -301,72 +298,6 @@ getPackageListR = do
                 -- @TODO fix _ error
                 let (_, services) = partitionEithers serviceDetailResult
                 pure $ ServiceAvailableRes services
-                            -- if null errors
-                            --     then pure $ ServiceAvailableRes services
-                            --     else sendResponseStatus status500 ("Errors acquiring service details: " <> show <$> errors)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
             where
                 getPackageDetails :: MonadIO m
                                   => (HM.HashMap PkgId ([Version], [CategoryTitle]))