Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-04 13:49:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

insert user activity even if version and arch do not exist

Browse Source
This commit is contained in:
Lucy Cifferello
2022-12-02 10:34:07 -07:00
parent dd0e2557c7
commit 50aa51413e
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/Handler/Util.hs
View File

@@ -156,14 +156,10 @@ tickleMAU = do
lookupGetParam "server-id" >>= \case lookupGetParam "server-id" >>= \case
Nothing -> pure () Nothing -> pure ()
Just sid -> do Just sid -> do
queryParamAs "eos-version" parseVersion >>= \case currentEosVersion <- queryParamAs "eos-version" parseVersion
Nothing -> pure () arch <- getArchQuery
Just currentEosVersion -> do now <- liftIO getCurrentTime
getArchQuery >>= \case void $ liftHandler $ runDB $ insertRecord $ UserActivity now sid currentEosVersion arch
Nothing -> pure ()
Just arch -> do
now <- liftIO getCurrentTime
void $ liftHandler $ runDB $ insertRecord $ UserActivity now sid (Just currentEosVersion) $ Just arch
fetchCompatiblePkgVersions :: Maybe VersionRange -> PkgId -> Handler [VersionRecord] fetchCompatiblePkgVersions :: Maybe VersionRange -> PkgId -> Handler [VersionRecord]