diff --git a/src/Foundation.hs b/src/Foundation.hs index 8f56b2117..16b1e5209 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -655,7 +655,7 @@ submissionList tid csh shn uid = E.select . E.from $ \(course `E.InnerJoin` shee defaultLinks :: [MenuTypes] defaultLinks = -- Define the menu items of the header. - [ NavbarRight $ MenuItem + [ NavbarAside $ MenuItem { menuItemLabel = "Home" , menuItemIcon = Just "home" , menuItemRoute = HomeR