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

request for more PageHeadings

Browse Source
This commit is contained in:
Felix Hamann 2018-06-09 21:29:42 +02:00
parent 589329b01c
commit d16ed578bf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Foundation.hs
View File

@ -617,6 +617,9 @@ pageHeading HomeR
= Just [whamlet|_{MsgHomeHeading}|] = Just [whamlet|_{MsgHomeHeading}|]
pageHeading TermShowR pageHeading TermShowR
= Just [whamlet|_{MsgTermsHeading}|] = Just [whamlet|_{MsgTermsHeading}|]
-- TODO: add headings for single course- and single term-pages
-- pageHeading CourseR
-- = Just ...
pageHeading _ pageHeading _
= Nothing = Nothing