Authorized GET requests for private gists and issues

paulrzcz · paulrzcz · commit 073e458cd319 · 2012-05-15T09:09:50.000+02:00
diff --git a/Github/Gists.hs b/Github/Gists.hs
@@ -8,14 +8,26 @@ module Github.Gists (
 import Github.Data
 import Github.Private
 
+-- | The list of all public gists created by the user.
+--
+-- > gists "mike-burns"
+gists' :: Maybe BasicAuth -> String -> IO (Either Error [Gist])
+gists' auth userName = githubGet' auth ["users", userName, "gists"]
+
 -- | The list of all public gists created by the user.
 --
 -- > gists "mike-burns"
 gists :: String -> IO (Either Error [Gist])
-gists userName = githubGet ["users", userName, "gists"]
+gists = gists' Nothing
+
+-- | A specific gist, given its id.
+--
+-- > gist "225074"
+gist' :: Maybe BasicAuth -> String -> IO (Either Error Gist)
+gist' auth gistId = githubGet' auth ["gists", gistId]
 
 -- | A specific gist, given its id.
 --
 -- > gist "225074"
 gist :: String -> IO (Either Error Gist)
-gist gistId = githubGet ["gists", gistId]
+gist = gist' Nothing
diff --git a/Github/Issues.hs b/Github/Issues.hs
@@ -1,7 +1,9 @@
 -- | The issues API as described on <http://developer.github.com/v3/issues/>.
 module Github.Issues (
  issue
+,issue'
 ,issuesForRepo
+,issuesForRepo'
 ,IssueLimitation(..)
 ,module Github.Data
 ) where
@@ -30,21 +32,30 @@ data IssueLimitation =
     | Descending -- ^ Sort descending. [default]
     | Since UTCTime -- ^ Only issues created since the specified date and time.
 
+
+-- | Details on a specific issue, given the repo owner and name, and the issue
+-- number.'
+--
+-- > issue "thoughtbot" "paperclip" "462"
+issue' :: Maybe BasicAuth -> String -> String -> Int -> IO (Either Error Issue)
+issue' auth user repoName issueNumber =
+  githubGet' auth ["repos", user, repoName, "issues", show issueNumber]
+
 -- | Details on a specific issue, given the repo owner and name, and the issue
 -- number.
 --
 -- > issue "thoughtbot" "paperclip" "462"
 issue :: String -> String -> Int -> IO (Either Error Issue)
-issue user repoName issueNumber =
-  githubGet ["repos", user, repoName, "issues", show issueNumber]
+issue = issue' Nothing
 
 -- | All issues for a repo (given the repo owner and name), with optional
 -- restrictions as described in the @IssueLimitation@ data type.
 --
 -- > issuesForRepo "thoughtbot" "paperclip" [NoMilestone, OnlyClosed, Mentions "jyurek", Ascending]
-issuesForRepo :: String -> String -> [IssueLimitation] -> IO (Either Error [Issue])
-issuesForRepo user repoName issueLimitations =
-  githubGetWithQueryString
+issuesForRepo' :: Maybe BasicAuth -> String -> String -> [IssueLimitation] -> IO (Either Error [Issue])
+issuesForRepo' auth user repoName issueLimitations =
+  githubGetWithQueryString' 
+    auth
     ["repos", user, repoName, "issues"]
     (queryStringFromLimitations issueLimitations)
   where
@@ -64,3 +75,10 @@ issuesForRepo user repoName issueLimitations =
     convert Descending       = "direction=desc"
     convert (Since t)        =
       "since=" ++ formatTime defaultTimeLocale "%FT%TZ" t
+
+-- | All issues for a repo (given the repo owner and name), with optional
+-- restrictions as described in the @IssueLimitation@ data type.
+--
+-- > issuesForRepo "thoughtbot" "paperclip" [NoMilestone, OnlyClosed, Mentions "jyurek", Ascending]
+issuesForRepo :: String -> String -> [IssueLimitation] -> IO (Either Error [Issue])
+issuesForRepo = issuesForRepo' Nothing
diff --git a/Github/Private.hs b/Github/Private.hs
@@ -14,18 +14,25 @@ import Text.URI
 import qualified Control.Exception as E
 import Data.Maybe (fromMaybe)
 
+
 githubGet :: (FromJSON b, Show b) => [String] -> IO (Either Error b)
-githubGet paths =
+githubGet = githubGet' Nothing
+
+githubGet' :: (FromJSON b, Show b) => Maybe BasicAuth -> [String] -> IO (Either Error b)
+githubGet' auth paths =
   githubAPI (BS.pack "GET")
             (buildUrl paths)
-            Nothing
+            auth
             (Nothing :: Maybe Value)
 
 githubGetWithQueryString :: (FromJSON b, Show b) => [String] -> String -> IO (Either Error b)
-githubGetWithQueryString paths queryString =
+githubGetWithQueryString = githubGetWithQueryString' Nothing
+
+githubGetWithQueryString' :: (FromJSON b, Show b) => Maybe BasicAuth -> [String] -> String -> IO (Either Error b)
+githubGetWithQueryString' auth paths queryString =
   githubAPI (BS.pack "GET")
             (buildUrl paths ++ "?" ++ queryString)
-            Nothing
+            auth
             (Nothing :: Maybe Value)
 
 githubPost :: (ToJSON a, Show a, FromJSON b, Show b) => BasicAuth -> [String] -> a -> IO (Either Error b)
