Update LMS.hs

2022-03-31 17:15:07 +02:00 · 2022-03-31 17:15:07 +02:00 · e96de2cd65
commit e96de2cd65
parent e669e495f9
1 changed files with 6 additions and 0 deletions
--- 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