Sheet file edit times shown

src/Handler/Sheet.hs

@@ -185,8 +185,8 @@ getSheetShowR tid csh shn = do
       -- filter to requested file
       E.where_ (sheet     E.^. SheetId      E.==. E.val sid )
       -- return desired columns
-      return $ (file E.^. FileTitle, sheetFile E.^. SheetFileType)
-  let fileLinks = map (\(E.Value fName, E.Value fType) -> CSheetR tid csh (SheetFileR shn fType fName)) fileNameTypes
+      return $ (file E.^. FileTitle, file E.^. FileModified, sheetFile E.^. SheetFileType)
+  let fileLinks = map (\(E.Value fName, E.Value modified, E.Value fType) -> (CSheetR tid csh (SheetFileR shn fType fName),modified)) fileNameTypes
   defaultLayout $ do
     setTitle $ toHtml $ T.append "Übung " $ sheetName sheet
     $(widgetFile "sheetShow")

templates/sheetShow.hamlet

@@ -26,14 +26,15 @@
             <div .col-lg-12>     
                 <h2>Dateien
                 <ul>
-                  $forall fileLink <- fileLinks
+                  $forall (fileLink,modified) <- fileLinks
                     <li>
                       $case fileLink
                         $of CourseR _ _ (SheetR (SheetFileR _ typ name))
                           #{toPathPiece typ}
                           <a href=@{fileLink}>#{name}
+                          #{formatTimeGerWDT modified}
                         $of other
                           <a href=@{fileLink}>@{fileLink}
-
+                          #{formatTimeGerWDT modified}
     <hr>