From 9bf8c50756c704bb06fb11609b8c8b261e3a56e2 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 29 Nov 2022 14:08:54 -0500
Subject: [PATCH] allow previous user activity records to contain null values

---
 src/Handler/Util.hs | 2 +-
 src/Model.hs        | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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