Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

more dead code removal

Browse Source
This commit is contained in:
Keagan McClelland
2021-09-27 15:42:26 -06:00
parent 4dc632c80f
commit 410ccf9309
1 changed files with 0 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
src/Handler/Marketplace.hs
View File

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