diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs index 18fc6e6..a371fd9 100644 --- a/src/Handler/Util.hs +++ b/src/Handler/Util.hs @@ -163,7 +163,7 @@ tickleMAU = do Nothing -> pure () Just arch -> do now <- liftIO getCurrentTime - void $ liftHandler $ runDB $ insertRecord $ UserActivity now sid currentEosVersion arch + void $ liftHandler $ runDB $ insertRecord $ UserActivity now sid (Just currentEosVersion) $ Just arch fetchCompatiblePkgVersions :: Maybe VersionRange -> PkgId -> Handler [VersionRecord] diff --git a/src/Model.hs b/src/Model.hs index 62d252e..b8970d9 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -138,8 +138,8 @@ PkgDependency UserActivity createdAt UTCTime serverId Text - osVersion Version - arch OsArch + osVersion Version Maybe + arch OsArch Maybe Admin Id Text