Merge with exercises and getCurrentRoute

2018-06-07 11:37:59 +02:00 · 2018-06-07 11:37:59 +02:00 · 4383f46409
commit 4383f46409
parent 5cf1840f09
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@ -29,7 +29,7 @@ getCourseListR = redirect TermShowR

 getTermCurrentR :: Handler Html
 getTermCurrentR = do
-  termIds  <- runDB $ selectKeysList [TermActive ==. True] []
+  termIds  <- runDB $ selectKeysList [TermActive ==. True] [] -- [Desc TermName] does not work, since database representation has wrong ordering
  case fromNullable termIds of
    Nothing -> notFound
    (Just (maximum -> tid)) -> getTermCourseListR tid