Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-04-04 22:39:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

more casing

Browse Source
This commit is contained in:
Keagan McClelland
2021-01-18 20:57:33 -07:00
committed by Aiden McClelland
parent 41b01efed3
commit b3ab312088
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
agent/src/Handler/V0.hs
View File

@@ -153,7 +153,7 @@ expirationOsVersionLatest = 60
getOsVersionLatest :: MonadIO m => AgentCtx -> m (Maybe Version) getOsVersionLatest :: MonadIO m => AgentCtx -> m (Maybe Version)
getOsVersionLatest ctx = do getOsVersionLatest ctx = do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
let osVersionCache = appOSVersionLatest ctx let osVersionCache = appOsVersionLatest ctx
mCache <- liftIO . readIORef $ osVersionCache mCache <- liftIO . readIORef $ osVersionCache
case mCache of case mCache of
@@ -164,7 +164,7 @@ getOsVersionLatest ctx = do
repopulateCache :: MonadIO m => AgentCtx -> m (Maybe Version) repopulateCache :: MonadIO m => AgentCtx -> m (Maybe Version)
repopulateCache ctx = do repopulateCache ctx = do
let osVersionCache = appOSVersionLatest ctx let osVersionCache = appOsVersionLatest ctx
let s = appSettings ctx let s = appSettings ctx
eitherV <- interp s $ Reg.getLatestAgentVersion eitherV <- interp s $ Reg.getLatestAgentVersion