chore(messaging): add debugging statements

src/Handler/Firm.hs

@@ -816,7 +816,8 @@ handleFirmCommR ultDest mbFsh = do
         )
       -}
 
-  selected <- mapM decryptUserId =<< lookupGlobalGetParams GetRecipient   -- retrieve selected users  
+  selected <- mapM decryptUserId =<< lookupGlobalGetParams GetRecipient   -- retrieve selected users    
+
   empys <- ifMaybeM mbCid selected (\cid ->  -- get all employees or stick with selected users, if no company was pre-selected (to limit choices)
     E.unValue <<$>> runDB (E.select $ do    
       (emp :& uc) <- E.from $ E.table @User `E.innerJoin` E.table @UserCompany `E.on` (\(emp :& uc) -> emp E.^. UserId E.==. uc E.^. UserCompanyUser)

src/Handler/Utils/Communication.hs

@@ -152,14 +152,14 @@ commR CommunicationRoute{..} =  do
         getEntity uid
 
     chosen' <- fmap (maybe id cons cUser . catMaybes) $ mapM decrypt' =<< lookupGlobalGetParams GetRecipient
-
+    
     return (suggested, chosen')
-  $logWarnS "COMM" "Communication handler DB done"
+  $logWarnS "COMM" ("Communication handler DB done with (sugg:" <> tshow (length suggestedRecipients) <> ", chosen:" <> tshow (length chosenRecipients) <> ")")
 
   let
     lookupUser :: UserId -> User
     lookupUser lId
-      = entityVal . unsafeHead . filter ((== lId) . entityKey) $ concatMap (view _2) suggestedRecipients ++ chosenRecipients
+      = entityVal . headDef (error $  "this is it" <> show lId) . filter ((== lId) . entityKey) $ concatMap (view _2) suggestedRecipients ++ chosenRecipients
 
   let chosenRecipients' = Map.fromList $
         [ ( (BoundedPosition $ RecipientGroup g, pos)