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

Update LMS.hs

Browse Source
This commit is contained in:
Sarah Vaupel 2022-03-31 17:15:07 +02:00
parent e669e495f9
commit e96de2cd65
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