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

fix build

Browse Source
This commit is contained in:
Steffen Jost 2023-10-09 16:30:07 +00:00
parent 9caf2af540
commit bc0b449689
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Foundation/Navigation.hs
View File

@ -124,7 +124,7 @@ breadcrumb ProblemAvsSynchR = i18nCrumb MsgProblemsAvsSynchHeading $ Just
breadcrumb ProblemAvsErrorR = i18nCrumb MsgProblemsAvsErrorHeading $ Just ProblemAvsSynchR breadcrumb ProblemAvsErrorR = i18nCrumb MsgProblemsAvsErrorHeading $ Just ProblemAvsSynchR
breadcrumb FirmAllR = i18nCrumb MsgMenuFirms Nothing breadcrumb FirmAllR = i18nCrumb MsgMenuFirms Nothing
breadcrumb FirmR = i18nCrumb MsgMenuFirms $ Just FirmAllR breadcrumb FirmR{} = i18nCrumb MsgMenuFirms $ Just FirmAllR
breadcrumb PrintCenterR = i18nCrumb MsgMenuApc Nothing breadcrumb PrintCenterR = i18nCrumb MsgMenuApc Nothing
breadcrumb PrintSendR = i18nCrumb MsgMenuPrintSend $ Just PrintCenterR breadcrumb PrintSendR = i18nCrumb MsgMenuPrintSend $ Just PrintCenterR

6
src/Handler/Firm.hs
View File

@ -14,7 +14,7 @@ module Handler.Firm
import Import import Import
-- import Jobs -- import Jobs
import Handler.Utils -- import Handler.Utils
-- import qualified Data.Set as Set -- import qualified Data.Set as Set
-- import qualified Data.Map as Map -- import qualified Data.Map as Map
@ -32,8 +32,8 @@ import Handler.Utils
-- avoids repetition of local definitions -- avoids repetition of local definitions
single :: (k,a) -> Map k a -- single :: (k,a) -> Map k a
single = uncurry Map.singleton -- single = uncurry Map.singleton
getFirmAllR :: Handler Html getFirmAllR :: Handler Html