chore(letter): make updateReceivers failsafe

2023-01-27 12:27:10 +01:00 · 2023-01-27 12:27:10 +01:00 · d21d66781d
commit d21d66781d
parent 43ace1c6a0
1 changed files with 2 additions and 1 deletions
--- a/src/Handler/Utils/Avs.hs
+++ b/src/Handler/Utils/Avs.hs
@ -502,7 +502,8 @@ updateReceivers uid = do
          pure usrAvs
        )
  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
  receivers <- runDB (catMaybes <$> mapM getEntity receiverIDs)
  return $ if null receivers