diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 7cf47ae44..89e20f559 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -232,8 +232,6 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do mArCid <- fmap ZIPArchiveName <$> traverse encrypt msmid - let pageTitle = MsgSubmissionEditHead tid csh shn - let formTitle = pageTitle let formText = Nothing :: Maybe UniWorXMessage actionUrl <- Data.Maybe.fromJust <$> getCurrentRoute -- Maybe construct a table to display uploaded archive files @@ -261,19 +259,8 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do mFileTable <- traverse (dbTable def) . fmap smid2ArchiveTable $ (,) <$> msmid <*> mcid defaultLayout $ do - setTitleI pageTitle - $(widgetFile "formPageI18n") - [whamlet| - $maybe arCid <- mArCid -