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

emver for registry appears complete, more testing required but should be ready for beta testing

Browse Source
This commit is contained in:
Keagan McClelland
2020-10-28 17:43:36 -06:00
parent 8cad3095fa
commit 28edfc2f87
16 changed files with 416 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Version.hs
View File

@@ -14,7 +14,7 @@ import Yesod.Core
import Foundation
import Handler.Types.Status
import Lib.Registry
import Lib.Types.Semver
import Lib.Types.Emver
import Settings
import System.FilePath ( (</>) )
import Util.Shared
@@ -34,10 +34,10 @@ getVersionSysR :: Text -> Handler (Maybe AppVersionRes)
getVersionSysR sysAppId = runMaybeT $ do
sysDir <- (</> "sys") . resourcesDir . appSettings <$> getYesod
avr <- MaybeT $ getVersionWSpec sysDir sysExt
pure $ avr { appVersionMinCompanion = Just $ AppVersion (1, 1, 0, 0) }
pure $ avr { appVersionMinCompanion = Just $ Version (1, 1, 0, 0) }
where sysExt = Extension (toS sysAppId) :: Extension ""
getVersionWSpec :: KnownSymbol a => FilePath -> Extension a -> Handler (Maybe AppVersionRes)
getVersionWSpec rootDir ext = do
av <- getVersionFromQuery rootDir ext
pure $ liftA2 AppVersionRes av (pure Nothing)
pure $ liftA2 AppVersionRes av (pure Nothing)