fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Steffen Jost 2022-04-01 15:36:02 +02:00
commit dd039f161f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Jobs/Handler/LMS.hs
View File

@ -33,6 +33,12 @@ dispatchJobLmsEnqueue _qid = JobHandlerAtomic act
freshPin = "1234" -- TODO freshPin = "1234" -- TODO
cutoff = addDiffDays refreshTime now cutoff = addDiffDays refreshTime now
{-
whileM .. $ do
ident <- ... -- use System.Random for now for ident gen
MaybeT . E.insert $ ...
-}
E.insertSelect ( do E.insertSelect ( do
quser <- E.from (E.table @QualificationUser) quser <- E.from (E.table @QualificationUser)
E.where_ ( quser E.^. QualificationUserQualification E.==. E.val qid E.where_ ( quser E.^. QualificationUserQualification E.==. E.val qid