Avoid divide by zero

2019-01-30 10:07:31 +01:00 · 2019-01-30 10:07:31 +01:00 · 2bea5435bf
commit 2bea5435bf
parent 78fc27dc04
1 changed files with 3 additions and 1 deletions
--- a/src/Handler/Utils/Submission.hs
+++ b/src/Handler/Utils/Submission.hs
@ -130,7 +130,9 @@ assignSubmissions sid restriction = do
          props = getSum $ foldMap (Sum . fst) assignments

          toDeficit' (prop, assigned) = let
-              target = round $ fromInteger assigned' * (prop / props)
+              target
+                | props == 0 = 0
+                | otherwise  = round $ fromInteger assigned' * (prop / props)
            in target - assigned

    $logDebugS "assignSubmissions" $ "Previous submissions: " <> tshow prevSubs'