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

rework package list endpoint, version latest, and release notes

Browse Source
This commit is contained in:
Lucy Cifferello
2021-07-16 12:04:56 -04:00
committed by Keagan McClelland
parent d53262e143
commit 2ee06007c7
3 changed files with 126 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Util/Shared.hs
View File

@@ -1,3 +1,5 @@
{-# LANGUAGE TemplateHaskell #-}
module Util.Shared where
import Startlude hiding (Handler)
@@ -23,9 +25,15 @@ getVersionFromQuery rootDir ext = do
getBestVersion :: (MonadIO m, KnownSymbol a, MonadLogger m) => FilePath -> Extension a -> VersionRange -> m (Maybe Version)
getBestVersion rootDir ext spec = do
-- @TODO change to db query?
appVersions <- liftIO $ getAvailableAppVersions rootDir ext
$logInfo $ show appVersions
$logInfo $ show spec
$logInfo $ show ext
let satisfactory = filter ((<|| spec) . fst . unRegisteredAppVersion) appVersions
let best = getMax <$> foldMap (Just . Max . fst . unRegisteredAppVersion) satisfactory
$logInfo $ show satisfactory
$logInfo $ show best
pure best
addPackageHeader :: (MonadHandler m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> m ()