From 227264743e0e8d0acf76839300a034b4bb1bf2a6 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 15 Jun 2021 13:04:53 +0200
Subject: [PATCH] fix(schools): insert correct authorship statement definition
 for exam-unrelated sheets

---
 src/Handler/School.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/School.hs b/src/Handler/School.hs
index 2cdaf0c33..e83a978cf 100644
--- a/src/Handler/School.hs
+++ b/src/Handler/School.hs
@@ -140,7 +140,7 @@ postSchoolEditR ssh = do
   formResult sfResult $ \SchoolForm{..} -> do
     runDB $ do
       let insertAuthorshipStatement = maybe (pure Nothing) $ fmap Just . insert . AuthorshipStatementDefinition
-      mSheetAuthorshipStatementId <- insertAuthorshipStatement sfSheetExamAuthorshipStatementDefinition
+      mSheetAuthorshipStatementId <- insertAuthorshipStatement sfSheetAuthorshipStatementDefinition
       mSheetExamAuthorshipStatementId <- insertAuthorshipStatement sfSheetExamAuthorshipStatementDefinition
       update ssh
         [ SchoolName =. sfName