From d1c0b67627ddc1fc9b380e9ab61093175845a0c2 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Fri, 22 Feb 2019 13:00:13 +0100
Subject: [PATCH] Default sorting for TermListR added

---
 src/Handler/Term.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Handler/Term.hs b/src/Handler/Term.hs
index 47791c026..d6accb27c 100644
--- a/src/Handler/Term.hs
+++ b/src/Handler/Term.hs
@@ -68,7 +68,7 @@ getTermShowR = do
     provideRep $ toJSON . map fst <$> runDB (E.select $ E.from termData)
     provideRep $ do
       let colonnadeTerms = widgetColonnade $ mconcat
-            [ sortable (Just "termid") "Kürzel" $ \(Entity tid _, _) -> anchorCell
+            [ sortable (Just "term-id") "Kürzel" $ \(Entity tid _, _) -> anchorCell
                 (TermCourseListR tid)
                 [whamlet|#{toPathPiece tid}|]
             , sortable (Just "lecture-start") (i18nCell MsgLectureStart) $ \(Entity _ Term{..},_) ->
@@ -104,7 +104,7 @@ getTermShowR = do
 --                       #{termToText termName}
 --                 |]
 --           ]
-      let validator = def
+      let validator = def & defaultSorting [SortDescBy "term-id"]
       table <- runDB $ dbTableWidget' validator DBTable
         { dbtSQLQuery = termData
         , dbtRowKey = (E.^. TermId)
@@ -123,7 +123,7 @@ getTermShowR = do
             , ( "lecture-end"
               , SortColumn $ \term -> term E.^. TermLectureEnd
               )
-            , ( "termid"
+            , ( "term-id"
               , SortColumn $ \term -> term E.^. TermId
               )
             ]