Resolve #94: Implement /user/repos

Author: phadej

Github/All.hs

@@ -203,11 +203,11 @@ module Github.All (
  --
  -- Missing endpoints:
  --
- -- * List your repositories
  -- * List all public repositories
  -- * List Teams
  -- * Get Branch
  -- * Enabling and disabling branch protection
+ currentUserReposR,
  userReposR,
 
  -- ** Collaborators

Github/Repos.hs

@@ -6,6 +6,8 @@
 -- <http://developer.github.com/v3/repos/>
 module Github.Repos (
  -- * Querying repositories
+ currentUserRepos,
+ currentUserReposR,
  userRepos,
  userRepos',
  userReposR,
@@ -69,6 +71,19 @@ repoPublicityQueryString Member = [("type", Just "member")]
 repoPublicityQueryString Public = [("type", Just "public")]
 repoPublicityQueryString Private = [("type", Just "private")]
 
+-- | List your repositories.
+currentUserRepos :: GithubAuth -> RepoPublicity -> IO (Either Error (Vector Repo))
+currentUserRepos auth publicity =
+ executeRequest auth $ currentUserReposR publicity Nothing
+
+-- | List your repositories.
+-- See <https://developer.github.com/v3/repos/#list-your-repositories>
+currentUserReposR :: RepoPublicity -> Maybe Count -> GithubRequest k(Vector Repo)
+currentUserReposR publicity =
+ GithubPagedGet ["user", "repos"] qs
+ where
+ qs = repoPublicityQueryString publicity
+
 -- | The repos for a user, by their login. Can be restricted to just repos they
 -- own, are a member of, or publicize. Private repos will return empty list.
 --

github.cabal

@@ -118,6 +118,7 @@ test-suite github-test
  other-modules:
  Github.CommitsSpec
  Github.OrganizationsSpec
+ Github.ReposSpec
  Github.SearchSpec
  Github.UsersSpec
  main-is: Spec.hs