From 7ccbf5868d597ed8df451b403280ec03509052e2 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Mon, 14 Mar 2022 17:32:34 +0100
Subject: [PATCH] chore(lms): reinstate CSV examples, sorting working now

---
 src/Handler/LMS/Result.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/Handler/LMS/Result.hs b/src/Handler/LMS/Result.hs
index e54f3da1e..473f1443a 100644
--- a/src/Handler/LMS/Result.hs
+++ b/src/Handler/LMS/Result.hs
@@ -78,7 +78,7 @@ embedRenderMessage ''UniWorX ''LmsResultCsvException id
 
 mkResultTable :: SchoolId -> QualificationShorthand -> QualificationId -> DB (Any, Widget)
 mkResultTable sid qsh qid = do  
-  _now_day <- utctDay <$> liftIO getCurrentTime
+  now_day <- utctDay <$> liftIO getCurrentTime
   dbtCsvName <- csvFilenameLmsResult qsh
   let dbtCsvSheetName = dbtCsvName
   let
@@ -111,19 +111,17 @@ mkResultTable sid qsh qid = do
         dbtParams = def
         dbtIdent :: Text
         dbtIdent = "lms-result"        
-        dbtCsvEncode = Just DBTCsvEncode
+        dbtCsvEncode = Just DBTCsvEncode 
           { dbtCsvExportForm   = pure ()
           , dbtCsvDoEncode     = \() -> C.map (doEncode' . view _2)
           , dbtCsvName 
           , dbtCsvSheetName
           , dbtCsvNoExportData = Just id
           , dbtCsvHeader       = const $ return lmsResultTableCsvHeader
-          , dbtCsvExampleData  = Nothing 
-          {-, dbtCsvExampleData  = Just 
+          , dbtCsvExampleData  = Just 
             [ LmsResultTableCsv{csvLRTident = LmsIdent lid, csvLRTsuccess = LmsDay $ addDays (-dos) now_day } 
             | (lid,dos) <- zip ["abcdefgh", "12345678", "ident8ch"] [1..]          
-            ]
-          -}
+            ]          
           }
           where 
             doEncode' = LmsResultTableCsv