Repo: add permissions field (#476)

Adds field `repoPermissions` to `Repo` record.

Author: roberth

src/GitHub/Data/Repos.hs

@@ -61,12 +61,26 @@ data Repo = Repo
     , repoPushedAt        :: !(Maybe UTCTime)   -- ^ this is Nothing for new repositories
     , repoCreatedAt       :: !(Maybe UTCTime)
     , repoUpdatedAt       :: !(Maybe UTCTime)
+    , repoPermissions     :: !(Maybe RepoPermissions) -- ^ Repository permissions as they relate to the authenticated user.
     }
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 instance NFData Repo where rnf = genericRnf
 instance Binary Repo
 
+-- | Repository permissions, as they relate to the authenticated user.
+--
+-- Returned by for example 'GitHub.Endpoints.Repos.currentUserReposR'
+data RepoPermissions = RepoPermissions
+    { repoPermissionAdmin :: !Bool
+    , repoPermissionPush :: !Bool
+    , repoPermissionPull :: !Bool
+    }
+    deriving (Show, Data, Typeable, Eq, Ord, Generic)
+
+instance NFData RepoPermissions where rnf = genericRnf
+instance Binary RepoPermissions
+
 data RepoRef = RepoRef
     { repoRefOwner :: !SimpleOwner
     , repoRefRepo  :: !(Name Repo)
@@ -214,6 +228,7 @@ instance FromJSON Repo where
         <*> o .:? "pushed_at"
         <*> o .:? "created_at"
         <*> o .:? "updated_at"
+        <*> o .:? "permissions"
 
 instance ToJSON NewRepo where
   toJSON (NewRepo { newRepoName              = name
@@ -273,6 +288,12 @@ instance ToJSON EditRepo where
                    , "archived"           .= archived
                    ]
 
+instance FromJSON RepoPermissions where
+  parseJSON = withObject "RepoPermissions" $ \o -> RepoPermissions
+        <$> o .: "admin"
+        <*> o .: "push"
+        <*> o .: "pull"
+
 instance FromJSON RepoRef where
     parseJSON = withObject "RepoRef" $ \o -> RepoRef
         <$> o .: "owner"

src/GitHub/Endpoints/Repos.hs

@@ -43,23 +43,23 @@ repoPublicityQueryString RepoPublicityPublic  = [("type", Just "public")]
 repoPublicityQueryString RepoPublicityPrivate = [("type", Just "private")]
 
 -- | List your repositories.
--- See <https://developer.github.com/v3/repos/#list-your-repositories>
+-- See <https://docs.github.com/en/rest/reference/repos#list-repositories-for-the-authenticated-user>
 currentUserReposR :: RepoPublicity -> FetchCount -> Request k (Vector Repo)
 currentUserReposR publicity =
     pagedQuery  ["user", "repos"] qs
   where
     qs = repoPublicityQueryString publicity
 
 -- | List user repositories.
--- See <https://developer.github.com/v3/repos/#list-user-repositories>
+-- See <https://docs.github.com/en/rest/reference/repos#list-repositories-for-a-user>
 userReposR :: Name Owner -> RepoPublicity -> FetchCount -> Request k(Vector Repo)
 userReposR user publicity =
     pagedQuery  ["users", toPathPart user, "repos"] qs
   where
     qs = repoPublicityQueryString publicity
 
 -- | List organization repositories.
--- See <https://developer.github.com/v3/repos/#list-organization-repositories>
+-- See <https://docs.github.com/en/rest/reference/repos#list-organization-repositories>
 organizationReposR
     :: Name Organization
     -> RepoPublicity