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