From 1218f939447ad2fb82c3be37bcc73b67bef29593 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Fri, 4 May 2018 10:36:50 +0200
Subject: [PATCH] Sheet file edit times shown

---
 src/Handler/Sheet.hs       | 4 ++--
 templates/sheetShow.hamlet | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index c7cc48ad4..e6e4069e6 100644
--- a/src/Handler/Sheet.hs
+++ b/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")
diff --git a/templates/sheetShow.hamlet b/templates/sheetShow.hamlet
index 0d2f4090d..b2a2fd16d 100644
--- a/templates/sheetShow.hamlet
+++ b/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>