Skip to content

Comments

Sqservices 1546 number of devices in csv export in tm#2407

Merged
battermann merged 6 commits intodevelopfrom
SQSERVICES-1546-number-of-devices-in-csv-export-in-tm
May 20, 2022
Merged

Sqservices 1546 number of devices in csv export in tm#2407
battermann merged 6 commits intodevelopfrom
SQSERVICES-1546-number-of-devices-in-csv-export-in-tm

Conversation

@battermann
Copy link
Contributor

@battermann battermann commented May 18, 2022

https://wearezeta.atlassian.net/browse/SQSERVICES-1546

Checklist

  • The PR Title explains the impact of the change.
  • The PR description provides context as to why the change should occur and what the code contributes to that effect. This could also be a link to a JIRA ticket or a Github issue, if there is one.
  • changelog.d contains the following bits of information (details):
    • A file with the changelog entry in one or more suitable sub-sections. The sub-sections are marked by directories inside changelog.d.

@battermann battermann temporarily deployed to cachix May 18, 2022 10:58 Inactive
@battermann battermann temporarily deployed to cachix May 18, 2022 10:59 Inactive
@battermann battermann marked this pull request as ready for review May 18, 2022 11:00
@battermann battermann requested a review from fisx May 18, 2022 11:00
@battermann battermann temporarily deployed to cachix May 18, 2022 11:30 Inactive

(owner, tid, _mbs) <- Util.createBindingTeamWithNMembersWithHandles True numMembers
(owner, tid, mbs) <- Util.createBindingTeamWithNMembersWithHandles True numMembers
addClients (owner : mbs)
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

test one with no client, one with 1, and one with 2?

countOn :: Eq b => (a -> b) -> b -> [a] -> Int
countOn prop val xs = sum $ fmap (bool 0 1 . (== val) . prop) xs

addClients :: [UserId] -> TestM ()
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
addClients :: [UserId] -> TestM ()
addClients :: [(UserId, Int)] -> TestM ()

addClients :: [UserId] -> TestM ()
addClients xs = forM_ xs addClient

addClient :: UserId -> TestM ()
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
addClient :: UserId -> TestM ()
addClient :: (UserId, Int) -> TestM ()

addClients xs = forM_ xs addClient

addClient :: UserId -> TestM ()
addClient uid = do
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
addClient uid = do
addClient (uid, numClients) = do

@battermann battermann temporarily deployed to cachix May 19, 2022 14:41 Inactive
@battermann battermann force-pushed the SQSERVICES-1546-number-of-devices-in-csv-export-in-tm branch from b2314a6 to 9c1ff55 Compare May 19, 2022 14:44
@battermann battermann temporarily deployed to cachix May 19, 2022 14:44 Inactive
@battermann battermann temporarily deployed to cachix May 20, 2022 09:13 Inactive
@battermann battermann merged commit 16584cc into develop May 20, 2022
@battermann battermann deleted the SQSERVICES-1546-number-of-devices-in-csv-export-in-tm branch May 20, 2022 13:06
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants