chore(lms): reinstate CSV examples, sorting working now

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