{"action":"created","comment":{"url":"https://api.github.com/repos/ambiata/disorder.hs/pulls/comments/52131996","id":52131996,"diff_hunk":"@@ -32,3 +34,12 @@ maybeGen g = sized $ \\s ->\n   frequency [\n     (1, return Nothing),\n     (s, Just <$> resize (s `div` 2) g)]\n+\n+-- | Generate something smaller\n+smaller :: Gen a -> Gen a\n+smaller g =\n+  sized $ \\s -> resize (s `div` 2) g\n+\n+-- | Generate a list this big.\n+listOfSized :: Gen a -> Int -> Gen [a]\n+listOfSized gen n = take n <$> infiniteListOf gen","path":"disorder-core/src/Disorder/Core/Gen.hs","position":21,"original_position":21,"commit_id":"6e2fd4b083b9b5a39a3c825ca14d23d7c133d592","original_commit_id":"6e2fd4b083b9b5a39a3c825ca14d23d7c133d592","user":{"login":"thumphries","id":355756,"avatar_url":"https://avatars.githubusercontent.com/u/355756?v=3","gravatar_id":"","url":"https://api.github.com/users/thumphries","html_url":"https://github.com/thumphries","followers_url":"https://api.github.com/users/thumphries/followers","following_url":"https://api.github.com/users/thumphries/following{/other_user}","gists_url":"https://api.github.com/users/thumphries/gists{/gist_id}","starred_url":"https://api.github.com/users/thumphries/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/thumphries/subscriptions","organizations_url":"https://api.github.com/users/thumphries/orgs","repos_url":"https://api.github.com/users/thumphries/repos","events_url":"https://api.github.com/users/thumphries/events{/privacy}","received_events_url":"https://api.github.com/users/thumphries/received_events","type":"User","site_admin":false},"body":"! the more you know","created_at":"2016-02-08T03:51:43Z","updated_at":"2016-02-08T03:51:43Z","html_url":"https://github.com/ambiata/disorder.hs/pull/64#discussion_r52131996","pull_request_url":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64","_links":{"self":{"href":"https://api.github.com/repos/ambiata/disorder.hs/pulls/comments/52131996"},"html":{"href":"https://github.com/ambiata/disorder.hs/pull/64#discussion_r52131996"},"pull_request":{"href":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64"}}},"pull_request":{"url":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64","id":58568645,"html_url":"https://github.com/ambiata/disorder.hs/pull/64","diff_url":"https://github.com/ambiata/disorder.hs/pull/64.diff","patch_url":"https://github.com/ambiata/disorder.hs/pull/64.patch","issue_url":"https://api.github.com/repos/ambiata/disorder.hs/issues/64","number":64,"state":"open","locked":false,"title":"Add smaller and listOfSized utilities.","user":{"login":"tmcgilchrist","id":170937,"avatar_url":"https://avatars.githubusercontent.com/u/170937?v=3","gravatar_id":"","url":"https://api.github.com/users/tmcgilchrist","html_url":"https://github.com/tmcgilchrist","followers_url":"https://api.github.com/users/tmcgilchrist/followers","following_url":"https://api.github.com/users/tmcgilchrist/following{/other_user}","gists_url":"https://api.github.com/users/tmcgilchrist/gists{/gist_id}","starred_url":"https://api.github.com/users/tmcgilchrist/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/tmcgilchrist/subscriptions","organizations_url":"https://api.github.com/users/tmcgilchrist/orgs","repos_url":"https://api.github.com/users/tmcgilchrist/repos","events_url":"https://api.github.com/users/tmcgilchrist/events{/privacy}","received_events_url":"https://api.github.com/users/tmcgilchrist/received_events","type":"User","site_admin":false},"body":"Found in lottery / walrus might be useful to others.\r\nBikeshed?","created_at":"2016-02-08T03:47:50Z","updated_at":"2016-02-08T03:51:43Z","closed_at":null,"merged_at":null,"merge_commit_sha":"28d06ff054004d89aca1e7ae690ef56f2be95fb6","assignee":null,"milestone":null,"commits_url":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64/commits","review_comments_url":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64/comments","review_comment_url":"https://api.github.com/repos/ambiata/disorder.hs/pulls/comments{/number}","comments_url":"https://api.github.com/repos/ambiata/disorder.hs/issues/64/comments","statuses_url":"https://api.github.com/repos/ambiata/disorder.hs/statuses/6e2fd4b083b9b5a39a3c825ca14d23d7c133d592","head":{"label":"ambiata:topic/smaller","ref":"topic/smaller","sha":"6e2fd4b083b9b5a39a3c825ca14d23d7c133d592","user":{"login":"ambiata","id":1691023,"avatar_url":"https://avatars.githubusercontent.com/u/1691023?v=3","gravatar_id":"","url":"https://api.github.com/users/ambiata","html_url":"https://github.com/ambiata","followers_url":"https://api.github.com/users/ambiata/followers","following_url":"https://api.github.com/users/ambiata/following{/other_user}","gists_url":"https://api.github.com/users/ambiata/gists{/gist_id}","starred_url":"https://api.github.com/users/ambiata/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ambiata/subscriptions","organizations_url":"https://api.github.com/users/ambiata/orgs","repos_url":"https://api.github.com/users/ambiata/repos","events_url":"https://api.github.com/users/ambiata/events{/privacy}","received_events_url":"https://api.github.com/users/ambiata/received_events","type":"Organization","site_admin":false},"repo":{"id":31634194,"name":"disorder.hs","full_name":"ambiata/disorder.hs","owner":{"login":"ambiata","id":1691023,"avatar_url":"https://avatars.githubusercontent.com/u/1691023?v=3","gravatar_id":"","url":"https://api.github.com/users/ambiata","html_url":"https://github.com/ambiata","followers_url":"https://api.github.com/users/ambiata/followers","following_url":"https://api.github.com/users/ambiata/following{/other_user}","gists_url":"https://api.github.com/users/ambiata/gists{/gist_id}","starred_url":"https://api.github.com/users/ambiata/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ambiata/subscriptions","organizations_url":"https://api.github.com/users/ambiata/orgs","repos_url":"https://api.github.com/users/ambiata/repos","events_url":"https://api.github.com/users/ambiata/events{/privacy}","received_events_url":"https://api.github.com/users/ambiata/received_events","type":"Organization","site_admin":false},"private":false,"html_url":"https://github.com/ambiata/disorder.hs","description":"QuickCheck extras.","fork":false,"url":"https://api.github.com/repos/ambiata/disorder.hs","forks_url":"https://api.github.com/repos/ambiata/disorder.hs/forks","keys_url":"https://api.github.com/repos/ambiata/disorder.hs/keys{/key_id}","collaborators_url":"https://api.github.com/repos/ambiata/disorder.hs/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/ambiata/disorder.hs/teams","hooks_url":"https://api.github.com/repos/ambiata/disorder.hs/hooks","issue_events_url":"https://api.github.com/repos/ambiata/disorder.hs/issues/events{/number}","events_url":"https://api.github.com/repos/ambiata/disorder.hs/events","assignees_url":"https://api.github.com/repos/ambiata/disorder.hs/assignees{/user}","branches_url":"https://api.github.com/repos/ambiata/disorder.hs/branches{/branch}","tags_url":"https://api.github.com/repos/ambiata/disorder.hs/tags","blobs_url":"https://api.github.com/repos/ambiata/disorder.hs/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/ambiata/disorder.hs/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/ambiata/disorder.hs/git/refs{/sha}","trees_url":"https://api.github.com/repos/ambiata/disorder.hs/git/trees{/sha}","statuses_url":"https://api.github.com/repos/ambiata/disorder.hs/statuses/{sha}","languages_url":"https://api.github.com/repos/ambiata/disorder.hs/languages","stargazers_url":"https://api.github.com/repos/ambiata/disorder.hs/stargazers","contributors_url":"https://api.github.com/repos/ambiata/disorder.hs/contributors","subscribers_url":"https://api.github.com/repos/ambiata/disorder.hs/subscribers","subscription_url":"https://api.github.com/repos/ambiata/disorder.hs/subscription","commits_url":"https://api.github.com/repos/ambiata/disorder.hs/commits{/sha}","git_commits_url":"https://api.github.com/repos/ambiata/disorder.hs/git/commits{/sha}","comments_url":"https://api.github.com/repos/ambiata/disorder.hs/comments{/number}","issue_comment_url":"https://api.github.com/repos/ambiata/disorder.hs/issues/comments{/number}","contents_url":"https://api.github.com/repos/ambiata/disorder.hs/contents/{+path}","compare_url":"https://api.github.com/repos/ambiata/disorder.hs/compare/{base}...{head}","merges_url":"https://api.github.com/repos/ambiata/disorder.hs/merges","archive_url":"https://api.github.com/repos/ambiata/disorder.hs/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/ambiata/disorder.hs/downloads","issues_url":"https://api.github.com/repos/ambiata/disorder.hs/issues{/number}","pulls_url":"https://api.github.com/repos/ambiata/disorder.hs/pulls{/number}","milestones_url":"https://api.github.com/repos/ambiata/disorder.hs/milestones{/number}","notifications_url":"https://api.github.com/repos/ambiata/disorder.hs/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/ambiata/disorder.hs/labels{/name}","releases_url":"https://api.github.com/repos/ambiata/disorder.hs/releases{/id}","deployments_url":"https://api.github.com/repos/ambiata/disorder.hs/deployments","created_at":"2015-03-04T02:41:32Z","updated_at":"2016-01-19T08:03:52Z","pushed_at":"2016-02-08T03:47:51Z","git_url":"git://github.com/ambiata/disorder.hs.git","ssh_url":"git@github.com:ambiata/disorder.hs.git","clone_url":"https://github.com/ambiata/disorder.hs.git","svn_url":"https://github.com/ambiata/disorder.hs","homepage":null,"size":176,"stargazers_count":0,"watchers_count":0,"language":"Haskell","has_issues":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":1,"mirror_url":null,"open_issues_count":8,"forks":1,"open_issues":8,"watchers":0,"default_branch":"master"}},"base":{"label":"ambiata:master","ref":"master","sha":"05162d9984e009a7f714958556665cd1d58b27c7","user":{"login":"ambiata","id":1691023,"avatar_url":"https://avatars.githubusercontent.com/u/1691023?v=3","gravatar_id":"","url":"https://api.github.com/users/ambiata","html_url":"https://github.com/ambiata","followers_url":"https://api.github.com/users/ambiata/followers","following_url":"https://api.github.com/users/ambiata/following{/other_user}","gists_url":"https://api.github.com/users/ambiata/gists{/gist_id}","starred_url":"https://api.github.com/users/ambiata/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ambiata/subscriptions","organizations_url":"https://api.github.com/users/ambiata/orgs","repos_url":"https://api.github.com/users/ambiata/repos","events_url":"https://api.github.com/users/ambiata/events{/privacy}","received_events_url":"https://api.github.com/users/ambiata/received_events","type":"Organization","site_admin":false},"repo":{"id":31634194,"name":"disorder.hs","full_name":"ambiata/disorder.hs","owner":{"login":"ambiata","id":1691023,"avatar_url":"https://avatars.githubusercontent.com/u/1691023?v=3","gravatar_id":"","url":"https://api.github.com/users/ambiata","html_url":"https://github.com/ambiata","followers_url":"https://api.github.com/users/ambiata/followers","following_url":"https://api.github.com/users/ambiata/following{/other_user}","gists_url":"https://api.github.com/users/ambiata/gists{/gist_id}","starred_url":"https://api.github.com/users/ambiata/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ambiata/subscriptions","organizations_url":"https://api.github.com/users/ambiata/orgs","repos_url":"https://api.github.com/users/ambiata/repos","events_url":"https://api.github.com/users/ambiata/events{/privacy}","received_events_url":"https://api.github.com/users/ambiata/received_events","type":"Organization","site_admin":false},"private":false,"html_url":"https://github.com/ambiata/disorder.hs","description":"QuickCheck extras.","fork":false,"url":"https://api.github.com/repos/ambiata/disorder.hs","forks_url":"https://api.github.com/repos/ambiata/disorder.hs/forks","keys_url":"https://api.github.com/repos/ambiata/disorder.hs/keys{/key_id}","collaborators_url":"https://api.github.com/repos/ambiata/disorder.hs/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/ambiata/disorder.hs/teams","hooks_url":"https://api.github.com/repos/ambiata/disorder.hs/hooks","issue_events_url":"https://api.github.com/repos/ambiata/disorder.hs/issues/events{/number}","events_url":"https://api.github.com/repos/ambiata/disorder.hs/events","assignees_url":"https://api.github.com/repos/ambiata/disorder.hs/assignees{/user}","branches_url":"https://api.github.com/repos/ambiata/disorder.hs/branches{/branch}","tags_url":"https://api.github.com/repos/ambiata/disorder.hs/tags","blobs_url":"https://api.github.com/repos/ambiata/disorder.hs/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/ambiata/disorder.hs/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/ambiata/disorder.hs/git/refs{/sha}","trees_url":"https://api.github.com/repos/ambiata/disorder.hs/git/trees{/sha}","statuses_url":"https://api.github.com/repos/ambiata/disorder.hs/statuses/{sha}","languages_url":"https://api.github.com/repos/ambiata/disorder.hs/languages","stargazers_url":"https://api.github.com/repos/ambiata/disorder.hs/stargazers","contributors_url":"https://api.github.com/repos/ambiata/disorder.hs/contributors","subscribers_url":"https://api.github.com/repos/ambiata/disorder.hs/subscribers","subscription_url":"https://api.github.com/repos/ambiata/disorder.hs/subscription","commits_url":"https://api.github.com/repos/ambiata/disorder.hs/commits{/sha}","git_commits_url":"https://api.github.com/repos/ambiata/disorder.hs/git/commits{/sha}","comments_url":"https://api.github.com/repos/ambiata/disorder.hs/comments{/number}","issue_comment_url":"https://api.github.com/repos/ambiata/disorder.hs/issues/comments{/number}","contents_url":"https://api.github.com/repos/ambiata/disorder.hs/contents/{+path}","compare_url":"https://api.github.com/repos/ambiata/disorder.hs/compare/{base}...{head}","merges_url":"https://api.github.com/repos/ambiata/disorder.hs/merges","archive_url":"https://api.github.com/repos/ambiata/disorder.hs/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/ambiata/disorder.hs/downloads","issues_url":"https://api.github.com/repos/ambiata/disorder.hs/issues{/number}","pulls_url":"https://api.github.com/repos/ambiata/disorder.hs/pulls{/number}","milestones_url":"https://api.github.com/repos/ambiata/disorder.hs/milestones{/number}","notifications_url":"https://api.github.com/repos/ambiata/disorder.hs/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/ambiata/disorder.hs/labels{/name}","releases_url":"https://api.github.com/repos/ambiata/disorder.hs/releases{/id}","deployments_url":"https://api.github.com/repos/ambiata/disorder.hs/deployments","created_at":"2015-03-04T02:41:32Z","updated_at":"2016-01-19T08:03:52Z","pushed_at":"2016-02-08T03:47:51Z","git_url":"git://github.com/ambiata/disorder.hs.git","ssh_url":"git@github.com:ambiata/disorder.hs.git","clone_url":"https://github.com/ambiata/disorder.hs.git","svn_url":"https://github.com/ambiata/disorder.hs","homepage":null,"size":176,"stargazers_count":0,"watchers_count":0,"language":"Haskell","has_issues":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":1,"mirror_url":null,"open_issues_count":8,"forks":1,"open_issues":8,"watchers":0,"default_branch":"master"}},"_links":{"self":{"href":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64"},"html":{"href":"https://github.com/ambiata/disorder.hs/pull/64"},"issue":{"href":"https://api.github.com/repos/ambiata/disorder.hs/issues/64"},"comments":{"href":"https://api.github.com/repos/ambiata/disorder.hs/issues/64/comments"},"review_comments":{"href":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64/comments"},"review_comment":{"href":"https://api.github.com/repos/ambiata/disorder.hs/pulls/comments{/number}"},"commits":{"href":"https://api.github.com/repos/ambiata/disorder.hs/pulls/64/commits"},"statuses":{"href":"https://api.github.com/repos/ambiata/disorder.hs/statuses/6e2fd4b083b9b5a39a3c825ca14d23d7c133d592"}}}}