From b36a15c0b2220c57c7840b6d9055451136a451c0 Mon Sep 17 00:00:00 2001
From: Wolfgang Witt <Wolfgang.Witt@campus.lmu.de>
Date: Tue, 2 Mar 2021 13:26:58 +0100
Subject: [PATCH] chore(test): type of examOccurrenceCapacity changed

---
 test/Handler/Utils/ExamSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Handler/Utils/ExamSpec.hs b/test/Handler/Utils/ExamSpec.hs
index d9fdd718e..839e186f3 100644
--- a/test/Handler/Utils/ExamSpec.hs
+++ b/test/Handler/Utils/ExamSpec.hs
@@ -168,7 +168,7 @@ spec = do
                 createOccurrences acc
                     |  sum (map snd acc) < totalSpaceRequirement = do
                         Entity {entityKey, entityVal} <- Entity <$> arbitrary <*> arbitrary
-                        createOccurrences $ (entityKey, examOccurrenceCapacity entityVal) : acc
+                        createOccurrences $ (entityKey, fromIntegral $ examOccurrenceCapacity entityVal) : acc
                     | otherwise = pure acc
             Map.fromList <$> createOccurrences []
         genNudge :: [(Int, Integer)] -> Map ExamOccurrenceId Integer -> ExamOccurrenceId -> Gen (Map ExamOccurrenceId Integer)