Merge branch 'csv-osis-demo' of gitlab2.rz.ifi.lmu.de:FraDrive/fradrive into csv-osis-demo

2022-04-01 15:36:02 +02:00 · 2022-04-01 15:36:02 +02:00 · dd039f161f
commit dd039f161f
parent 8991bdd41f e96de2cd65
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