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

chore(letter): make updateReceivers failsafe

Browse Source
This commit is contained in:
Steffen Jost 2023-01-27 12:27:10 +01:00
parent 43ace1c6a0
commit d21d66781d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Utils/Avs.hs
View File

@ -502,7 +502,8 @@ updateReceivers uid = do
pure usrAvs pure usrAvs
) )
let toUpdate = Set.fromList (userAvsPersonId . entityVal <$> mcons avsUnderling avsSupers) let toUpdate = Set.fromList (userAvsPersonId . entityVal <$> mcons avsUnderling avsSupers)
forM_ toUpdate (void . upsertAvsUserById) -- update postaddress from AVS
forM_ toUpdate (void . maybeCatchAll . upsertAvsUserById) -- attempt to update postaddress from AVS
let receiverIDs :: [UserId] = userAvsUser . entityVal <$> avsSupers let receiverIDs :: [UserId] = userAvsUser . entityVal <$> avsSupers
receivers <- runDB (catMaybes <$> mapM getEntity receiverIDs) receivers <- runDB (catMaybes <$> mapM getEntity receiverIDs)
return $ if null receivers return $ if null receivers