fraport/fradrive-old
Archived
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 { navLabel = MsgMenuDataProt
, navRoute = DataProtectionR , navRoute = DataProtectionR
, navAccess' = NavAccessTrue , navAccess' = NavAccessTrue
, navType = NavTypeLink { navModal = True } , navType = NavTypeLink { navModal = False }
, navQuick' = mempty , navQuick' = mempty
, navForceActive = False , navForceActive = False
} }
@ -643,7 +643,7 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the
{ navLabel = MsgMenuTermsUse { navLabel = MsgMenuTermsUse
, navRoute = TermsOfUseR , navRoute = TermsOfUseR
, navAccess' = NavAccessTrue , navAccess' = NavAccessTrue
, navType = NavTypeLink { navModal = True } , navType = NavTypeLink { navModal = False }
, navQuick' = mempty , navQuick' = mempty
, navForceActive = False , navForceActive = False
} }
@ -659,7 +659,7 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the
{ navLabel = MsgMenuImprint { navLabel = MsgMenuImprint
, navRoute = ImprintR , navRoute = ImprintR
, navAccess' = NavAccessTrue , navAccess' = NavAccessTrue
, navType = NavTypeLink { navModal = True } , navType = NavTypeLink { navModal = False }
, navQuick' = mempty , navQuick' = mempty
, navForceActive = False , navForceActive = False
} }

2
src/Foundation/SiteLayout.hs
View File

@ -422,7 +422,7 @@ siteLayout' overrideHeading widget = do
-> let route = navRoute' -> let route = navRoute'
ident = navIdent ident = navIdent
in $(widgetFile "widgets/footer/link") 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)]) navContainerItemWidget :: (Nav, Text, Maybe Text, [(NavLink, Text, Text)])
-> (NavLink, Text, Text) -> (NavLink, Text, Text)