diff --git a/src/Data/GitHub/Event/RepositoryPush.hs b/src/Data/GitHub/Event/RepositoryPush.hs index 27ca76975..352271cfd 100644 --- a/src/Data/GitHub/Event/RepositoryPush.hs +++ b/src/Data/GitHub/Event/RepositoryPush.hs @@ -1,11 +1,13 @@ {-# LANGUAGE DeriveAnyClass, DerivingVia, OverloadedLists #-} -module Data.GitHub.Event.RepositoryPush where +module Data.GitHub.Event.RepositoryPush + ( ChangedFile (..) + , RepositoryPush (..) + ) where import Prologue import Proto3.Suite -import Proto3.Suite.Exts import qualified Data.GitHub.Git as Git import Data.GitHub.Request.Context @@ -20,15 +22,6 @@ data ChangedFile = ChangedFile , filePreviousPath :: Text } deriving (Eq, Show, Generic, Message, Named) -sampleChange :: ChangedFile -sampleChange = ChangedFile - { filePreviousOID = Git.OID "0000000000000000000000000000000000000000" - , fileOID = Git.OID "e69de29bb2d1d6434b8b29ae775ad8c2e48c5391" - , fileChangeType = "A" - , filePath = "dummyfile" - , filePreviousPath = "/dev/null" - } - data RepositoryPush = RepositoryPush { pushRequestContext :: Nested RequestContext , pushActor :: Nested User @@ -38,14 +31,3 @@ data RepositoryPush = RepositoryPush , pushRef :: Git.Ref , pushChangedFiles :: NestedVec ChangedFile } deriving (Eq, Show, Generic, Message, Named) - -samplePush :: RepositoryPush -samplePush = RepositoryPush - { pushRequestContext = Absent - , pushActor = pure monalisa - , pushRepository = pure sampleRepository - , pushBefore = Git.SHA "308cf87a25e096a71be8aba8bb53f5575a60c388" - , pushAfter = Git.SHA "d7d56aeb77d6b8434d2789b4b0b6b305dfce10a82" - , pushRef = Git.Ref "refs/heads/test-branch" - , pushChangedFiles = [sampleChange] - } diff --git a/src/Data/GitHub/Repository.hs b/src/Data/GitHub/Repository.hs index a3b0bfa8a..893fc18f8 100644 --- a/src/Data/GitHub/Repository.hs +++ b/src/Data/GitHub/Repository.hs @@ -3,7 +3,6 @@ module Data.GitHub.Repository ( Repository (..) , Visibility (..) - , sampleRepository ) where import Prologue @@ -35,18 +34,3 @@ data Repository = Repository , repoCreatedAt :: Nested Timestamp , repoUpdatedAt :: Nested Timestamp } deriving (Eq, Show, Generic, Message, Named) - -sampleRepository :: Repository -sampleRepository = Repository - { repoId = 77777 - , repoGlobalRelayId = "MDQ6VXNlcjE=:" - , repoName = "test" - , repoDescription = "desc" - , repoVisibility = Public - , repoParentId = 0 - , repoStargazerCount = 1000 - , repoPublicForkCount = 777 - , repoPushedAt = Absent - , repoCreatedAt = Absent - , repoUpdatedAt = Absent - }