github 0.30 → 0.30.0.1

raw patch · 42 files changed

+350/−348 lines, 42 filesdep −deepseq-genericsdep −transformers-compatdep ~binarydep ~bytestringdep ~containersPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies removed: deepseq-generics, transformers-compat

Dependency ranges changed: binary, bytestring, containers, deepseq, mtl, text, transformers

API changes (from Hackage documentation)

Files

• CHANGELOG.md +9/−0
• github.cabal +10/−10
• spec/GitHub/ReposSpec.hs +6/−0
• src/GitHub/Auth.hs +2/−2
• src/GitHub/Data/Actions/Artifacts.hs +2/−2
• src/GitHub/Data/Actions/Cache.hs +3/−3
• src/GitHub/Data/Actions/Common.hs +1/−1
• src/GitHub/Data/Actions/Secrets.hs +8/−8
• src/GitHub/Data/Actions/WorkflowJobs.hs +3/−3
• src/GitHub/Data/Actions/WorkflowRuns.hs +3/−3
• src/GitHub/Data/Actions/Workflows.hs +2/−2
• src/GitHub/Data/Activities.hs +8/−8
• src/GitHub/Data/Comments.hs +10/−10
• src/GitHub/Data/Content.hs +22/−22
• src/GitHub/Data/Definitions.hs +29/−29
• src/GitHub/Data/DeployKeys.hs +2/−2
• src/GitHub/Data/Deployments.hs +12/−12
• src/GitHub/Data/Email.hs +4/−4
• src/GitHub/Data/Enterprise/Organizations.hs +6/−6
• src/GitHub/Data/Events.hs +2/−2
• src/GitHub/Data/Gists.hs +10/−10
• src/GitHub/Data/GitData.hs +31/−31
• src/GitHub/Data/Id.hs +1/−1
• src/GitHub/Data/Invitation.hs +6/−6
• src/GitHub/Data/Issues.hs +12/−12
• src/GitHub/Data/Milestone.hs +6/−6
• src/GitHub/Data/Name.hs +1/−1
• src/GitHub/Data/Options.hs +23/−23
• src/GitHub/Data/PublicSSHKeys.hs +3/−3
• src/GitHub/Data/PullRequests.hs +17/−17
• src/GitHub/Data/RateLimit.hs +4/−4
• src/GitHub/Data/Reactions.hs +6/−6
• src/GitHub/Data/Releases.hs +4/−4
• src/GitHub/Data/Repos.hs +22/−22
• src/GitHub/Data/Request.hs +9/−10
• src/GitHub/Data/Reviews.hs +3/−9
• src/GitHub/Data/Search.hs +4/−4
• src/GitHub/Data/Statuses.hs +7/−9
• src/GitHub/Data/Teams.hs +22/−25
• src/GitHub/Data/URL.hs +2/−2
• src/GitHub/Data/Webhooks.hs +12/−12
• src/GitHub/Internal/Prelude.hs +1/−2

@@ -1,3 +1,12 @@+## Changes for 0.30.0.1++_2025-08-27, Andreas Abel_++- Drop dependencies `deepseq-generics` and `transformers-compat`.+- Remove obsolete `deriving Typeable`.++Tested with GHC 8.2 - 9.14 alpha1.+ ## Changes for 0.30  _2025-05-09, Andreas Abel, Peace edition_

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               github-version:            0.30+version:            0.30.0.1 synopsis:           Access to the GitHub API, v3. category:           Network description:@@ -30,6 +30,7 @@   Copyright 2012-2013 Mike Burns, Copyright 2013-2015 John Wiegley, Copyright 2016-2021 Oleg Grenrus  tested-with:+  GHC == 9.14.1   GHC == 9.12.2   GHC == 9.10.2   GHC == 9.8.4@@ -184,17 +185,18 @@   autogen-modules: Paths_github    -- Packages bundles with GHC, mtl and text are also here+  -- Lower bounds at least those of https://www.stackage.org/lts-10.0 (GHC 8.2.2)   build-depends:       base          >=4.10     && <5-    , binary        >=0.7.1.0  && <0.11-    , bytestring    >=0.10.4.0 && <0.13-    , containers    >=0.5.5.1  && <1-    , deepseq       >=1.3.0.2  && <1.6+    , binary        >=0.8.5.1  && <0.11+    , bytestring    >=0.10.8.2 && <0.13+    , containers    >=0.5.10.2 && <1+    , deepseq       >=1.4.3.0  && <1.6     , exceptions    >=0.10.2   && <0.11-    , mtl           >=2.1.3.1  && <2.2 || >=2.2.1 && <2.4-    , text          >=1.2.0.6  && <2.2+    , mtl           >=2.2.1    && <2.4+    , text          >=1.2.2.2  && <2.2     , time          >=1.8.0.2  && <2-    , transformers  >=0.3.0.0  && <0.7+    , transformers  >=0.5.2.0  && <0.7    -- other packages   build-depends:@@ -203,7 +205,6 @@     , base16-bytestring     >=0.1.1.6    && <1.1     , binary-instances      >=1          && <1.1     , cryptohash-sha1       >=0.11.100.1 && <0.12-    , deepseq-generics      >=0.2.0.0    && <0.3     , hashable              >=1.2.7.0    && <2     , http-client           >=0.5.12     && <0.8     , http-link-header      >=1.0.3.1    && <1.3@@ -211,7 +212,6 @@     , iso8601-time          >=0.1.5      && <0.2     , network-uri           >=2.6.1.0    && <2.7     , tagged                >=0.8.5      && <0.9-    , transformers-compat   >=0.6.5      && <0.8     , unordered-containers  >=0.2.10.0   && <0.3     , vector                >=0.12.0.1   && <0.14 

@@ -1,4 +1,10 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-}++#if __GLASGOW_HASKELL__ >= 900+{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}+#endif+ module GitHub.ReposSpec where  import GitHub

@@ -23,9 +23,9 @@     | OAuth Token                            -- ^ OAuth token     | JWT JWTToken                           -- ^ JWT Token     | EnterpriseOAuth Text Token             -- ^ Custom endpoint and OAuth token-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Auth where rnf = genericRnf+instance NFData Auth instance Binary Auth instance Hashable Auth 

@@ -27,7 +27,7 @@     , artifactWorkflowRunHeadBranch       :: !Text     , artifactWorkflowRunHeadSha          :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data Artifact = Artifact     { artifactArchiveDownloadUrl :: !URL@@ -42,7 +42,7 @@     , artifactUrl                :: !URL     , artifactWorkflowRun        :: !ArtifactWorkflowRun     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  ------------------------------------------------------------------------------- -- JSON instances

@@ -27,20 +27,20 @@     , cacheCreatedAt      :: !UTCTime     , cacheSizeInBytes    :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data RepositoryCacheUsage = RepositoryCacheUsage     { repositoryCacheUsageFullName                :: !Text     , repositoryCacheUsageActiveCachesSizeInBytes :: !Int     , repositoryCacheUsageActiveCachesCount       :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data OrganizationCacheUsage = OrganizationCacheUsage     { organizationCacheUsageTotalActiveCachesSizeInBytes :: !Int     , organizationCacheUsageTotalActiveCachesCount       :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  ------------------------------------------------------------------------------- -- JSON instances

@@ -20,7 +20,7 @@     , withTotalCountTotalCount :: !Int         -- ^ The total size of the answer.     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  -- | Joining two pages of a paginated response. --   The 'withTotalCountTotalCount' is assumed to be the same in both pages,

@@ -33,13 +33,13 @@     , organizationSecretUpdatedAt :: !UTCTime     , organizationSecretVisibility :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data PublicKey = PublicKey     { publicKeyId :: !Text     , publicKeyKey :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data SetSecret = SetSecret     { setSecretPublicKeyId :: !Text@@ -47,35 +47,35 @@     , setSecretVisibility :: !Text     , setSecretSelectedRepositoryIds :: !(Maybe [Id Repo])     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data SetRepoSecret = SetRepoSecret     { setRepoSecretPublicKeyId :: !Text     , setRepoSecretEncryptedValue :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data SelectedRepo = SelectedRepo     { selectedRepoRepoId :: !(Id Repo)     , selectedRepoRepoName :: !(Name Repo)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data SetSelectedRepositories = SetSelectedRepositories     { setSelectedRepositoriesRepositoryIds :: ![Id Repo]     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data RepoSecret = RepoSecret     { repoSecretName :: !(Name RepoSecret)     , repoSecretCreatedAt :: !UTCTime     , repoSecretUpdatedAt :: !UTCTime     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  -- TODO move somewhere else? data Environment = Environment-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  ------------------------------------------------------------------------------- -- JSON instances

@@ -10,7 +10,7 @@ import Prelude () import GitHub.Internal.Prelude        (Applicative ((<*>)), Data, Eq, FromJSON (parseJSON), Generic, Integer,-       Ord, Show, Text, Typeable, UTCTime, Vector, withObject, ($), (.:),+       Ord, Show, Text, UTCTime, Vector, withObject, ($), (.:),        (<$>))  import GitHub.Data.Id                   (Id)@@ -32,7 +32,7 @@     , jobStepStartedAt   :: !UTCTime     , jobStepCompletedAt :: !UTCTime     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data Job = Job     { jobId              :: !(Id Job)@@ -56,7 +56,7 @@     , jobRunnerGroupId   :: !Integer     , jobRunnerGroupName :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  ------------------------------------------------------------------------------- -- JSON instances

@@ -41,10 +41,10 @@     , workflowRunAttempt :: !Integer     , workflowRunStartedAt :: !UTCTime     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data RunAttempt = RunAttempt-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data ReviewHistory  = ReviewHistory     { reviewHistoryState :: !Text@@ -52,7 +52,7 @@     , reviewHistoryUser :: !SimpleUser      }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  ------------------------------------------------------------------------------- -- JSON instances

@@ -25,7 +25,7 @@     , workflowHtmlUrl    :: !URL     , workflowBadgeUrl   :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  data CreateWorkflowDispatchEvent a = CreateWorkflowDispatchEvent     { createWorkflowDispatchEventRef    :: !Text@@ -33,7 +33,7 @@     }   deriving (Show, Generic) -instance (NFData a) => NFData (CreateWorkflowDispatchEvent a) where rnf = genericRnf+instance (NFData a) => NFData (CreateWorkflowDispatchEvent a) instance (Binary a) => Binary (CreateWorkflowDispatchEvent a)  -------------------------------------------------------------------------------

@@ -13,9 +13,9 @@     { repoStarredStarredAt :: !UTCTime     , repoStarredRepo      :: !Repo     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoStarred where rnf = genericRnf+instance NFData RepoStarred instance Binary RepoStarred  -- JSON Instances@@ -33,9 +33,9 @@     -- TODO: Make an ADT for this.     , subjectType :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Subject where rnf = genericRnf+instance NFData Subject instance Binary Subject  instance FromJSON Subject where@@ -61,9 +61,9 @@     | StateChangeReason     | SubscribedReason     | TeamMentionReason-  deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData NotificationReason where rnf = genericRnf+instance NFData NotificationReason instance Binary NotificationReason  instance FromJSON NotificationReason where@@ -97,9 +97,9 @@     , notificationLastReadAt :: !(Maybe UTCTime)     , notificationUrl :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Notification where rnf = genericRnf+instance NFData Notification instance Binary Notification  instance FromJSON Notification where

@@ -19,9 +19,9 @@     , commentUser      :: !SimpleUser     , commentId        :: !(Id Comment)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Comment where rnf = genericRnf+instance NFData Comment instance Binary Comment  instance FromJSON Comment where@@ -41,9 +41,9 @@ data NewComment = NewComment     { newCommentBody :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewComment where rnf = genericRnf+instance NFData NewComment instance Binary NewComment  instance ToJSON NewComment where@@ -52,9 +52,9 @@ data EditComment = EditComment     { editCommentBody :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData EditComment where rnf = genericRnf+instance NFData EditComment instance Binary EditComment  instance ToJSON EditComment where@@ -66,9 +66,9 @@     , newPullCommentPosition :: !Int     , newPullCommentBody     :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewPullComment where rnf = genericRnf+instance NFData NewPullComment instance Binary NewPullComment  instance ToJSON NewPullComment where@@ -82,9 +82,9 @@ data PullCommentReply = PullCommentReply     { pullCommentReplyBody     :: Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData PullCommentReply where rnf = genericRnf+instance NFData PullCommentReply  instance ToJSON PullCommentReply where     toJSON (PullCommentReply b) =

@@ -18,9 +18,9 @@ data Content   = ContentFile !ContentFileData   | ContentDirectory !(Vector ContentItem)- deriving (Show, Data, Typeable, Eq, Ord, Generic)+ deriving (Show, Data, Eq, Ord, Generic) -instance NFData Content where rnf = genericRnf+instance NFData Content instance Binary Content  data ContentFileData = ContentFileData {@@ -28,24 +28,24 @@   ,contentFileEncoding :: !Text   ,contentFileSize     :: !Int   ,contentFileContent  :: !Text-} deriving (Show, Data, Typeable, Eq, Ord, Generic)+} deriving (Show, Data, Eq, Ord, Generic) -instance NFData ContentFileData where rnf = genericRnf+instance NFData ContentFileData instance Binary ContentFileData  -- | An item in a directory listing. data ContentItem = ContentItem {    contentItemType :: !ContentItemType   ,contentItemInfo :: !ContentInfo-} deriving (Show, Data, Typeable, Eq, Ord, Generic)+} deriving (Show, Data, Eq, Ord, Generic) -instance NFData ContentItem where rnf = genericRnf+instance NFData ContentItem instance Binary ContentItem  data ContentItemType = ItemFile | ItemDir-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData ContentItemType where rnf = genericRnf+instance NFData ContentItemType instance Binary ContentItemType  -- | Information common to both kinds of Content: files and directories.@@ -56,34 +56,34 @@   ,contentUrl     :: !URL   ,contentGitUrl  :: !URL   ,contentHtmlUrl :: !URL-} deriving (Show, Data, Typeable, Eq, Ord, Generic)+} deriving (Show, Data, Eq, Ord, Generic) -instance NFData ContentInfo where rnf = genericRnf+instance NFData ContentInfo instance Binary ContentInfo  data ContentResultInfo = ContentResultInfo     { contentResultInfo :: !ContentInfo     , contentResultSize :: !Int-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData ContentResultInfo where rnf = genericRnf+instance NFData ContentResultInfo instance Binary ContentResultInfo  data ContentResult = ContentResult     { contentResultContent  :: !ContentResultInfo     , contentResultCommit   :: !GitCommit-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData ContentResult where rnf = genericRnf+instance NFData ContentResult instance Binary ContentResult  data Author = Author     { authorName  :: !Text     , authorEmail :: !Text     }-    deriving (Eq, Ord, Show, Data, Typeable, Generic)+    deriving (Eq, Ord, Show, Data, Generic) -instance NFData Author where rnf = genericRnf+instance NFData Author instance Binary Author  data CreateFile = CreateFile@@ -94,9 +94,9 @@     , createFileAuthor    :: !(Maybe Author)     , createFileCommitter :: !(Maybe Author)     }-    deriving (Eq, Ord, Show, Data, Typeable, Generic)+    deriving (Eq, Ord, Show, Data, Generic) -instance NFData CreateFile where rnf = genericRnf+instance NFData CreateFile instance Binary CreateFile  data UpdateFile = UpdateFile@@ -108,9 +108,9 @@     , updateFileAuthor    :: !(Maybe Author)     , updateFileCommitter :: !(Maybe Author)     }-    deriving (Eq, Ord, Show, Data, Typeable, Generic)+    deriving (Eq, Ord, Show, Data, Generic) -instance NFData UpdateFile where rnf = genericRnf+instance NFData UpdateFile instance Binary UpdateFile  data DeleteFile = DeleteFile@@ -121,9 +121,9 @@     , deleteFileAuthor    :: !(Maybe Author)     , deleteFileCommitter :: !(Maybe Author)     }-    deriving (Eq, Ord, Show, Data, Typeable, Generic)+    deriving (Eq, Ord, Show, Data, Generic) -instance NFData DeleteFile where rnf = genericRnf+instance NFData DeleteFile instance Binary DeleteFile  instance FromJSON Content where

@@ -22,13 +22,13 @@     | ParseError !Text -- ^ An error in the parser itself.     | JsonError !Text -- ^ The JSON is malformed or unexpected.     | UserError !Text -- ^ Incorrect input.-    deriving (Show, Typeable)+    deriving (Show)  instance E.Exception Error  -- | Type of the repository owners. data OwnerType = OwnerUser | OwnerOrganization | OwnerBot-    deriving (Eq, Ord, Enum, Bounded, Show, Read, Generic, Typeable, Data)+    deriving (Eq, Ord, Enum, Bounded, Show, Read, Generic, Data)  instance NFData OwnerType instance Binary OwnerType@@ -39,9 +39,9 @@     , simpleUserAvatarUrl :: !URL     , simpleUserUrl       :: !URL     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData SimpleUser where rnf = genericRnf+instance NFData SimpleUser instance Binary SimpleUser  data SimpleOrganization = SimpleOrganization@@ -50,9 +50,9 @@     , simpleOrganizationUrl       :: !URL     , simpleOrganizationAvatarUrl :: !URL     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData SimpleOrganization where rnf = genericRnf+instance NFData SimpleOrganization instance Binary SimpleOrganization  -- | Sometimes we don't know the type of the owner, e.g. in 'Repo'@@ -63,9 +63,9 @@     , simpleOwnerAvatarUrl :: !URL     , simpleOwnerType      :: !OwnerType     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData SimpleOwner where rnf = genericRnf+instance NFData SimpleOwner instance Binary SimpleOwner  data User = User@@ -88,9 +88,9 @@     , userUrl         :: !URL     , userHtmlUrl     :: !URL     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData User where rnf = genericRnf+instance NFData User instance Binary User  data Organization = Organization@@ -111,16 +111,16 @@     , organizationUrl         :: !URL     , organizationCreatedAt   :: !UTCTime     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Organization where rnf = genericRnf+instance NFData Organization instance Binary Organization  -- | In practice you can't have concrete values of 'Owner'. newtype Owner = Owner (Either User Organization)-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Owner where rnf = genericRnf+instance NFData Owner instance Binary Owner  fromOwner :: Owner -> Either User Organization@@ -218,14 +218,14 @@ data OrgMemberFilter     = OrgMemberFilter2faDisabled  -- ^ Members without two-factor authentication enabled. Available for organization owners.     | OrgMemberFilterAll          -- ^ All members the authenticated user can see.-    deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)+    deriving (Show, Eq, Ord, Enum, Bounded, Data, Generic)  -- | Filter members returned by their role. data OrgMemberRole     = OrgMemberRoleAll     -- ^ All members of the organization, regardless of role.     | OrgMemberRoleAdmin   -- ^ Organization owners.     | OrgMemberRoleMember  -- ^ Non-owner organization members.-    deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)+    deriving (Show, Eq, Ord, Enum, Bounded, Data, Generic)  -- | Request query string type QueryString = [(BS.ByteString, Maybe BS.ByteString)]@@ -240,9 +240,9 @@     | MembershipRoleAdmin     | MembershipRoleBillingManager   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData MembershipRole where rnf = genericRnf+instance NFData MembershipRole instance Binary MembershipRole  instance FromJSON MembershipRole where@@ -255,9 +255,9 @@ data MembershipState     = MembershipPending     | MembershipActive-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData MembershipState where rnf = genericRnf+instance NFData MembershipState instance Binary MembershipState  instance FromJSON MembershipState where@@ -275,9 +275,9 @@     , membershipOrganization    :: !SimpleOrganization     , membershipUser            :: !SimpleUser     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Membership where rnf = genericRnf+instance NFData Membership instance Binary Membership  instance FromJSON Membership where@@ -295,7 +295,7 @@ -------------------------------------------------------------------------------  newtype IssueNumber = IssueNumber Int-    deriving (Eq, Ord, Show, Generic, Typeable, Data)+    deriving (Eq, Ord, Show, Generic, Data)  unIssueNumber :: IssueNumber -> Int unIssueNumber (IssueNumber i) = i@@ -322,9 +322,9 @@     , labelName  :: !(Name IssueLabel)     , labelDesc  :: !(Maybe Text)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData IssueLabel where rnf = genericRnf+instance NFData IssueLabel instance Binary IssueLabel  instance FromJSON IssueLabel where@@ -344,9 +344,9 @@     , newLabelName  :: !(Name NewIssueLabel)     , newLabelDesc  :: !(Maybe Text)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewIssueLabel where rnf = genericRnf+instance NFData NewIssueLabel instance Binary NewIssueLabel  @@ -371,9 +371,9 @@     , updateLabelName  :: !(Name UpdateIssueLabel)     , updateLabelDesc  :: !(Maybe Text)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData UpdateIssueLabel where rnf = genericRnf+instance NFData UpdateIssueLabel instance Binary UpdateIssueLabel  

@@ -19,7 +19,7 @@     , repoDeployKeyCreatedAt :: !UTCTime     , repoDeployKeyReadOnly  :: !Bool     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON RepoDeployKey where     parseJSON = withObject "RepoDeployKey" $ \o -> RepoDeployKey@@ -36,7 +36,7 @@     , newRepoDeployKeyTitle    :: !Text     , newRepoDeployKeyReadOnly :: !Bool     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance ToJSON NewRepoDeployKey where     toJSON (NewRepoDeployKey key title readOnly) = object

@@ -34,9 +34,9 @@     | DeploymentQueryRef         !Text     | DeploymentQueryTask        !Text     | DeploymentQueryEnvironment !Text-      deriving (Show, Data, Typeable, Eq, Ord, Generic)+      deriving (Show, Data, Eq, Ord, Generic) -instance NFData DeploymentQueryOption where rnf = genericRnf+instance NFData DeploymentQueryOption instance Binary DeploymentQueryOption  renderDeploymentQueryOption :: DeploymentQueryOption -> (ByteString, ByteString)@@ -61,9 +61,9 @@     , deploymentUpdatedAt     :: !UTCTime     , deploymentStatusesUrl   :: !URL     , deploymentRepositoryUrl :: !URL-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData a => NFData (Deployment a) where rnf = genericRnf+instance NFData a => NFData (Deployment a) instance Binary a => Binary (Deployment a)  instance FromJSON a => FromJSON (Deployment a) where@@ -104,9 +104,9 @@     -- qa). Default: production     , createDeploymentDescription      :: !(Maybe Text)     -- ^ Short description of the deployment. Default: ""-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData a => NFData (CreateDeployment a) where rnf = genericRnf+instance NFData a => NFData (CreateDeployment a) instance Binary a => Binary (CreateDeployment a)  instance ToJSON a => ToJSON (CreateDeployment a) where@@ -132,9 +132,9 @@     , deploymentStatusUpdatedAt     :: !UTCTime     , deploymentStatusDeploymentUrl :: !URL     , deploymentStatusRepositoryUrl :: !URL-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData DeploymentStatus where rnf = genericRnf+instance NFData DeploymentStatus instance Binary DeploymentStatus  instance FromJSON DeploymentStatus where@@ -157,9 +157,9 @@     | DeploymentStatusPending     | DeploymentStatusSuccess     | DeploymentStatusInactive-      deriving (Show, Data, Typeable, Eq, Ord, Generic)+      deriving (Show, Data, Eq, Ord, Generic) -instance NFData DeploymentStatusState where rnf = genericRnf+instance NFData DeploymentStatusState instance Binary DeploymentStatusState  instance ToJSON DeploymentStatusState where@@ -190,9 +190,9 @@     , createDeploymentStatusDescription :: !(Maybe Text)     -- ^ A short description of the status. Maximum length of 140 characters.     -- Default: ""-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData CreateDeploymentStatus where rnf = genericRnf+instance NFData CreateDeploymentStatus instance Binary CreateDeploymentStatus  instance ToJSON CreateDeploymentStatus where

@@ -8,9 +8,9 @@ data EmailVisibility     = EmailVisibilityPrivate     | EmailVisibilityPublic-    deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData EmailVisibility where rnf = genericRnf+instance NFData EmailVisibility instance Binary EmailVisibility  instance FromJSON EmailVisibility where@@ -24,9 +24,9 @@     , emailVerified   :: !Bool     , emailPrimary    :: !Bool     , emailVisibility :: !(Maybe EmailVisibility)-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)+    } deriving (Show, Data, Eq, Ord, Generic) -instance NFData Email where rnf = genericRnf+instance NFData Email instance Binary Email  instance FromJSON Email where

@@ -11,26 +11,26 @@     , createOrganizationAdmin       :: !(Name User)     , createOrganizationProfileName :: !(Maybe Text)     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData CreateOrganization where rnf = genericRnf+instance NFData CreateOrganization instance Binary CreateOrganization  data RenameOrganization = RenameOrganization     { renameOrganizationLogin :: !(Name Organization)     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData RenameOrganization where rnf = genericRnf+instance NFData RenameOrganization instance Binary RenameOrganization  data RenameOrganizationResponse = RenameOrganizationResponse     { renameOrganizationResponseMessage :: !Text     , renameOrganizationResponseUrl     :: !URL     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData RenameOrganizationResponse where rnf = genericRnf+instance NFData RenameOrganizationResponse instance Binary RenameOrganizationResponse  -- JSON Instances

@@ -16,9 +16,9 @@     , eventCreatedAt :: !UTCTime     , eventPublic    :: !Bool     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Event where rnf = genericRnf+instance NFData Event instance Binary Event  instance FromJSON Event where

@@ -21,9 +21,9 @@     , gistId          :: !(Name Gist)     , gistFiles       :: !(HashMap Text GistFile)     , gistGitPullUrl  :: !URL-    } deriving (Show, Data, Typeable, Eq, Generic)+    } deriving (Show, Data, Eq, Generic) -instance NFData Gist where rnf = genericRnf+instance NFData Gist instance Binary Gist  instance FromJSON Gist where@@ -49,9 +49,9 @@     , gistFileFilename :: !Text     , gistFileContent  :: !(Maybe Text)     }-  deriving (Show, Data, Typeable, Eq, Generic)+  deriving (Show, Data, Eq, Generic) -instance NFData GistFile where rnf = genericRnf+instance NFData GistFile instance Binary GistFile  instance FromJSON GistFile where@@ -71,9 +71,9 @@     , gistCommentUpdatedAt :: !UTCTime     , gistCommentId        :: !(Id GistComment)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData GistComment where rnf = genericRnf+instance NFData GistComment instance Binary GistComment  instance FromJSON GistComment where@@ -89,9 +89,9 @@     { newGistDescription :: !(Maybe Text)     , newGistFiles       :: !(HashMap Text NewGistFile)     , newGistPublic      :: !(Maybe Bool)-    } deriving (Show, Data, Typeable, Eq, Generic)+    } deriving (Show, Data, Eq, Generic) -instance NFData NewGist where rnf = genericRnf+instance NFData NewGist instance Binary NewGist  instance ToJSON NewGist where@@ -109,9 +109,9 @@  data NewGistFile = NewGistFile     { newGistFileContent :: !Text-    } deriving (Show, Data, Typeable, Eq, Generic)+    } deriving (Show, Data, Eq, Generic) -instance NFData NewGistFile where rnf = genericRnf+instance NFData NewGistFile instance Binary NewGistFile  instance ToJSON NewGistFile where

@@ -15,16 +15,16 @@     | CommitQueryAuthor !Text     | CommitQuerySince !UTCTime     | CommitQueryUntil !UTCTime-  deriving (Show, Eq, Ord, Generic, Typeable, Data)+  deriving (Show, Eq, Ord, Generic, Data)  data Stats = Stats     { statsAdditions :: !Int     , statsTotal     :: !Int     , statsDeletions :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Stats where rnf = genericRnf+instance NFData Stats instance Binary Stats  data Commit = Commit@@ -37,9 +37,9 @@     , commitFiles     :: !(Vector File)     , commitStats     :: !(Maybe Stats)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Commit where rnf = genericRnf+instance NFData Commit instance Binary Commit  data Tree = Tree@@ -47,9 +47,9 @@     , treeUrl      :: !URL     , treeGitTrees :: !(Vector GitTree)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Tree where rnf = genericRnf+instance NFData Tree instance Binary Tree  data GitTree = GitTree@@ -61,9 +61,9 @@     , gitTreePath :: !Text     , gitTreeMode :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData GitTree where rnf = genericRnf+instance NFData GitTree instance Binary GitTree  data GitCommit = GitCommit@@ -75,9 +75,9 @@     , gitCommitSha       :: !(Maybe (Name GitCommit))     , gitCommitParents   :: !(Vector Tree)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData GitCommit where rnf = genericRnf+instance NFData GitCommit instance Binary GitCommit  data Blob = Blob@@ -87,9 +87,9 @@     , blobSha      :: !(Name Blob)     , blobSize     :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Blob where rnf = genericRnf+instance NFData Blob instance Binary Blob  data Tag = Tag@@ -98,26 +98,26 @@     , tagTarballUrl :: !URL     , tagCommit     :: !BranchCommit     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Tag where rnf = genericRnf+instance NFData Tag instance Binary Tag  data Branch = Branch     { branchName   :: !Text     , branchCommit :: !BranchCommit     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Branch where rnf = genericRnf+instance NFData Branch  data BranchCommit = BranchCommit     { branchCommitSha :: !Text     , branchCommitUrl :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData BranchCommit where rnf = genericRnf+instance NFData BranchCommit instance Binary BranchCommit  data Diff = Diff@@ -134,18 +134,18 @@     , diffDiffUrl      :: !URL     , diffPermalinkUrl :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Diff where rnf = genericRnf+instance NFData Diff instance Binary Diff  data NewGitReference = NewGitReference     { newGitReferenceRef :: !Text     , newGitReferenceSha :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewGitReference where rnf = genericRnf+instance NFData NewGitReference instance Binary NewGitReference  data GitReference = GitReference@@ -153,9 +153,9 @@     , gitReferenceUrl    :: !URL     , gitReferenceRef    :: !(Name GitReference)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData GitReference where rnf = genericRnf+instance NFData GitReference instance Binary GitReference  data GitObject = GitObject@@ -163,9 +163,9 @@     , gitObjectSha  :: !Text     , gitObjectUrl  :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData GitObject where rnf = genericRnf+instance NFData GitObject instance Binary GitObject  data GitUser = GitUser@@ -173,9 +173,9 @@     , gitUserEmail :: !Text     , gitUserDate  :: !UTCTime     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData GitUser where rnf = genericRnf+instance NFData GitUser instance Binary GitUser  data File = File@@ -189,9 +189,9 @@     , fileFilename  :: !Text     , fileDeletions :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData File where rnf = genericRnf+instance NFData File instance Binary File  -- JSON instances

@@ -9,7 +9,7 @@  -- | Numeric identifier. newtype Id entity = Id Int-    deriving (Eq, Ord, Show, Generic, Typeable, Data)+    deriving (Eq, Ord, Show, Generic, Data)  -- | Smart constructor for 'Id'. mkId :: proxy entity -> Int -> Id entity

@@ -19,9 +19,9 @@     , invitationCreatedAt :: !UTCTime     , inviter             :: !SimpleUser     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Invitation where rnf = genericRnf+instance NFData Invitation instance Binary Invitation  instance FromJSON Invitation where@@ -41,9 +41,9 @@     | InvitationRoleHiringManager     | InvitationRoleReinstate   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData InvitationRole where rnf = genericRnf+instance NFData InvitationRole instance Binary InvitationRole  instance FromJSON InvitationRole where@@ -65,9 +65,9 @@     , repoInvitationPermission :: !Text     , repoInvitationHtmlUrl    :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoInvitation where rnf = genericRnf+instance NFData RepoInvitation instance Binary RepoInvitation  instance FromJSON RepoInvitation where

@@ -33,9 +33,9 @@     , issueMilestone   :: !(Maybe Milestone)     , issueStateReason :: !(Maybe IssueStateReason)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Issue where rnf = genericRnf+instance NFData Issue instance Binary Issue  data NewIssue = NewIssue@@ -45,9 +45,9 @@     , newIssueMilestone :: !(Maybe (Id Milestone))     , newIssueLabels    :: !(Maybe (Vector (Name IssueLabel)))     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewIssue where rnf = genericRnf+instance NFData NewIssue instance Binary NewIssue  data EditIssue = EditIssue@@ -58,9 +58,9 @@     , editIssueMilestone :: !(Maybe (Id Milestone))     , editIssueLabels    :: !(Maybe (Vector (Name IssueLabel)))     }-  deriving  (Show, Data, Typeable, Eq, Ord, Generic)+  deriving  (Show, Data, Eq, Ord, Generic) -instance NFData EditIssue where rnf = genericRnf+instance NFData EditIssue instance Binary EditIssue  data IssueComment = IssueComment@@ -72,9 +72,9 @@     , issueCommentBody      :: !Text     , issueCommentId        :: !Int     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData IssueComment where rnf = genericRnf+instance NFData IssueComment instance Binary IssueComment  -- | See <https://developer.github.com/v3/issues/events/#events-1>@@ -106,9 +106,9 @@     | MovedColumnsInProject -- ^ The issue was moved between columns in a project board.     | RemovedFromProject    -- ^ The issue was removed from a project board.     | ConvertedNoteToIssue  -- ^ The issue was created by converting a note in a project board to an issue.-  deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData EventType where rnf = genericRnf+instance NFData EventType instance Binary EventType  -- | Issue event@@ -122,9 +122,9 @@     , issueEventIssue     :: !(Maybe Issue)     , issueEventLabel     :: !(Maybe IssueLabel)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData IssueEvent where rnf = genericRnf+instance NFData IssueEvent instance Binary IssueEvent  instance FromJSON IssueEvent where

@@ -18,9 +18,9 @@     , milestoneCreatedAt    :: !UTCTime     , milestoneState        :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Milestone where rnf = genericRnf+instance NFData Milestone instance Binary Milestone  instance FromJSON Milestone where@@ -42,9 +42,9 @@     , newMilestoneDescription :: !(Maybe Text)     , newMilestoneDueOn       :: !(Maybe UTCTime)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewMilestone where rnf = genericRnf+instance NFData NewMilestone instance Binary NewMilestone  @@ -65,9 +65,9 @@   , updateMilestoneDescription :: !(Maybe Text)   , updateMilestoneDueOn       :: !(Maybe UTCTime)   }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData UpdateMilestone where rnf = genericRnf+instance NFData UpdateMilestone instance Binary UpdateMilestone  

@@ -11,7 +11,7 @@        (FromJSONKey (..), ToJSONKey (..), fromJSONKeyCoerce, toJSONKeyText)  newtype Name entity = N Text-    deriving (Eq, Ord, Show, Generic, Typeable, Data)+    deriving (Eq, Ord, Show, Generic, Data)  -- | Smart constructor for 'Name' mkName :: proxy entity -> Text -> Name entity

@@ -104,7 +104,7 @@     = StateOpen     | StateClosed   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data)  instance ToJSON IssueState where     toJSON StateOpen    = String "open"@@ -116,7 +116,7 @@         "closed" -> pure StateClosed         _        -> fail $ "Unknown IssueState: " <> T.unpack t -instance NFData IssueState where rnf = genericRnf+instance NFData IssueState instance Binary IssueState  -- | 'GitHub.Data.Issues.Issue' state reason@@ -126,7 +126,7 @@     | StateReasonNotPlanned     | StateReasonReopened   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data)  instance ToJSON IssueStateReason where     toJSON = String . \case@@ -143,7 +143,7 @@         "reopened"    -> pure StateReasonReopened         _ -> fail $ "Unknown IssueStateReason: " <> T.unpack t -instance NFData IssueStateReason where rnf = genericRnf+instance NFData IssueStateReason instance Binary IssueStateReason  -- | 'GitHub.Data.PullRequests.PullRequest' mergeable_state@@ -156,7 +156,7 @@     | StateBehind     | StateDraft   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data)  instance ToJSON MergeableState where     toJSON StateUnknown  = String "unknown"@@ -178,16 +178,16 @@         "draft"    -> pure StateDraft         _          -> fail $ "Unknown MergeableState: " <> T.unpack t -instance NFData MergeableState where rnf = genericRnf+instance NFData MergeableState instance Binary MergeableState  data SortDirection     = SortAscending     | SortDescending   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData SortDirection where rnf = genericRnf+instance NFData SortDirection instance Binary SortDirection  -- PR@@ -198,9 +198,9 @@     | SortPRPopularity     | SortPRLongRunning   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData SortPR where rnf = genericRnf+instance NFData SortPR instance Binary SortPR  -- Issue@@ -211,9 +211,9 @@     | IssueFilterSubscribed     | IssueFilterAll   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData IssueFilter where rnf = genericRnf+instance NFData IssueFilter instance Binary IssueFilter  data SortIssue@@ -221,9 +221,9 @@     | SortIssueUpdated     | SortIssueComments   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData SortIssue where rnf = genericRnf+instance NFData SortIssue instance Binary SortIssue  data FilterBy a@@ -234,7 +234,7 @@       -- ^ e.g. for milestones "any" means "any milestone".       -- I.e. won't show issues without mileston specified   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  -- Actions cache @@ -243,9 +243,9 @@     | SortCacheLastAccessedAt     | SortCacheSizeInBytes   deriving-    (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)+    (Eq, Ord, Show, Enum, Bounded, Generic, Data) -instance NFData SortCache where rnf = genericRnf+instance NFData SortCache instance Binary SortCache  -------------------------------------------------------------------------------@@ -334,7 +334,7 @@     , pullRequestOptionsDirection :: !SortDirection     }   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  defaultPullRequestOptions :: PullRequestOptions defaultPullRequestOptions = PullRequestOptions@@ -429,7 +429,7 @@     , issueOptionsSince     :: !(Maybe UTCTime)     }   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  defaultIssueOptions :: IssueOptions defaultIssueOptions = IssueOptions@@ -575,7 +575,7 @@     , issueRepoOptionsSince     :: !(Maybe UTCTime)             -- ^ 'HasSince'     }   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  defaultIssueRepoOptions :: IssueRepoOptions defaultIssueRepoOptions = IssueRepoOptions@@ -714,7 +714,7 @@     { artifactOptionsName :: !(Maybe Text)     }   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  defaultArtifactOptions :: ArtifactOptions defaultArtifactOptions = ArtifactOptions@@ -763,7 +763,7 @@     , cacheOptionsDirection :: !(Maybe SortDirection)     }   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  defaultCacheOptions :: CacheOptions defaultCacheOptions = CacheOptions@@ -863,7 +863,7 @@     , workflowRunOptionsHeadSha :: !(Maybe Text)     }   deriving-    (Eq, Ord, Show, Generic, Typeable, Data)+    (Eq, Ord, Show, Generic, Data)  defaultWorkflowRunOptions :: WorkflowRunOptions defaultWorkflowRunOptions = WorkflowRunOptions

@@ -14,7 +14,7 @@     { basicPublicSSHKeyId        :: !(Id PublicSSHKey)     , basicPublicSSHKeyKey       :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON PublicSSHKeyBasic where     parseJSON = withObject "PublicSSHKeyBasic" $ \o -> PublicSSHKeyBasic@@ -30,7 +30,7 @@     , publicSSHKeyCreatedAt :: !(Maybe UTCTime)     , publicSSHKeyReadOnly  :: !Bool     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON PublicSSHKey where     parseJSON = withObject "PublicSSHKey" $ \o -> PublicSSHKey@@ -46,7 +46,7 @@     { newPublicSSHKeyKey      :: !Text     , newPublicSSHKeyTitle    :: !Text     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance ToJSON NewPublicSSHKey where     toJSON (NewPublicSSHKey key title) = object

@@ -43,9 +43,9 @@     , simplePullRequestTitle              :: !Text     , simplePullRequestId                 :: !(Id PullRequest)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData SimplePullRequest where rnf = genericRnf+instance NFData SimplePullRequest instance Binary SimplePullRequest  data PullRequest = PullRequest@@ -81,9 +81,9 @@     , pullRequestMergeable            :: !(Maybe Bool)     , pullRequestMergeableState       :: !MergeableState     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData PullRequest where rnf = genericRnf+instance NFData PullRequest instance Binary PullRequest  data EditPullRequest = EditPullRequest@@ -96,7 +96,7 @@     }   deriving (Show, Generic) -instance NFData EditPullRequest where rnf = genericRnf+instance NFData EditPullRequest instance Binary EditPullRequest  data CreatePullRequest@@ -113,7 +113,7 @@       }   deriving (Show, Generic) -instance NFData CreatePullRequest where rnf = genericRnf+instance NFData CreatePullRequest instance Binary CreatePullRequest  data PullRequestLinks = PullRequestLinks@@ -122,9 +122,9 @@     , pullRequestLinksHtml           :: !URL     , pullRequestLinksSelf           :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData PullRequestLinks where rnf = genericRnf+instance NFData PullRequestLinks instance Binary PullRequestLinks  data PullRequestCommit = PullRequestCommit@@ -134,9 +134,9 @@     , pullRequestCommitUser  :: !SimpleUser     , pullRequestCommitRepo  :: !(Maybe Repo)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData PullRequestCommit where rnf = genericRnf+instance NFData PullRequestCommit instance Binary PullRequestCommit  data PullRequestEvent = PullRequestEvent@@ -146,9 +146,9 @@     , pullRequestRepository       :: !Repo     , pullRequestSender           :: !SimpleUser     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData PullRequestEvent where rnf = genericRnf+instance NFData PullRequestEvent instance Binary PullRequestEvent  data PullRequestEventType@@ -163,9 +163,9 @@     | PullRequestReviewRequested     | PullRequestReviewRequestRemoved     | PullRequestEdited-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData PullRequestEventType where rnf = genericRnf+instance NFData PullRequestEventType instance Binary PullRequestEventType  data PullRequestReference = PullRequestReference@@ -173,9 +173,9 @@     , pullRequestReferencePatchUrl :: !(Maybe URL)     , pullRequestReferenceDiffUrl  :: !(Maybe URL)     }-    deriving (Eq, Ord, Show, Generic, Typeable, Data)+    deriving (Eq, Ord, Show, Generic, Data) -instance NFData PullRequestReference where rnf = genericRnf+instance NFData PullRequestReference instance Binary PullRequestReference  @@ -316,4 +316,4 @@     = MergeSuccessful     | MergeCannotPerform     | MergeConflict-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable)+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic)

@@ -13,9 +13,9 @@     , limitsRemaining :: !Int     , limitsReset     :: !SystemTime     }-  deriving (Show, {- Data, -} Typeable, Eq, Ord, Generic)+  deriving (Show, Eq, Ord, Generic) -instance NFData Limits where rnf = genericRnf+instance NFData Limits instance Binary Limits  instance FromJSON Limits where@@ -29,9 +29,9 @@     , rateLimitSearch  :: Limits     , rateLimitGraphQL :: Limits     }-  deriving (Show, {- Data, -} Typeable, Eq, Ord, Generic)+  deriving (Show, Eq, Ord, Generic) -instance NFData RateLimit where rnf = genericRnf+instance NFData RateLimit instance Binary RateLimit  instance FromJSON RateLimit where

@@ -13,17 +13,17 @@   , reactionContent :: !ReactionContent   , reactionCreatedAt :: !UTCTime   }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Reaction where rnf = genericRnf+instance NFData Reaction instance Binary Reaction  data NewReaction = NewReaction   { newReactionContent :: !ReactionContent   }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewReaction where rnf = genericRnf+instance NFData NewReaction instance Binary NewReaction  -- |@@ -37,9 +37,9 @@   | Hooray   | Rocket   | Eyes-  deriving (Show, Data, Typeable, Eq, Ord, Enum, Bounded, Generic)+  deriving (Show, Data, Eq, Ord, Enum, Bounded, Generic) -instance NFData ReactionContent where rnf = genericRnf+instance NFData ReactionContent instance Binary ReactionContent  -- JSON instances

@@ -25,7 +25,7 @@     , releaseAuthor          :: !SimpleUser     , releaseAssets          :: !(Vector ReleaseAsset)     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON Release where     parseJSON = withObject "Event" $ \o -> Release@@ -47,7 +47,7 @@         <*> o .: "author"         <*> o .: "assets" -instance NFData Release where rnf = genericRnf+instance NFData Release instance Binary Release  data ReleaseAsset = ReleaseAsset@@ -64,7 +64,7 @@     , releaseAssetUpdatedAt          :: !UTCTime     , releaseAssetUploader           :: !SimpleUser     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON ReleaseAsset where     parseJSON = withObject "Event" $ \o -> ReleaseAsset@@ -81,5 +81,5 @@         <*> o .: "updated_at"         <*> o .: "uploader" -instance NFData ReleaseAsset where rnf = genericRnf+instance NFData ReleaseAsset instance Binary ReleaseAsset

@@ -53,9 +53,9 @@     , repoUpdatedAt       :: !(Maybe UTCTime)     , repoPermissions     :: !(Maybe RepoPermissions) -- ^ Repository permissions as they relate to the authenticated user.     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Repo where rnf = genericRnf+instance NFData Repo instance Binary Repo  data CodeSearchRepo = CodeSearchRepo@@ -88,9 +88,9 @@     , codeSearchRepoUpdatedAt       :: !(Maybe UTCTime)     , codeSearchRepoPermissions     :: !(Maybe RepoPermissions) -- ^ Repository permissions as they relate to the authenticated user.     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData CodeSearchRepo where rnf = genericRnf+instance NFData CodeSearchRepo instance Binary CodeSearchRepo  -- | Repository permissions, as they relate to the authenticated user.@@ -101,18 +101,18 @@     , repoPermissionPush :: !Bool     , repoPermissionPull :: !Bool     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoPermissions where rnf = genericRnf+instance NFData RepoPermissions instance Binary RepoPermissions  data RepoRef = RepoRef     { repoRefOwner :: !SimpleOwner     , repoRefRepo  :: !(Name Repo)     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoRef where rnf = genericRnf+instance NFData RepoRef instance Binary RepoRef  data NewRepo = NewRepo@@ -129,9 +129,9 @@     , newRepoAllowSquashMerge  :: !(Maybe Bool)     , newRepoAllowMergeCommit  :: !(Maybe Bool)     , newRepoAllowRebaseMerge  :: !(Maybe Bool)-    } deriving (Eq, Ord, Show, Data, Typeable, Generic)+    } deriving (Eq, Ord, Show, Data, Generic) -instance NFData NewRepo where rnf = genericRnf+instance NFData NewRepo instance Binary NewRepo  newRepo :: Name Repo -> NewRepo@@ -151,9 +151,9 @@     , editAllowRebaseMerge :: !(Maybe Bool)     , editArchived         :: !(Maybe Bool)     }-    deriving (Eq, Ord, Show, Data, Typeable, Generic)+    deriving (Eq, Ord, Show, Data, Generic) -instance NFData EditRepo where rnf = genericRnf+instance NFData EditRepo instance Binary EditRepo  -- | Filter the list of the user's repos using any of these constructors.@@ -163,19 +163,19 @@     | RepoPublicityPublic  -- ^ Only public repos.     | RepoPublicityPrivate -- ^ Only private repos.     | RepoPublicityMember  -- ^ Only repos to which the user is a member but not an owner.-    deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)+    deriving (Show, Eq, Ord, Enum, Bounded, Data, Generic)  -- | The value is the number of bytes of code written in that language. type Languages = HM.HashMap Language Int  -- | A programming language. newtype Language = Language Text-   deriving (Show, Data, Typeable, Eq, Ord, Generic)+   deriving (Show, Data, Eq, Ord, Generic)  getLanguage :: Language -> Text getLanguage (Language l) = l -instance NFData Language where rnf = genericRnf+instance NFData Language instance Binary Language instance Hashable Language where     hashWithSalt salt (Language l) = hashWithSalt salt l@@ -188,9 +188,9 @@     = KnownContributor !Int !URL !(Name User) !URL !(Id User) !Text     -- | An unknown Github user with their number of contributions and recorded name.     | AnonymousContributor !Int !Text-   deriving (Show, Data, Typeable, Eq, Ord, Generic)+   deriving (Show, Data, Eq, Ord, Generic) -instance NFData Contributor where rnf = genericRnf+instance NFData Contributor instance Binary Contributor  contributorToSimpleUser :: Contributor -> Maybe SimpleUser@@ -205,18 +205,18 @@     | CollaboratorPermissionWrite     | CollaboratorPermissionRead     | CollaboratorPermissionNone-    deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData CollaboratorPermission where rnf = genericRnf+instance NFData CollaboratorPermission instance Binary CollaboratorPermission  -- | A collaborator and its permission on a repository. -- See <https://developer.github.com/v3/repos/collaborators/#review-a-users-permission-level> data CollaboratorWithPermission     = CollaboratorWithPermission SimpleUser CollaboratorPermission-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData CollaboratorWithPermission where rnf = genericRnf+instance NFData CollaboratorWithPermission instance Binary CollaboratorWithPermission  -- JSON instances@@ -381,7 +381,7 @@ data ArchiveFormat     = ArchiveFormatTarball -- ^ ".tar.gz" format     | ArchiveFormatZipball -- ^ ".zip" format-    deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)+    deriving (Show, Eq, Ord, Enum, Bounded, Data, Generic)  instance IsPathPart ArchiveFormat where     toPathPart af = case af of

@@ -61,7 +61,7 @@     | Patch     | Put     | Delete-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Typeable, Data, Generic)+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Generic)  instance Hashable CommandMethod @@ -81,7 +81,7 @@     FetchAtLeast !Word     | FetchAll     | FetchPage PageParams-    deriving (Eq, Ord, Read, Show, Generic, Typeable)+    deriving (Eq, Ord, Read, Show, Generic)   -- | This instance is there mostly for 'fromInteger'.@@ -100,7 +100,7 @@  instance Hashable FetchCount instance Binary FetchCount-instance NFData FetchCount where rnf = genericRnf+instance NFData FetchCount  ------------------------------------------------------------------------------- -- PageParams@@ -111,11 +111,11 @@     pageParamsPerPage :: Maybe Int     , pageParamsPage :: Maybe Int     }-    deriving (Eq, Ord, Read, Show, Generic, Typeable)+    deriving (Eq, Ord, Read, Show, Generic)  instance Hashable PageParams instance Binary PageParams-instance NFData PageParams where rnf = genericRnf+instance NFData PageParams  ------------------------------------------------------------------------------- -- PageLinks@@ -129,9 +129,9 @@     , pageLinksLast :: Maybe URI     , pageLinksFirst :: Maybe URI     }-    deriving (Eq, Ord, Show, Generic, Typeable)+    deriving (Eq, Ord, Show, Generic) -instance NFData PageLinks where rnf = genericRnf+instance NFData PageLinks  ------------------------------------------------------------------------------- -- MediaType@@ -148,7 +148,7 @@     | MtStatus     -- ^ Parse status     | MtUnit       -- ^ Always succeeds     | MtPreview  a -- ^ Some other (preview) type; this is an extension point.-  deriving (Eq, Ord, Read, Show, Typeable, Data, Generic)+  deriving (Eq, Ord, Read, Show, Data, Generic)  ------------------------------------------------------------------------------ -- RW@@ -160,7 +160,7 @@     = RO  -- ^ /Read-only/, doesn't necessarily requires authentication     | RA  -- ^ /Read authenticated/     | RW  -- ^ /Read-write/, requires authentication-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Typeable, Data, Generic)+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Generic)  {- data SRO (rw :: RW) where@@ -194,7 +194,6 @@         -> Paths                   -- ^ path         -> LBS.ByteString          -- ^ body         -> GenRequest mt 'RW a-  deriving (Typeable)  -- | Most requests ask for @JSON@. type Request = GenRequest 'MtJSON

@@ -16,9 +16,7 @@     | ReviewStateChangesRequested     deriving (Show, Enum, Bounded, Eq, Ord, Generic) -instance NFData ReviewState where-    rnf = genericRnf-+instance NFData ReviewState instance Binary ReviewState  instance FromJSON ReviewState where@@ -41,9 +39,7 @@     , reviewId :: !(Id Review)     } deriving (Show, Generic) -instance NFData Review where-    rnf = genericRnf-+instance NFData Review instance Binary Review  instance FromJSON Review where@@ -74,9 +70,7 @@     , reviewCommentPullRequestUrl :: !URL     } deriving (Show, Generic) -instance NFData ReviewComment where-    rnf = genericRnf-+instance NFData ReviewComment instance Binary ReviewComment  instance FromJSON ReviewComment where

@@ -11,11 +11,11 @@     { searchResultTotalCount :: !Int     , searchResultResults    :: !entities     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  type SearchResult entity = SearchResult' (V.Vector entity) -instance NFData entities => NFData (SearchResult' entities) where rnf = genericRnf+instance NFData entities => NFData (SearchResult' entities) instance Binary entities => Binary (SearchResult' entities)  instance (Monoid entities, FromJSON entities) => FromJSON (SearchResult' entities) where@@ -38,9 +38,9 @@     , codeHtmlUrl :: !URL     , codeRepo    :: !CodeSearchRepo     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData Code where rnf = genericRnf+instance NFData Code instance Binary Code  instance FromJSON Code where

@@ -1,7 +1,5 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}+ module GitHub.Data.Statuses where  import GitHub.Data.Definitions@@ -21,9 +19,9 @@     | StatusSuccess     | StatusError     | StatusFailure-  deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData StatusState where rnf = genericRnf+instance NFData StatusState instance Binary StatusState  instance FromJSON StatusState where@@ -52,7 +50,7 @@     , statusContext     :: !(Maybe Text)     , statusCreator     :: !(Maybe SimpleUser)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON Status where   parseJSON = withObject "Status" $ \o -> Status@@ -73,9 +71,9 @@     , newStatusDescription :: !(Maybe Text)     , newStatusContext     :: !(Maybe Text)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData NewStatus where rnf = genericRnf+instance NFData NewStatus instance Binary NewStatus  instance ToJSON NewStatus where@@ -99,7 +97,7 @@     , combinedStatusCommitUrl  :: !URL     , combinedStatusUrl        :: !URL     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic)  instance FromJSON CombinedStatus where     parseJSON = withObject "CombinedStatus" $ \o -> CombinedStatus

@@ -1,7 +1,4 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}  module GitHub.Data.Teams where @@ -18,26 +15,26 @@ data Privacy     = PrivacyClosed     | PrivacySecret-    deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData Privacy where rnf = genericRnf+instance NFData Privacy instance Binary Privacy  data Permission     = PermissionPull     | PermissionPush     | PermissionAdmin-    deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Enum, Bounded, Eq, Ord, Generic) -instance NFData Permission where rnf = genericRnf+instance NFData Permission instance Binary Permission  data AddTeamRepoPermission = AddTeamRepoPermission     { addTeamRepoPermission :: !Permission     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData AddTeamRepoPermission where rnf = genericRnf+instance NFData AddTeamRepoPermission instance Binary AddTeamRepoPermission  data SimpleTeam = SimpleTeam@@ -51,9 +48,9 @@     , simpleTeamMembersUrl      :: !URL     , simpleTeamRepositoriesUrl :: !URL     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData SimpleTeam where rnf = genericRnf+instance NFData SimpleTeam instance Binary SimpleTeam  data Team = Team@@ -70,9 +67,9 @@     , teamReposCount      :: !Int     , teamOrganization    :: !SimpleOrganization     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData Team where rnf = genericRnf+instance NFData Team instance Binary Team  data CreateTeam = CreateTeam@@ -82,9 +79,9 @@     , createTeamPrivacy     :: !Privacy     , createTeamPermission  :: !Permission     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData CreateTeam where rnf = genericRnf+instance NFData CreateTeam instance Binary CreateTeam  data EditTeam = EditTeam@@ -93,15 +90,15 @@     , editTeamPrivacy     :: !(Maybe Privacy)     , editTeamPermission  :: !(Maybe Permission)     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData EditTeam where rnf = genericRnf+instance NFData EditTeam instance Binary  EditTeam  data Role     = RoleMaintainer     | RoleMember-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic)  instance NFData Role instance Binary Role@@ -109,9 +106,9 @@ data ReqState     = StatePending     | StateActive-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData ReqState where rnf = genericRnf+instance NFData ReqState instance Binary ReqState  data TeamMembership = TeamMembership@@ -119,16 +116,16 @@     , teamMembershipRole     :: !Role     , teamMembershipReqState :: !ReqState     }-    deriving (Show, Data, Typeable, Eq, Ord, Generic)+    deriving (Show, Data, Eq, Ord, Generic) -instance NFData TeamMembership where rnf = genericRnf+instance NFData TeamMembership instance Binary TeamMembership  data CreateTeamMembership = CreateTeamMembership {   createTeamMembershipRole :: !Role-} deriving (Show, Data, Typeable, Eq, Ord, Generic)+} deriving (Show, Data, Eq, Ord, Generic) -instance NFData CreateTeamMembership where rnf = genericRnf+instance NFData CreateTeamMembership instance Binary CreateTeamMembership  -- JSON Instances@@ -254,4 +251,4 @@     = TeamMemberRoleAll         -- ^ all members of the team.     | TeamMemberRoleMaintainer  -- ^ team maintainers     | TeamMemberRoleMember      -- ^ normal members of the team.-    deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)+    deriving (Show, Eq, Ord, Enum, Bounded, Data, Generic)

@@ -10,12 +10,12 @@ -- -- /N.B./ syntactical validity is not verified. newtype URL = URL Text-    deriving (Eq, Ord, Show, Generic, Typeable, Data)+    deriving (Eq, Ord, Show, Generic, Data)  getUrl :: URL -> Text getUrl (URL url) = url -instance NFData URL where rnf = genericRnf+instance NFData URL instance Binary URL  instance ToJSON URL where

@@ -20,9 +20,9 @@     , repoWebhookUpdatedAt    :: !UTCTime     , repoWebhookCreatedAt    :: !UTCTime     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoWebhook where rnf = genericRnf+instance NFData RepoWebhook instance Binary RepoWebhook  -- | See <https://developer.github.com/webhooks/#events>.@@ -85,9 +85,9 @@     | WebhookWatchEvent     | WebhookWorkflowDispatch     | WebhookWorkflowRun-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoWebhookEvent where rnf = genericRnf+instance NFData RepoWebhookEvent instance Binary RepoWebhookEvent  data RepoWebhookResponse = RepoWebhookResponse@@ -95,9 +95,9 @@     , repoWebhookResponseStatus  :: !(Maybe Text)     , repoWebhookResponseMessage :: !(Maybe Text)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData RepoWebhookResponse where rnf = genericRnf+instance NFData RepoWebhookResponse instance Binary RepoWebhookResponse  data PingEvent = PingEvent@@ -105,9 +105,9 @@     , pingEventHook   :: !RepoWebhook     , pingEventHookId :: !(Id RepoWebhook)     }-  deriving (Show, Data, Typeable, Eq, Ord, Generic)+  deriving (Show, Data, Eq, Ord, Generic) -instance NFData PingEvent where rnf = genericRnf+instance NFData PingEvent instance Binary PingEvent  data NewRepoWebhook = NewRepoWebhook@@ -116,9 +116,9 @@     , newRepoWebhookEvents :: !(Maybe (Vector RepoWebhookEvent))     , newRepoWebhookActive :: !(Maybe Bool)     }-  deriving (Eq, Ord, Show, Typeable, Data, Generic)+  deriving (Eq, Ord, Show, Data, Generic) -instance NFData NewRepoWebhook where rnf = genericRnf+instance NFData NewRepoWebhook instance Binary NewRepoWebhook  data EditRepoWebhook = EditRepoWebhook@@ -128,9 +128,9 @@     , editRepoWebhookRemoveEvents :: !(Maybe (Vector RepoWebhookEvent))     , editRepoWebhookActive       :: !(Maybe Bool)     }-  deriving (Eq, Ord, Show, Typeable, Data, Generic)+  deriving (Eq, Ord, Show, Data, Generic) -instance NFData EditRepoWebhook where rnf = genericRnf+instance NFData EditRepoWebhook instance Binary EditRepoWebhook  -- JSON instances

@@ -7,14 +7,13 @@  import Control.Applicative      as X ((<|>)) import Control.DeepSeq          as X (NFData (..))-import Control.DeepSeq.Generics as X (genericRnf) import Data.Aeson               as X        (FromJSON (..), Object, ToJSON (..), Value (..), encode, object,        withObject, withText, (.!=), (.:), (.:?), (.=)) import Data.Aeson.Types         as X (emptyObject, typeMismatch) import Data.Binary              as X (Binary) import Data.Binary.Instances    as X ()-import Data.Data                as X (Data, Typeable)+import Data.Data                as X (Data) import Data.Foldable            as X (toList) import Data.Hashable            as X (Hashable (..)) import Data.HashMap.Strict      as X (HashMap)