Drop obsolete dependency on deepseq-generics

Functionality is available from deepseq

Author: andreasabel

github.cabal

@@ -203,7 +203,6 @@ library
     , 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

src/GitHub/Auth.hs

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

src/GitHub/Data/Actions/Workflows.hs

@@ -33,7 +33,7 @@ data CreateWorkflowDispatchEvent a = CreateWorkflowDispatchEvent
     }
   deriving (Show, Generic)
 
-instance (NFData a) => NFData (CreateWorkflowDispatchEvent a) where rnf = genericRnf
+instance (NFData a) => NFData (CreateWorkflowDispatchEvent a)
 instance (Binary a) => Binary (CreateWorkflowDispatchEvent a)
 
 -------------------------------------------------------------------------------

src/GitHub/Data/Activities.hs

@@ -15,7 +15,7 @@ data RepoStarred = RepoStarred
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData RepoStarred where rnf = genericRnf
+instance NFData RepoStarred
 instance Binary RepoStarred
 
 -- JSON Instances
@@ -35,7 +35,7 @@ data Subject = Subject
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData Subject where rnf = genericRnf
+instance NFData Subject
 instance Binary Subject
 
 instance FromJSON Subject where
@@ -63,7 +63,7 @@ data NotificationReason
     | TeamMentionReason
   deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)
 
-instance NFData NotificationReason where rnf = genericRnf
+instance NFData NotificationReason
 instance Binary NotificationReason
 
 instance FromJSON NotificationReason where
@@ -99,7 +99,7 @@ data Notification = Notification
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData Notification where rnf = genericRnf
+instance NFData Notification
 instance Binary Notification
 
 instance FromJSON Notification where

src/GitHub/Data/Comments.hs

@@ -21,7 +21,7 @@ data Comment = Comment
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData Comment where rnf = genericRnf
+instance NFData Comment
 instance Binary Comment
 
 instance FromJSON Comment where
@@ -43,7 +43,7 @@ data NewComment = NewComment
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData NewComment where rnf = genericRnf
+instance NFData NewComment
 instance Binary NewComment
 
 instance ToJSON NewComment where
@@ -54,7 +54,7 @@ data EditComment = EditComment
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData EditComment where rnf = genericRnf
+instance NFData EditComment
 instance Binary EditComment
 
 instance ToJSON EditComment where
@@ -68,7 +68,7 @@ data NewPullComment = NewPullComment
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData NewPullComment where rnf = genericRnf
+instance NFData NewPullComment
 instance Binary NewPullComment
 
 instance ToJSON NewPullComment where
@@ -84,7 +84,7 @@ data PullCommentReply = PullCommentReply
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData PullCommentReply where rnf = genericRnf
+instance NFData PullCommentReply
 
 instance ToJSON PullCommentReply where
     toJSON (PullCommentReply b) =

src/GitHub/Data/Content.hs

@@ -20,7 +20,7 @@ data Content
   | ContentDirectory !(Vector ContentItem)
  deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData Content where rnf = genericRnf
+instance NFData Content
 instance Binary Content
 
 data ContentFileData = ContentFileData {
@@ -30,7 +30,7 @@ data ContentFileData = ContentFileData {
   ,contentFileContent  :: !Text
 } deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData ContentFileData where rnf = genericRnf
+instance NFData ContentFileData
 instance Binary ContentFileData
 
 -- | An item in a directory listing.
@@ -39,13 +39,13 @@ data ContentItem = ContentItem {
   ,contentItemInfo :: !ContentInfo
 } deriving (Show, Data, Typeable, 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)
 
-instance NFData ContentItemType where rnf = genericRnf
+instance NFData ContentItemType
 instance Binary ContentItemType
 
 -- | Information common to both kinds of Content: files and directories.
@@ -58,23 +58,23 @@ data ContentInfo = ContentInfo {
   ,contentHtmlUrl :: !URL
 } deriving (Show, Data, Typeable, 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)
 
-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)
 
-instance NFData ContentResult where rnf = genericRnf
+instance NFData ContentResult
 instance Binary ContentResult
 
 data Author = Author
@@ -83,7 +83,7 @@ data Author = Author
     }
     deriving (Eq, Ord, Show, Data, Typeable, Generic)
 
-instance NFData Author where rnf = genericRnf
+instance NFData Author
 instance Binary Author
 
 data CreateFile = CreateFile
@@ -96,7 +96,7 @@ data CreateFile = CreateFile
     }
     deriving (Eq, Ord, Show, Data, Typeable, Generic)
 
-instance NFData CreateFile where rnf = genericRnf
+instance NFData CreateFile
 instance Binary CreateFile
 
 data UpdateFile = UpdateFile
@@ -110,7 +110,7 @@ data UpdateFile = UpdateFile
     }
     deriving (Eq, Ord, Show, Data, Typeable, Generic)
 
-instance NFData UpdateFile where rnf = genericRnf
+instance NFData UpdateFile
 instance Binary UpdateFile
 
 data DeleteFile = DeleteFile
@@ -123,7 +123,7 @@ data DeleteFile = DeleteFile
     }
     deriving (Eq, Ord, Show, Data, Typeable, Generic)
 
-instance NFData DeleteFile where rnf = genericRnf
+instance NFData DeleteFile
 instance Binary DeleteFile
 
 instance FromJSON Content where

src/GitHub/Data/Definitions.hs

@@ -41,7 +41,7 @@ data SimpleUser = SimpleUser
     }
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData SimpleUser where rnf = genericRnf
+instance NFData SimpleUser
 instance Binary SimpleUser
 
 data SimpleOrganization = SimpleOrganization
@@ -52,7 +52,7 @@ data SimpleOrganization = SimpleOrganization
     }
     deriving (Show, Data, Typeable, 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'
@@ -65,7 +65,7 @@ data SimpleOwner = SimpleOwner
     }
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData SimpleOwner where rnf = genericRnf
+instance NFData SimpleOwner
 instance Binary SimpleOwner
 
 data User = User
@@ -90,7 +90,7 @@ data User = User
     }
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData User where rnf = genericRnf
+instance NFData User
 instance Binary User
 
 data Organization = Organization
@@ -113,14 +113,14 @@ data Organization = Organization
     }
     deriving (Show, Data, Typeable, 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)
 
-instance NFData Owner where rnf = genericRnf
+instance NFData Owner
 instance Binary Owner
 
 fromOwner :: Owner -> Either User Organization
@@ -242,7 +242,7 @@ data MembershipRole
   deriving
     (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)
 
-instance NFData MembershipRole where rnf = genericRnf
+instance NFData MembershipRole
 instance Binary MembershipRole
 
 instance FromJSON MembershipRole where
@@ -257,7 +257,7 @@ data MembershipState
     | MembershipActive
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData MembershipState where rnf = genericRnf
+instance NFData MembershipState
 instance Binary MembershipState
 
 instance FromJSON MembershipState where
@@ -277,7 +277,7 @@ data Membership = Membership
     }
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData Membership where rnf = genericRnf
+instance NFData Membership
 instance Binary Membership
 
 instance FromJSON Membership where
@@ -324,7 +324,7 @@ data IssueLabel = IssueLabel
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData IssueLabel where rnf = genericRnf
+instance NFData IssueLabel
 instance Binary IssueLabel
 
 instance FromJSON IssueLabel where
@@ -346,7 +346,7 @@ data NewIssueLabel = NewIssueLabel
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData NewIssueLabel where rnf = genericRnf
+instance NFData NewIssueLabel
 instance Binary NewIssueLabel
 
 
@@ -373,7 +373,7 @@ data UpdateIssueLabel = UpdateIssueLabel
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData UpdateIssueLabel where rnf = genericRnf
+instance NFData UpdateIssueLabel
 instance Binary UpdateIssueLabel
 
 

src/GitHub/Data/Deployments.hs

@@ -36,7 +36,7 @@ data DeploymentQueryOption
     | DeploymentQueryEnvironment !Text
       deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData DeploymentQueryOption where rnf = genericRnf
+instance NFData DeploymentQueryOption
 instance Binary DeploymentQueryOption
 
 renderDeploymentQueryOption :: DeploymentQueryOption -> (ByteString, ByteString)
@@ -63,7 +63,7 @@ data Deployment a = Deployment
     , deploymentRepositoryUrl :: !URL
     } deriving (Show, Data, Typeable, 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
@@ -106,7 +106,7 @@ data CreateDeployment a = CreateDeployment
     -- ^ Short description of the deployment. Default: ""
     } deriving (Show, Data, Typeable, 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
@@ -134,7 +134,7 @@ data DeploymentStatus = DeploymentStatus
     , deploymentStatusRepositoryUrl :: !URL
     } deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData DeploymentStatus where rnf = genericRnf
+instance NFData DeploymentStatus
 instance Binary DeploymentStatus
 
 instance FromJSON DeploymentStatus where
@@ -159,7 +159,7 @@ data DeploymentStatusState
     | DeploymentStatusInactive
       deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData DeploymentStatusState where rnf = genericRnf
+instance NFData DeploymentStatusState
 instance Binary DeploymentStatusState
 
 instance ToJSON DeploymentStatusState where
@@ -192,7 +192,7 @@ data CreateDeploymentStatus = CreateDeploymentStatus
     -- Default: ""
     } deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData CreateDeploymentStatus where rnf = genericRnf
+instance NFData CreateDeploymentStatus
 instance Binary CreateDeploymentStatus
 
 instance ToJSON CreateDeploymentStatus where

src/GitHub/Data/Email.hs

@@ -10,7 +10,7 @@ data EmailVisibility
     | EmailVisibilityPublic
     deriving (Show, Data, Enum, Bounded, Typeable, Eq, Ord, Generic)
 
-instance NFData EmailVisibility where rnf = genericRnf
+instance NFData EmailVisibility
 instance Binary EmailVisibility
 
 instance FromJSON EmailVisibility where
@@ -26,7 +26,7 @@ data Email = Email
     , emailVisibility :: !(Maybe EmailVisibility)
     } deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
-instance NFData Email where rnf = genericRnf
+instance NFData Email
 instance Binary Email
 
 instance FromJSON Email where