hotfix for getting os version from query param

This commit is contained in:
Lucy Cifferello
2023-11-15 17:07:33 -05:00
parent 0d5db1fa7a
commit d4483f8ca3

View File

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