Make integration test more idiomatic.

Author: fisx

integration/test/Test/Teams.hs

@@ -494,7 +494,7 @@ testListUsersEmailVisibility = do
   withModifiedBackend overrides $ \dom -> do
     let userToQId mem = do
           memId <- mem %. "id" >>= asString
-          pure $ object ["domain" .= dom, "id" .= memId]
+          pure $ objQidObject memId
 
     (owner, _tid, mems) <- createTeam dom 5
     memQIds <- for mems userToQId