diff --git a/src/Handler/Exam/Form.hs b/src/Handler/Exam/Form.hs
index a8d88a206..1e9138afa 100644
--- a/src/Handler/Exam/Form.hs
+++ b/src/Handler/Exam/Form.hs
@@ -151,13 +151,13 @@ examForm (Entity _ Course{..}) template csrf = hoist liftHandler $ do
     <*> let
           reqContentField :: (FieldSettings UniWorX -> FieldSettings UniWorX) -> AForm Handler StoredMarkup
           reqContentField ttip = areq htmlField
-                               (fslI MsgExamAuthorshipStatementContent & ttip)
-                               ( join $ (efAuthorshipStatement <$> template)
-                                    <|> (pure . authorshipStatementDefinitionContent . entityVal <$> mSchoolAuthorshipStatement)
-                               )
-          forcedContentField = aforced htmlField
-                               (fslI MsgExamAuthorshipStatementContent & setTooltip MsgExamAuthorshipStatementAllowOtherFalseTip)
-                               (maybe mempty (authorshipStatementDefinitionContent . entityVal) mSchoolAuthorshipStatement)
+                                 (fslI MsgExamAuthorshipStatementContent & ttip)
+                                 (     (join $ efAuthorshipStatement <$> template)
+                                   <|> (authorshipStatementDefinitionContent . entityVal <$> mSchoolAuthorshipStatement)
+                                 )
+          forcedContentField   = aforced htmlField
+                                 (fslI MsgExamAuthorshipStatementContent & setTooltip MsgExamAuthorshipStatementAllowOtherFalseTip)
+                                 (maybe mempty (authorshipStatementDefinitionContent . entityVal) mSchoolAuthorshipStatement)
           contentField ttipReq = bool forcedContentField (reqContentField ttipReq) schoolSheetExamAuthorshipStatementAllowOther
         in case schoolSheetExamAuthorshipStatementMode of
           SchoolAuthorshipStatementModeNone -> pure Nothing  -- suppress display of whole section incl. header