fix(schools): insert correct authorship statement definition for exam-unrelated sheets

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