From d21d66781d1eda9aa51aceb300d9f9519ef1810c Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 27 Jan 2023 12:27:10 +0100
Subject: [PATCH] chore(letter): make updateReceivers failsafe

---
 src/Handler/Utils/Avs.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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