feat: log sent notifications for analysis

See #535

models/jobs.model

@@ -16,3 +16,10 @@ CronLastExec
     time                UTCTime -- When was the job executed
     instance            InstanceId -- Which uni2work-instance did the work
     UniqueCronLastExec job
+
+
+SentNotification
+    content             Value
+    user                UserId
+    time                UTCTime
+    instance            InstanceId

src/Jobs/Handler/SendNotification.hs

@@ -22,4 +22,10 @@ import Jobs.Handler.SendNotification.CourseRegistered
 
 
 dispatchJobSendNotification :: UserId -> Notification -> Handler ()
-dispatchJobSendNotification jRecipient jNotification = $(dispatchTH ''Notification) jNotification jRecipient
+dispatchJobSendNotification jRecipient jNotification = do
+  $(dispatchTH ''Notification) jNotification jRecipient
+
+  instanceID' <- getsYesod $ view instanceID
+  now <- liftIO getCurrentTime
+
+  runDB . insert_ $ SentNotification (toJSON jNotification) jRecipient now instanceID'