From 50aa51413e456dea4d8288a26e7c36b6e28cea8e Mon Sep 17 00:00:00 2001 From: Lucy Cifferello <12953208+elvece@users.noreply.github.com> Date: Fri, 2 Dec 2022 10:34:07 -0700 Subject: [PATCH] insert user activity even if version and arch do not exist --- src/Handler/Util.hs | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs index a371fd9..c57e2c9 100644 --- a/src/Handler/Util.hs +++ b/src/Handler/Util.hs @@ -156,14 +156,10 @@ tickleMAU = do lookupGetParam "server-id" >>= \case Nothing -> pure () Just sid -> do - queryParamAs "eos-version" parseVersion >>= \case - Nothing -> pure () - Just currentEosVersion -> do - getArchQuery >>= \case - Nothing -> pure () - Just arch -> do - now <- liftIO getCurrentTime - void $ liftHandler $ runDB $ insertRecord $ UserActivity now sid (Just currentEosVersion) $ Just arch + currentEosVersion <- queryParamAs "eos-version" parseVersion + arch <- getArchQuery + now <- liftIO getCurrentTime + void $ liftHandler $ runDB $ insertRecord $ UserActivity now sid currentEosVersion arch fetchCompatiblePkgVersions :: Maybe VersionRange -> PkgId -> Handler [VersionRecord]