From 2bea5435bf1e1ff9f1075433f831198d7235a097 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 30 Jan 2019 10:07:31 +0100
Subject: [PATCH] Avoid divide by zero

---
 src/Handler/Utils/Submission.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Submission.hs b/src/Handler/Utils/Submission.hs
index a397041a8..124da1b83 100644
--- 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'