diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs index d62654208..86295fc77 100644 --- a/src/Foundation/Navigation.hs +++ b/src/Foundation/Navigation.hs @@ -635,7 +635,7 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the { navLabel = MsgMenuDataProt , navRoute = DataProtectionR , navAccess' = NavAccessTrue - , navType = NavTypeLink { navModal = True } + , navType = NavTypeLink { navModal = False } , navQuick' = mempty , navForceActive = False } @@ -643,7 +643,7 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the { navLabel = MsgMenuTermsUse , navRoute = TermsOfUseR , navAccess' = NavAccessTrue - , navType = NavTypeLink { navModal = True } + , navType = NavTypeLink { navModal = False } , navQuick' = mempty , navForceActive = False } @@ -659,7 +659,7 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the { navLabel = MsgMenuImprint , navRoute = ImprintR , navAccess' = NavAccessTrue - , navType = NavTypeLink { navModal = True } + , navType = NavTypeLink { navModal = False } , navQuick' = mempty , navForceActive = False } diff --git a/src/Foundation/SiteLayout.hs b/src/Foundation/SiteLayout.hs index faa1fe3ef..249ee5840 100644 --- a/src/Foundation/SiteLayout.hs +++ b/src/Foundation/SiteLayout.hs @@ -422,7 +422,7 @@ siteLayout' overrideHeading widget = do -> let route = navRoute' ident = navIdent in $(widgetFile "widgets/footer/link") - _other -> error "not implemented" + _other -> error "Treatment of this kind of Nav is not implemented." navContainerItemWidget :: (Nav, Text, Maybe Text, [(NavLink, Text, Text)]) -> (NavLink, Text, Text)