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

chore(legal): fix build

Browse Source
This commit is contained in:
Steffen Jost 2022-11-11 18:13:38 +01:00
parent 0d9c2963d5
commit e1f410375c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Foundation/Navigation.hs
View File

@ -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
}

2
src/Foundation/SiteLayout.hs
View File

@ -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)