Handle missing supported protocols in mls-users (#5190)

Author: pcapriotti

changelog.d/3-bug-fixes/mls-users-supported-prots

@@ -0,0 +1 @@
+Fix bug where the mls-users tool would crash for users with null `supported_protocols`

tools/db/mls-users/src/MlsUsers/Lib.hs

@@ -42,7 +42,7 @@ getUserResult logger brigClient ur = do
     andM
       [ pure ur.activated,
         pure $ ur.status == Just Active,
-        pure $ Set.notMember BaseProtocolMLSTag ur.supportedProtocols,
+        pure $ Set.notMember BaseProtocolMLSTag (fold ur.supportedProtocols),
         -- check that the user has at least one active client
         do
           now <- getCurrentTime

tools/db/mls-users/src/MlsUsers/Types.hs

@@ -36,7 +36,7 @@ data UserRow = UserRow
   { userId :: UserId,
     activated :: Bool,
     status :: Maybe AccountStatus,
-    supportedProtocols :: Set BaseProtocolTag
+    supportedProtocols :: Maybe (Set BaseProtocolTag)
   }
   deriving (Generic)