diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index bd329cf7e..86d52be0b 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -302,7 +302,7 @@ getSubmissionDownloadSingleR tid csh shn cID path = do let fileName = Text.pack $ takeFileName path case results of - [Entity _ File{ fileContent = Just c }] -> return $ TypedContent (defaultMimeLookup fileName) (toContent c) + [Entity _ File{ fileContent = Just c }] -> return $ TypedContent (defaultMimeLookup fileName <> "; charset=utf-8") (toContent c) _ -> notFound getSubmissionDownloadArchiveR :: TermId -> Text -> Text -> ZIPArchiveName SubmissionId -> Handler TypedContent