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

refactor(linter): implement minor hlit suggestion

Browse Source
This commit is contained in:
Steffen Jost 2024-08-08 17:30:03 +02:00
parent 0af8598d6d
commit d209a110e8
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Communication.hs
View File

@ -176,7 +176,7 @@ commR CommunicationRoute{..} = do
) )
| (pos, recp) <- zip [0..] | (pos, recp) <- zip [0..]
( mcons (Left <$> globalCC) ( mcons (Left <$> globalCC)
(Right <$> Set.toList (Set.fromList (map entityKey chosenRecipients) \\ Set.fromList (concatMap (map entityKey) $ view _2 <$> suggestedRecipients))) (Right <$> Set.toList (Set.fromList (map entityKey chosenRecipients) \\ Set.fromList (concatMap (map entityKey . view _2) suggestedRecipients)))
) )
] ]
activeCategories = map RecipientGroup (view _1 <$> suggestedRecipients) `snoc` RecipientCustom activeCategories = map RecipientGroup (view _1 <$> suggestedRecipients) `snoc` RecipientCustom