diff --git a/src/Handler/Utils/Avs.hs b/src/Handler/Utils/Avs.hs index 4f71f84bd..9b38653d9 100644 --- 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