github 0.7.0 → 0.7.1

raw patch · 7 files changed

+150/−3 lines, 7 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Github/Data.hs +26/−0
• Github/Data/Definitions.hs +26/−0
• Github/GitData/Blobs.hs +16/−0
• Github/Issues.hs +46/−0
• Github/Issues/Comments.hs +32/−0
• README.md +2/−2
• github.cabal +2/−1

@@ -122,6 +122,12 @@             <*> o .: "id"   parseJSON _          = fail "Could not build a Comment" +instance ToJSON NewComment where+  toJSON (NewComment b) = object [ "body" .= b ]++instance ToJSON EditComment where+  toJSON (EditComment b) = object [ "body" .= b ]+ instance FromJSON Diff where   parseJSON (Object o) =     Diff <$> o .: "status"@@ -217,6 +223,26 @@           <*> o .: "comments"           <*> o .:? "milestone"   parseJSON _          = fail "Could not build an Issue"++instance ToJSON NewIssue where+  toJSON (NewIssue t b a m ls) =+    object+    [ "title"     .= t+    , "body"      .= b+    , "assignee"  .= a+    , "milestone" .= m+    , "labels"    .= ls ]++instance ToJSON EditIssue where+  toJSON (EditIssue t b a s m ls) =+    object $ filter notNull $ [ "title" .= t+                              , "body" .= b+                              , "assignee" .= a+                              , "state" .= s+                              , "milestone" .= m+                              , "labels" .= ls ]+    where notNull (_, Null) = False+          notNull (_, _)    = True  instance FromJSON Milestone where   parseJSON (Object o) =

@@ -107,6 +107,14 @@   ,commentId :: Int } deriving (Show, Data, Typeable, Eq, Ord) +data NewComment = NewComment {+   newCommentBody :: String+} deriving (Show, Data, Typeable, Eq, Ord)++data EditComment = EditComment {+   editCommentBody :: String+} deriving (Show, Data, Typeable, Eq, Ord)+ data Diff = Diff {    diffStatus :: String   ,diffBehindBy :: Int@@ -194,6 +202,24 @@   ,issueComments :: Int   ,issueMilestone :: Maybe Milestone } deriving (Show, Data, Typeable, Eq, Ord)++data NewIssue = NewIssue {+  newIssueTitle :: String+, newIssueBody :: Maybe String+, newIssueAssignee :: Maybe String+, newIssueMilestone :: Maybe Int+, newIssueLabels :: Maybe [String]+} deriving (Show, Data, Typeable, Eq, Ord)++data EditIssue = EditIssue {+  editIssueTitle :: Maybe String+, editIssueBody :: Maybe String+, editIssueAssignee :: Maybe String+, editIssueState :: Maybe String+, editIssueMilestone :: Maybe Int+, editIssueLabels :: Maybe [String]+} deriving  (Show, Data, Typeable, Eq, Ord)+  data Milestone = Milestone {    milestoneCreator :: GithubOwner

@@ -0,0 +1,16 @@+-- | The API for dealing with git blobs from Github repos, as described in+-- <http://developer.github.com/v3/git/blobs/>.+module Github.GitData.Blobs (+ blob+,module Github.Data+) where++import Github.Data+import Github.Private++-- | Get a blob by SHA1.+--+-- > blob "thoughtbot" "paperclip" "bc5c51d1ece1ee45f94b056a0f5a1674d7e8cba9"+blob :: String -> String -> String -> IO (Either Error Blob)+blob user repoName sha =+  githubGet ["repos", user, repoName, "git", "blobs", sha]

@@ -1,3 +1,4 @@+{-# LANGUAGE OverloadedStrings #-} -- | The issues API as described on <http://developer.github.com/v3/issues/>. module Github.Issues (  issue@@ -5,11 +6,23 @@ ,issuesForRepo ,issuesForRepo' ,IssueLimitation(..)++-- * Modifying Issues+-- |+-- Only authenticated users may create and edit issues.+,GithubAuth(..)++,createIssue+,newIssue+,editIssue+,editOfIssue ,module Github.Data ) where  import Github.Data import Github.Private+import Data.Aeson.Types+import qualified Data.Aeson as A import Data.List (intercalate) import Data.Time.Format (formatTime) import System.Locale (defaultTimeLocale)@@ -84,3 +97,36 @@ -- > issuesForRepo "thoughtbot" "paperclip" [NoMilestone, OnlyClosed, Mentions "jyurek", Ascending] issuesForRepo :: String -> String -> [IssueLimitation] -> IO (Either Error [Issue]) issuesForRepo = issuesForRepo' Nothing+++-- Creating new issues.++newIssue :: String -> NewIssue+newIssue title = NewIssue title Nothing Nothing Nothing Nothing+++-- |+-- Create a new issue.+--+-- > createIssue (GithubUser (user, password)) user repo+-- >  (newIssue "some_repo") {...}+createIssue :: GithubAuth -> String -> String -> NewIssue+            -> IO (Either Error Issue)+createIssue auth user repo = githubPost auth ["repos", user, repo, "issues"]+++-- Editing issues.++editOfIssue :: EditIssue+editOfIssue = EditIssue Nothing Nothing Nothing Nothing Nothing Nothing+++-- |+-- Edit an issue.+--+-- > editIssue (GithubUser (user, password)) user repo issue+-- >  editOfIssue {...}+editIssue :: GithubAuth -> String -> String -> Int -> EditIssue+            -> IO (Either Error Issue)+editIssue auth user repo iss =+  githubPatch auth ["repos", user, repo, "issues", show iss]

@@ -4,6 +4,14 @@  comment ,comments ,comments'++-- * Modifying Comments+-- |+-- Only authenticated users may create and edit comments.+,GithubAuth(..)++,createComment+,editComment ,module Github.Data ) where @@ -31,3 +39,27 @@ comments' auth user repoName issueNumber =   githubGet' auth ["repos", user, repoName, "issues", show issueNumber, "comments"] +++-- |+-- Create a new comment.+--+-- > createComment (GithubUser (user, password)) user repo issue+-- >  "some words"+createComment :: GithubAuth -> String -> String -> Int -> String+            -> IO (Either Error Comment)+createComment auth user repo iss body =+  githubPost auth+  ["repos", user, repo, "issues", show iss, "comments"] (NewComment body)+++-- |+-- Edit a comment.+--+-- > editComment (GithubUser (user, password)) user repo commentid+-- >  "new words"+editComment :: GithubAuth -> String -> String -> Int -> String+            -> IO (Either Error Comment)+editComment auth user repo commid body =+  githubPatch auth ["repos", user, repo, "issues", "comments", show commid]+  (EditComment body)

@@ -22,7 +22,7 @@ Example Usage ============= -See the samples in the [samples/](https://github.com/mike-burns/github/tree/master/samples) directory.+See the samples in the [samples/](https://github.com/fpco/github/tree/master/samples) directory.  Documentation =============@@ -46,7 +46,7 @@ Contributions ============= -Please see [CONTRIBUTING.md](https://github.com/mike-burns/github/tree/master/CONTRIBUTING.md) for details on how you can help.+Please see [CONTRIBUTING.md](https://github.com/fpco/github/blob/master/CONTRIBUTING.md) for details on how you can help.  Copyright =========

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.7.0+Version:             0.7.1  -- A short (one-line) description of the package. Synopsis:            Access to the Github API, v3.@@ -120,6 +120,7 @@                    Github.GitData.Commits,                    Github.GitData.References,                    Github.GitData.Trees,+                   Github.GitData.Blobs,                    Github.Issues,                    Github.Issues.Comments,                    Github.Issues.Events,