Resolve #94: Implement /user/repos

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

spec/Github/ReposSpec.hs

@@ -0,0 +1,35 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TemplateHaskell   #-}
+module Github.ReposSpec where
+
+import Github.Auth          (GithubAuth (..))
+import Github.Repos (currentUserRepos, userRepos', RepoPublicity(..))
+
+-- import Data.Aeson.Compat  (eitherDecodeStrict)
+import Data.Either.Compat (isRight)
+-- import Data.FileEmbed     (embedFile)
+import System.Environment (lookupEnv)
+import Test.Hspec         (Spec, describe, it, pendingWith, shouldSatisfy)
+
+fromRightS :: Show a => Either a b -> b
+fromRightS (Right b) = b
+fromRightS (Left a) = error $ "Expected a Right and got a Left" ++ show a
+
+withAuth :: (GithubAuth -> IO ()) -> IO ()
+withAuth action = do
+  mtoken <- lookupEnv "GITHUB_TOKEN"
+  case mtoken of
+    Nothing    -> pendingWith "no GITHUB_TOKEN"
+    Just token -> action (GithubOAuth token)
+
+spec :: Spec
+spec = do
+  describe "currentUserRepos" $ do
+    it "works" $ withAuth $ \auth -> do
+      cs <-  currentUserRepos auth All
+      cs `shouldSatisfy` isRight
+
+  describe "userRepos" $ do
+    it "works" $ withAuth $ \auth -> do
+      cs <-  userRepos' (Just auth) "phadej" All
+      cs `shouldSatisfy` isRight