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

Avoid divide by zero

Browse Source
This commit is contained in:
Gregor Kleen 2019-01-30 10:07:31 +01:00
parent 78fc27dc04
commit 2bea5435bf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -130,7 +130,9 @@ assignSubmissions sid restriction = do
props = getSum $ foldMap (Sum . fst) assignments props = getSum $ foldMap (Sum . fst) assignments
toDeficit' (prop, assigned) = let toDeficit' (prop, assigned) = let
target = round $ fromInteger assigned' * (prop / props) target
| props == 0 = 0
| otherwise = round $ fromInteger assigned' * (prop / props)
in target - assigned in target - assigned
$logDebugS "assignSubmissions" $ "Previous submissions: " <> tshow prevSubs' $logDebugS "assignSubmissions" $ "Previous submissions: " <> tshow prevSubs'