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

Traverse submissions in random order

Browse Source
This commit is contained in:
Gregor Kleen 2018-08-17 17:03:29 +02:00
parent 508ed2ecd9
commit 32da6b5585
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Utils/Submission.hs
View File

@ -166,7 +166,7 @@ assignSubmissions sid restriction = do
$logDebugS "assignSubmissions" $ "Deterministic Queue: " <> tshow detQueue $logDebugS "assignSubmissions" $ "Deterministic Queue: " <> tshow detQueue
queue <- liftIO . Rand.evalRandIO . execWriterT $ do queue <- liftIO . Rand.evalRandIO . execWriterT $ do
tell . map Just =<< Rand.shuffleM detQueue tell $ map Just detQueue
forever $ forever $
tell . pure =<< Rand.weightedMay [ (sheetCorrectorUser, byProportion sheetCorrectorLoad) | Entity _ SheetCorrector{..} <- corrsProp ] tell . pure =<< Rand.weightedMay [ (sheetCorrectorUser, byProportion sheetCorrectorLoad) | Entity _ SheetCorrector{..} <- corrsProp ]
@ -185,7 +185,9 @@ assignSubmissions sid restriction = do
transposed <- uses _3 invertMap transposed <- uses _3 invertMap
traverse (liftIO . Rand.evalRandIO . Rand.uniform . snd) (Map.lookupMax transposed) traverse (liftIO . Rand.evalRandIO . Rand.uniform . snd) (Map.lookupMax transposed)
subTutor <- fmap (view _1) . flip execStateT (Map.empty, queue, deficit) . forM_ (Map.toList subTutor') $ \(smid, tuts) -> do subTutor'' <- liftIO . Rand.evalRandIO . Rand.shuffleM $ Map.toList subTutor'
subTutor <- fmap (view _1) . flip execStateT (Map.empty, queue, deficit) . forM_ subTutor'' $ \(smid, tuts) -> do
let let
restrictTuts restrictTuts
| Set.null tuts = id | Set.null tuts = id