From 16e45a1e420e40d872a5251ee426176b3b5fde1a Mon Sep 17 00:00:00 2001 From: Stephan Barth Date: Tue, 24 Sep 2024 11:44:29 +0200 Subject: [PATCH] chore(versionbump): Additional restrictions added; redundant imports removed. --- src/Utils/Exam/Correct.hs | 2 +- src/Utils/Files.hs | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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])