Add support for user public events.

github.cabal

@@ -173,6 +173,7 @@ test-suite github-test
     GitHub.ReposSpec
     GitHub.SearchSpec
     GitHub.UsersSpec
+    GitHub.EventsSpec
   main-is: Spec.hs
   ghc-options: -Wall
   build-depends: base,

spec/GitHub/EventsSpec.hs

@@ -0,0 +1,36 @@
+{-# LANGUAGE OverloadedStrings #-}
+module GitHub.EventsSpec where
+
+import Data.Either        (isRight)
+import Data.String        (fromString)
+import Prelude ()
+import Prelude.Compat
+import System.Environment (lookupEnv)
+import Test.Hspec         (Spec, describe, it, shouldSatisfy,
+                           pendingWith)
+
+import qualified GitHub
+import GitHub.Data (Auth(..))
+
+fromRightS :: Show a => Either a b -> b
+fromRightS (Left xs) = error $ "Should be Right" ++ show xs
+fromRightS (Right xs) = xs
+
+withAuth :: (Auth -> IO ()) -> IO ()
+withAuth action = do
+  mtoken <- lookupEnv "GITHUB_TOKEN"
+  case mtoken of
+    Nothing    -> pendingWith "no GITHUB_TOKEN"
+    Just token -> action (OAuth $ fromString token)
+
+spec :: Spec
+spec = do
+  describe "repositoryEventsR" $ do
+    it "returns non empty list of events" $ shouldSucceed $
+      GitHub.repositoryEventsR "phadej" "github" 1
+  describe "userEventsR" $ do
+    it "returns non empty list of events" $ shouldSucceed $ GitHub.userEventsR "phadej" 1 
+  where shouldSucceed f = withAuth $ \auth -> do
+          cs <- GitHub.executeRequest auth $ f
+          cs `shouldSatisfy` isRight
+          length (fromRightS cs) `shouldSatisfy` (> 1)

src/GitHub.hs

@@ -18,7 +18,7 @@ module GitHub (
     -- ** Events
     -- | See https://developer.github.com/v3/activity/events/#events
     repositoryEventsR,
-
+    userEventsR,
     -- ** Starring
     -- | See <https://developer.github.com/v3/activity/starring/>
     --

src/GitHub/Endpoints/Activity/Events.hs

@@ -7,6 +7,7 @@
 module GitHub.Endpoints.Activity.Events (
     -- * Events
     repositoryEventsR,
+    userEventsR,
     module GitHub.Data,
     ) where
 
@@ -19,3 +20,9 @@ import Prelude ()
 repositoryEventsR :: Name Owner -> Name Repo -> FetchCount -> Request 'RO (Vector Event)
 repositoryEventsR user repo =
     pagedQuery  ["repos", toPathPart user, toPathPart repo, "events"] []
+
+-- | List user public events.
+-- See <https://developer.github.com/v3/activity/events/#list-public-events-performed-by-a-user>
+userEventsR :: Name User -> FetchCount -> Request 'RO (Vector Event)
+userEventsR user =
+    pagedQuery ["users", toPathPart user, "events", "public"] []