From e96de2cd650c8221c1cc821abf85d1c7ca0f3569 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel@cip.ifi.lmu.de>
Date: Thu, 31 Mar 2022 17:15:07 +0200
Subject: [PATCH] Update LMS.hs

---
 src/Jobs/Handler/LMS.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs
index 10b04354b..c9928f54c 100644
--- a/src/Jobs/Handler/LMS.hs
+++ b/src/Jobs/Handler/LMS.hs
@@ -33,6 +33,12 @@ dispatchJobLmsEnqueue _qid = JobHandlerAtomic act
           freshPin   = "1234" -- TODO
           cutoff     = addDiffDays refreshTime now
       
+      {-
+      whileM .. $ do
+        ident <- ... -- use System.Random for now for ident gen
+        MaybeT . E.insert $ ...
+      -}
+      
       E.insertSelect ( do 
           quser <- E.from (E.table @QualificationUser)
           E.where_ (  quser E.^. QualificationUserQualification E.==. E.val qid