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