feat: Support the latest github api updates.

TokTok · Nov 4, 2024 · d5723c5 · d5723c5
1 parent 63c31f9
commit d5723c5
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 3 deletions.
diff --git a/src/GitHub/Types/Base/CheckApp.hs b/src/GitHub/Types/Base/CheckApp.hs
@@ -16,7 +16,8 @@ import           GitHub.Types.Base.User
 -- CheckApp
 
 data CheckApp = CheckApp
-    { checkAppCreatedAt   :: Text
+    { checkAppClientId    :: Text
+    , checkAppCreatedAt   :: Text
     , checkAppDescription :: Text
     , checkAppEvents      :: [Text]
     , checkAppExternalUrl :: Text
@@ -33,7 +34,8 @@ data CheckApp = CheckApp
 
 instance FromJSON CheckApp where
     parseJSON (Object x) = CheckApp
-        <$> x .: "created_at"
+        <$> x .: "client_id"
+        <*> x .: "created_at"
         <*> x .: "description"
         <*> x .: "events"
         <*> x .: "external_url"
@@ -51,7 +53,8 @@ instance FromJSON CheckApp where
 
 instance ToJSON CheckApp where
     toJSON CheckApp{..} = object
-        [ "created_at"   .= checkAppCreatedAt
+        [ "client_id"    .= checkAppClientId
+        , "created_at"   .= checkAppCreatedAt
         , "description"  .= checkAppDescription
         , "events"       .= checkAppEvents
         , "external_url" .= checkAppExternalUrl
@@ -80,3 +83,4 @@ instance Arbitrary CheckApp where
         <*> arbitrary
         <*> arbitrary
         <*> arbitrary
+        <*> arbitrary
diff --git a/src/GitHub/Types/Base/Permissions.hs b/src/GitHub/Types/Base/Permissions.hs
@@ -15,6 +15,7 @@ import           Test.QuickCheck.Arbitrary (Arbitrary (..))
 data Permissions = Permissions
     { permissionsActions              :: Maybe Text
     , permissionsAdministration       :: Maybe Text
+    , permissionsAttestations         :: Maybe Text
     , permissionsChecks               :: Maybe Text
     , permissionsContents             :: Maybe Text
     , permissionsContentReferences    :: Maybe Text
@@ -45,6 +46,7 @@ instance FromJSON Permissions where
     parseJSON (Object x) = Permissions
         <$> x .:? "actions"
         <*> x .:? "administration"
+        <*> x .:? "attestations"
         <*> x .:? "checks"
         <*> x .:? "contents"
         <*> x .:? "content_references"
@@ -76,6 +78,7 @@ instance ToJSON Permissions where
     toJSON Permissions{..} = object
         [ "actions"               .= permissionsActions
         , "administration"        .= permissionsAdministration
+        , "attestations"          .= permissionsAttestations
         , "checks"                .= permissionsChecks
         , "contents"              .= permissionsContents
         , "content_references"    .= permissionsContentReferences
@@ -129,3 +132,4 @@ instance Arbitrary Permissions where
         <*> arbitrary
         <*> arbitrary
         <*> arbitrary
+        <*> arbitrary
diff --git a/src/GitHub/Types/Base/User.hs b/src/GitHub/Types/Base/User.hs
@@ -32,6 +32,7 @@ data User = User
     , userStarredUrl        :: Text
     , userSubscriptionsUrl  :: Text
     , userType              :: Text
+    , userUserViewType      :: Text
     , userUrl               :: Text
     } deriving (Eq, Show, Read)
 
@@ -57,6 +58,7 @@ instance FromJSON User where
         <*> x .: "starred_url"
         <*> x .: "subscriptions_url"
         <*> x .: "type"
+        <*> x .: "user_view_type"
         <*> x .: "url"
 
     parseJSON _ = fail "User"
@@ -83,6 +85,7 @@ instance ToJSON User where
         , "starred_url"         .= userStarredUrl
         , "subscriptions_url"   .= userSubscriptionsUrl
         , "type"                .= userType
+        , "user_view_type"      .= userUserViewType
         , "url"                 .= userUrl
         ]
 
@@ -109,3 +112,4 @@ instance Arbitrary User where
         <*> arbitrary
         <*> arbitrary
         <*> arbitrary
+        <*> arbitrary