Merge pull request haskell-github#444 from marcosh/user-search

phadej · web-flow · commit 63efc7f93f31 · 2020-05-26T13:22:07.000+03:00
add endpoint for users search
diff --git a/spec/GitHub/SearchSpec.hs b/spec/GitHub/SearchSpec.hs
@@ -16,8 +16,9 @@ import qualified Data.Vector as V
 
 import GitHub (github)
 import GitHub.Data
-       (Auth (..), Issue (..), IssueNumber (..), IssueState (..), mkId)
-import GitHub.Endpoints.Search (SearchResult (..), searchIssuesR)
+       (Auth (..), Issue (..), IssueNumber (..), IssueState (..),
+       SimpleUser (..), User, mkId)
+import GitHub.Endpoints.Search (SearchResult (..), searchIssuesR, searchUsersR)
 
 fromRightS :: Show a => Either a b -> b
 fromRightS (Right b) = b
@@ -57,3 +58,10 @@ spec = do
       issues <- searchResultResults . fromRightS <$> github auth searchIssuesR query
       length issues `shouldBe` 1
       issueId (V.head issues) `shouldBe` mkId (Proxy :: Proxy Issue) 119694665
+
+  describe "searchUsers" $
+    it "performs a user search via the API" $ withAuth $ \auth -> do
+      let query = "oleg.grenrus@iki.fi created:<2020-01-01"
+      users <- searchResultResults . fromRightS <$> github auth searchUsersR query
+      length users `shouldBe` 1
+      simpleUserId (V.head users) `shouldBe` mkId (Proxy :: Proxy User) 51087
diff --git a/src/GitHub.hs b/src/GitHub.hs
@@ -360,13 +360,10 @@ module GitHub (
 
     -- * Search
     -- | See <https://developer.github.com/v3/search/>
-    --
-    -- Missing endpoints:
-    --
-    -- * Search users
     searchReposR,
     searchCodeR,
     searchIssuesR,
+    searchUsersR,
 
     -- * Users
     -- | See <https://developer.github.com/v3/users/>
diff --git a/src/GitHub/Endpoints/Search.hs b/src/GitHub/Endpoints/Search.hs
@@ -9,6 +9,7 @@ module GitHub.Endpoints.Search(
     searchReposR,
     searchCodeR,
     searchIssuesR,
+    searchUsersR,
     module GitHub.Data,
     ) where
 
@@ -35,3 +36,9 @@ searchCodeR searchString =
 searchIssuesR :: Text -> Request k (SearchResult Issue)
 searchIssuesR searchString =
     query ["search", "issues"] [("q", Just $ TE.encodeUtf8 searchString)]
+
+-- | Search users.
+-- See <https://developer.github.com/v3/search/#search-code>
+searchUsersR :: Text -> Request k (SearchResult SimpleUser)
+searchUsersR searchString =
+  query ["search", "users"] [("q", Just $ TE.encodeUtf8 searchString)]
