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

filter empty lists

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-30 21:07:52 -04:00
parent 87ae8f6150
commit 04da258d0e
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Package/V1/Index.hs
View File

@@ -99,6 +99,8 @@ import Data.List (last)
import Data.Text (isPrefixOf)
import Startlude (length)
import Control.Monad.Logger (logWarn)
import Data.Bool (not)
import Data.List (null)
data PackageReq = PackageReq
{ packageReqId :: !PkgId
@@ -220,8 +222,7 @@ getPackageDependencies PackageMetadata{packageMetadataPkgId = pkg, packageMetada
pkgDepInfo' <- getPkgDependencyData pkg pkgVersion
let pkgDepInfo = fmap (\a -> (entityVal $ fst a, entityVal $ snd a)) pkgDepInfo'
pkgDepInfoWithVersions <- traverse getDependencyVersions (fst <$> pkgDepInfo)
$logWarn $ show pkgDepInfoWithVersions
let depMetadata = zipWith formatDependencyInfo pkgDepInfo pkgDepInfoWithVersions
let depMetadata = zipWith formatDependencyInfo pkgDepInfo $ filter (not . null) pkgDepInfoWithVersions
lift $
fmap HM.fromList $
for depMetadata $ \(depId, title, v, isLocal) -> do