From f2e6435a0371a9066a0def69cef7260a66f652d1 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Mon, 17 Aug 2020 11:29:48 +0200
Subject: [PATCH] chore: move Utils.Exam to Utils.Exam.Correct

---
 src/Handler/Exam/Correct.hs            | 2 +-
 src/Handler/ExternalExam/Correct.hs    | 2 +-
 src/Utils/{Exam.hs => Exam/Correct.hs} | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)
 rename src/Utils/{Exam.hs => Exam/Correct.hs} (99%)

diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs
index 2a51d2e55..cc373b0bd 100644
--- a/src/Handler/Exam/Correct.hs
+++ b/src/Handler/Exam/Correct.hs
@@ -14,7 +14,7 @@ import Database.Persist.Sql (transactionUndo)
 import Handler.Utils
 import Handler.Utils.Exam (fetchExam)
 
-import Utils.Exam
+import Utils.Exam.Correct
 
 
 -- | Minimum length of a participant identifier. Identifiers that are shorter would result in too many query results and are therefor rejected.
diff --git a/src/Handler/ExternalExam/Correct.hs b/src/Handler/ExternalExam/Correct.hs
index d91dd4590..8e4987be4 100644
--- a/src/Handler/ExternalExam/Correct.hs
+++ b/src/Handler/ExternalExam/Correct.hs
@@ -15,7 +15,7 @@ import Handler.Utils
 import Handler.Utils.ExternalExam
 import Handler.Utils.Users
 
-import Utils.Exam
+import Utils.Exam.Correct
 
 
 -- | Minimum length of a participant identifier. Identifiers that are shorter would result in too many query results and are therefor rejected.
diff --git a/src/Utils/Exam.hs b/src/Utils/Exam/Correct.hs
similarity index 99%
rename from src/Utils/Exam.hs
rename to src/Utils/Exam/Correct.hs
index ea025fb1e..eec2fc30a 100644
--- a/src/Utils/Exam.hs
+++ b/src/Utils/Exam/Correct.hs
@@ -1,4 +1,4 @@
-module Utils.Exam
+module Utils.Exam.Correct
   ( CorrectInterfaceRequest(..)
   , CorrectInterfaceResponse(..), ciResponseStatus
   , CorrectInterfaceUser(..), userToResponse