fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge with exercises and getCurrentRoute

Browse Source
This commit is contained in:
SJost 2018-06-07 11:37:59 +02:00
parent 5cf1840f09
commit 4383f46409
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course.hs
View File

@ -29,7 +29,7 @@ getCourseListR = redirect TermShowR
getTermCurrentR :: Handler Html getTermCurrentR :: Handler Html
getTermCurrentR = do 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 case fromNullable termIds of
Nothing -> notFound Nothing -> notFound
(Just (maximum -> tid)) -> getTermCourseListR tid (Just (maximum -> tid)) -> getTermCourseListR tid