diff --git a/src/Utils/Exam/Correct.hs b/src/Utils/Exam/Correct.hs
index 3a6b95433..b74a6cc02 100644
--- a/src/Utils/Exam/Correct.hs
+++ b/src/Utils/Exam/Correct.hs
@@ -12,7 +12,7 @@ import Import.NoFoundation
 
 import qualified Data.Aeson as JSON
 import qualified Data.Aeson.KeyMap as KeyMap
-import qualified Data.HashMap.Strict as HashMap
+-- import qualified Data.HashMap.Strict as HashMap
 
 
 data CorrectInterfaceUser
diff --git a/src/Utils/Files.hs b/src/Utils/Files.hs
index 4358c947b..3b65a6148 100644
--- a/src/Utils/Files.hs
+++ b/src/Utils/Files.hs
@@ -226,6 +226,7 @@ type FileUploads = ConduitT () FileReference (HandlerFor UniWorX) ()
 
 replaceFileReferences' :: ( MonadIO m, MonadThrow m
                           , IsFileReference record
+                          , SafeToInsert record
                           , PersistEntityBackend record ~ SqlBackend
                           )
                        => (FileReferenceResidual record -> [Filter record])
@@ -261,6 +262,7 @@ replaceFileReferences' mkFilter residual = do
 replaceFileReferences :: ( MonadHandler m, MonadThrow m
                          , HandlerSite m ~ UniWorX
                          , IsFileReference record
+                         , SafeToInsert record
                          , PersistEntityBackend record ~ SqlBackend
                          )
                       => (FileReferenceResidual record -> [Filter record])