diff --git a/libs/wire-subsystems/src/Wire/ConversationStore/Cassandra.hs b/libs/wire-subsystems/src/Wire/ConversationStore/Cassandra.hs index cab006f346..8a535b2aa4 100644 --- a/libs/wire-subsystems/src/Wire/ConversationStore/Cassandra.hs +++ b/libs/wire-subsystems/src/Wire/ConversationStore/Cassandra.hs @@ -1515,11 +1515,11 @@ filterUsersInPostgres uids = do groupIdToConvId :: (Member (Error MigrationError) r) => GroupId -> Sem r ConvId groupIdToConvId gid = case groupIdToConv gid of - Left _ -> throw InvalidGroupId + Left e -> throw $ InvalidGroupId gid e Right (_, gidParts) -> pure gidParts.qConvId.qUnqualified.conv data MigrationError - = InvalidGroupId + = InvalidGroupId GroupId String | FailedToAcquireMigrationLock MigrationLockError deriving (Show)