From e80d883ebdeb266f7e75d28fa64de87d08af9e9f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 1 Jun 2018 12:01:34 +0200 Subject: [PATCH] Adjust submission file-dbtTable for new SQL --- src/Handler/Submission.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 08996f47e..28c0639a7 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -215,9 +215,9 @@ postSubmissionR tid csh shn (SubmissionMode mcid) = do -- Maybe construct a table to display uploaded archive files let colonnadeFiles cid = mconcat -- [ sortable (Just "type") "Typ" $ \(_,_, E.Value ftype) -> textCell $ toPathPiece ftype - [ sortable (Just "path") "Dateiname" $ anchorCell (\(Entity _ File{..}) -> SubmissionDownloadSingleR cid fileTitle) - (\(Entity _ File{..}) -> str2widget fileTitle) - , sortable (Just "time") "Modifikation" $ \(Entity _ File{..}) -> stringCell $ formatTimeGerWDT fileModified + [ sortable (Just "path") "Dateiname" $ anchorCell (\(_, (Entity _ File{..})) -> SubmissionDownloadSingleR cid fileTitle) + (\(_, (Entity _ File{..})) -> str2widget fileTitle) + , sortable (Just "time") "Modifikation" $ \(_, (Entity _ File{..})) -> stringCell $ formatTimeGerWDT fileModified ] smid2ArchiveTable (smid,cid) = DBTable { dbtSQLQuery = submissionFileQuery smid