changed menuItemType of Uebungsblaetter

2018-03-29 00:23:24 +02:00 · 2018-03-29 00:23:24 +02:00 · 33a99b0f62
commit 33a99b0f62
parent 9858224bdd
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@ -93,7 +93,7 @@ getCourseShowR tid csh = do
  let course = entityVal courseEnt
  (regWidget, regEnctype) <- generateFormPost $ identifyForm "registerBtn" $ registerButton $ mbRegistered
  let pageActions =
-        [ NavbarAside $ MenuItem
+        [ PageActionPrime $ MenuItem
          { menuItemLabel = "Übungsblätter"
          , menuItemIcon  = Nothing
          , menuItemRoute = CSheetR tid csh SheetListR