Remove obsolete deriving Typeable

Author: andreasabel

src/GitHub/Auth.hs

@@ -23,7 +23,7 @@ data Auth
     | 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
 instance Binary Auth

src/GitHub/Data/Actions/Artifacts.hs

@@ -27,7 +27,7 @@ data ArtifactWorkflowRun  = ArtifactWorkflowRun
     , 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 @@ data Artifact = Artifact
     , artifactUrl                :: !URL
     , artifactWorkflowRun        :: !ArtifactWorkflowRun
     }
-  deriving (Show, Data, Typeable, Eq, Ord, Generic)
+  deriving (Show, Data, Eq, Ord, Generic)
 
 -------------------------------------------------------------------------------
 -- JSON instances

src/GitHub/Data/Actions/Cache.hs

@@ -27,20 +27,20 @@ data Cache = Cache
     , 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

src/GitHub/Data/Actions/Common.hs

@@ -20,7 +20,7 @@ data WithTotalCount a = WithTotalCount
     , 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,

src/GitHub/Data/Actions/Secrets.hs

@@ -33,49 +33,49 @@ data OrganizationSecret = OrganizationSecret
     , 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
     , setSecretEncryptedValue :: !Text
     , 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

src/GitHub/Data/Actions/WorkflowJobs.hs

@@ -10,7 +10,7 @@ module GitHub.Data.Actions.WorkflowJobs (
 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 @@ data JobStep = JobStep
     , 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 @@ data Job = Job
     , jobRunnerGroupId   :: !Integer
     , jobRunnerGroupName :: !Text
     }
-  deriving (Show, Data, Typeable, Eq, Ord, Generic)
+  deriving (Show, Data, Eq, Ord, Generic)
 
 -------------------------------------------------------------------------------
 -- JSON instances

src/GitHub/Data/Actions/WorkflowRuns.hs

@@ -41,18 +41,18 @@ data WorkflowRun  = WorkflowRun
     , 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
     , reviewHistoryComment :: !Text
     , reviewHistoryUser :: !SimpleUser
 
     }
-  deriving (Show, Data, Typeable, Eq, Ord, Generic)
+  deriving (Show, Data, Eq, Ord, Generic)
 
 -------------------------------------------------------------------------------
 -- JSON instances

src/GitHub/Data/Actions/Workflows.hs

@@ -25,7 +25,7 @@ data Workflow = Workflow
     , workflowHtmlUrl    :: !URL
     , workflowBadgeUrl   :: !URL
     }
-  deriving (Show, Data, Typeable, Eq, Ord, Generic)
+  deriving (Show, Data, Eq, Ord, Generic)
 
 data CreateWorkflowDispatchEvent a = CreateWorkflowDispatchEvent
     { createWorkflowDispatchEventRef    :: !Text

src/GitHub/Data/Activities.hs

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

src/GitHub/Data/Comments.hs

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