From 9a1644f68efe7e76baf7844b3d0d6d4c40a5008c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 30 Jun 2018 21:30:21 +0200 Subject: [PATCH] minor submission cleanup (correct charset) --- src/Handler/Submission.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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