{-# LANGUAGE Trustworthy #-}
{-|
Module      : Github.Data.Webhooks.Payload
Copyright   : (c) Cuedo Control Engineering 2017-2022
License     : MIT
Maintainer  : Kyle Van Berendonck <foss@cuedo.com.au>

This module contains types that represent GitHub webhook's payload contents.
-}
module GitHub.Data.Webhooks.Payload
    ( -- * Construction Types

      URL(..)
    , getUrl
    , OwnerType(..)
      -- * Webhook Types

    , HookIssue(..)
    , HookRepository(..)
    , HookRepositorySimple(..)
    , HookRepositoryLabel(..)
    , HookUser(..)
    , HookSimpleUser(..)
    , HookOrganization(..)
    , HookOrganizationInvitation(..)
    , HookOrganizationMembership(..)
    , HookTeam(..)
    , HookMarketplaceAccount(..)
    , HookMarketplaceBillingCycle(..)
    , HookMarketplacePlan(..)
    , HookMarketplacePlanPriceModel(..)
    , HookMarketplacePurchase(..)
    , HookMilestone(..)
    , HookMembership(..)
    , HookProject(..)
    , HookProjectCard(..)
    , HookProjectColumn(..)
    , HookIssueLabels(..)
    , HookCommit(..)
    , HookCheckSuiteStatus(..)
    , HookCheckSuiteConclusion(..)
    , HookCheckSuite(..)
    , HookCheckSuiteCommit(..)
    , HookCheckRunStatus(..)
    , HookCheckRunConclusion(..)
    , HookCheckRun(..)
    , HookCheckRunOutput(..)
    , HookCheckRunRequestedAction(..)
    , HookChecksInstallation(..)
    , HookChecksPullRequest(..)
    , HookChecksPullRequestRepository(..)
    , HookChecksPullRequestTarget(..)
    , HookRelease(..)
    , HookPullRequest(..)
    , PullRequestTarget(..)
    , HookPullRequestReview(..)
    , HookInstallation(..)
    , HookDeployment(..)
    , HookDeploymentStatus(..)
    , HookWikiPage(..)
    , HookPageBuildResult(..)
    , HookIssueComment(..)
    , HookCommitComment(..)
    , HookPullRequestReviewComment(..)
    ) where

import           Data.Aeson               (FromJSON(..), withObject, withText, (.!=), (.:), (.:?))
import           Control.DeepSeq          (NFData (..))
import           Control.DeepSeq.Generics (genericRnf)
import           Control.Applicative      ((<|>), (<*>), pure)
import           Data.Data                (Data, Typeable)
import           Data.Functor             ((<$>))
import           Data.Time                (UTCTime)
import           Data.Time.LocalTime      (zonedTimeToUTC)
import           Data.Time.Clock.POSIX    (posixSecondsToUTCTime)
import           Data.Text                (Text)
import qualified Data.Text                as T
import           Data.Vector              (Vector)
import           GHC.Generics             (Generic)


-- Types lifted from the @github@ package.


-- | Represents the owner of a repository, pull request or similar.

--

-- A bot is a "special type of user which takes actions on behalf of GitHub Apps".

-- See also https://developer.github.com/v4/object/bot/

data OwnerType = OwnerUser | OwnerOrganization | OwnerBot
    deriving (OwnerType -> OwnerType -> Bool
(OwnerType -> OwnerType -> Bool)
-> (OwnerType -> OwnerType -> Bool) -> Eq OwnerType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OwnerType -> OwnerType -> Bool
$c/= :: OwnerType -> OwnerType -> Bool
== :: OwnerType -> OwnerType -> Bool
$c== :: OwnerType -> OwnerType -> Bool
Eq, Eq OwnerType
Eq OwnerType
-> (OwnerType -> OwnerType -> Ordering)
-> (OwnerType -> OwnerType -> Bool)
-> (OwnerType -> OwnerType -> Bool)
-> (OwnerType -> OwnerType -> Bool)
-> (OwnerType -> OwnerType -> Bool)
-> (OwnerType -> OwnerType -> OwnerType)
-> (OwnerType -> OwnerType -> OwnerType)
-> Ord OwnerType
OwnerType -> OwnerType -> Bool
OwnerType -> OwnerType -> Ordering
OwnerType -> OwnerType -> OwnerType
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OwnerType -> OwnerType -> OwnerType
$cmin :: OwnerType -> OwnerType -> OwnerType
max :: OwnerType -> OwnerType -> OwnerType
$cmax :: OwnerType -> OwnerType -> OwnerType
>= :: OwnerType -> OwnerType -> Bool
$c>= :: OwnerType -> OwnerType -> Bool
> :: OwnerType -> OwnerType -> Bool
$c> :: OwnerType -> OwnerType -> Bool
<= :: OwnerType -> OwnerType -> Bool
$c<= :: OwnerType -> OwnerType -> Bool
< :: OwnerType -> OwnerType -> Bool
$c< :: OwnerType -> OwnerType -> Bool
compare :: OwnerType -> OwnerType -> Ordering
$ccompare :: OwnerType -> OwnerType -> Ordering
$cp1Ord :: Eq OwnerType
Ord, Int -> OwnerType
OwnerType -> Int
OwnerType -> [OwnerType]
OwnerType -> OwnerType
OwnerType -> OwnerType -> [OwnerType]
OwnerType -> OwnerType -> OwnerType -> [OwnerType]
(OwnerType -> OwnerType)
-> (OwnerType -> OwnerType)
-> (Int -> OwnerType)
-> (OwnerType -> Int)
-> (OwnerType -> [OwnerType])
-> (OwnerType -> OwnerType -> [OwnerType])
-> (OwnerType -> OwnerType -> [OwnerType])
-> (OwnerType -> OwnerType -> OwnerType -> [OwnerType])
-> Enum OwnerType
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: OwnerType -> OwnerType -> OwnerType -> [OwnerType]
$cenumFromThenTo :: OwnerType -> OwnerType -> OwnerType -> [OwnerType]
enumFromTo :: OwnerType -> OwnerType -> [OwnerType]
$cenumFromTo :: OwnerType -> OwnerType -> [OwnerType]
enumFromThen :: OwnerType -> OwnerType -> [OwnerType]
$cenumFromThen :: OwnerType -> OwnerType -> [OwnerType]
enumFrom :: OwnerType -> [OwnerType]
$cenumFrom :: OwnerType -> [OwnerType]
fromEnum :: OwnerType -> Int
$cfromEnum :: OwnerType -> Int
toEnum :: Int -> OwnerType
$ctoEnum :: Int -> OwnerType
pred :: OwnerType -> OwnerType
$cpred :: OwnerType -> OwnerType
succ :: OwnerType -> OwnerType
$csucc :: OwnerType -> OwnerType
Enum, OwnerType
OwnerType -> OwnerType -> Bounded OwnerType
forall a. a -> a -> Bounded a
maxBound :: OwnerType
$cmaxBound :: OwnerType
minBound :: OwnerType
$cminBound :: OwnerType
Bounded, Int -> OwnerType -> ShowS
[OwnerType] -> ShowS
OwnerType -> String
(Int -> OwnerType -> ShowS)
-> (OwnerType -> String)
-> ([OwnerType] -> ShowS)
-> Show OwnerType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OwnerType] -> ShowS
$cshowList :: [OwnerType] -> ShowS
show :: OwnerType -> String
$cshow :: OwnerType -> String
showsPrec :: Int -> OwnerType -> ShowS
$cshowsPrec :: Int -> OwnerType -> ShowS
Show, ReadPrec [OwnerType]
ReadPrec OwnerType
Int -> ReadS OwnerType
ReadS [OwnerType]
(Int -> ReadS OwnerType)
-> ReadS [OwnerType]
-> ReadPrec OwnerType
-> ReadPrec [OwnerType]
-> Read OwnerType
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OwnerType]
$creadListPrec :: ReadPrec [OwnerType]
readPrec :: ReadPrec OwnerType
$creadPrec :: ReadPrec OwnerType
readList :: ReadS [OwnerType]
$creadList :: ReadS [OwnerType]
readsPrec :: Int -> ReadS OwnerType
$creadsPrec :: Int -> ReadS OwnerType
Read, (forall x. OwnerType -> Rep OwnerType x)
-> (forall x. Rep OwnerType x -> OwnerType) -> Generic OwnerType
forall x. Rep OwnerType x -> OwnerType
forall x. OwnerType -> Rep OwnerType x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep OwnerType x -> OwnerType
$cfrom :: forall x. OwnerType -> Rep OwnerType x
Generic, Typeable, Typeable OwnerType
DataType
Constr
Typeable OwnerType
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> OwnerType -> c OwnerType)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c OwnerType)
-> (OwnerType -> Constr)
-> (OwnerType -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c OwnerType))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c OwnerType))
-> ((forall b. Data b => b -> b) -> OwnerType -> OwnerType)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> OwnerType -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> OwnerType -> r)
-> (forall u. (forall d. Data d => d -> u) -> OwnerType -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> OwnerType -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> OwnerType -> m OwnerType)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> OwnerType -> m OwnerType)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> OwnerType -> m OwnerType)
-> Data OwnerType
OwnerType -> DataType
OwnerType -> Constr
(forall b. Data b => b -> b) -> OwnerType -> OwnerType
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> OwnerType -> c OwnerType
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c OwnerType
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> OwnerType -> u
forall u. (forall d. Data d => d -> u) -> OwnerType -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> OwnerType -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> OwnerType -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c OwnerType
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> OwnerType -> c OwnerType
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c OwnerType)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c OwnerType)
$cOwnerBot :: Constr
$cOwnerOrganization :: Constr
$cOwnerUser :: Constr
$tOwnerType :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
gmapMp :: (forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
gmapM :: (forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> OwnerType -> m OwnerType
gmapQi :: Int -> (forall d. Data d => d -> u) -> OwnerType -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> OwnerType -> u
gmapQ :: (forall d. Data d => d -> u) -> OwnerType -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> OwnerType -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> OwnerType -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> OwnerType -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> OwnerType -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> OwnerType -> r
gmapT :: (forall b. Data b => b -> b) -> OwnerType -> OwnerType
$cgmapT :: (forall b. Data b => b -> b) -> OwnerType -> OwnerType
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c OwnerType)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c OwnerType)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c OwnerType)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c OwnerType)
dataTypeOf :: OwnerType -> DataType
$cdataTypeOf :: OwnerType -> DataType
toConstr :: OwnerType -> Constr
$ctoConstr :: OwnerType -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c OwnerType
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c OwnerType
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> OwnerType -> c OwnerType
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> OwnerType -> c OwnerType
$cp1Data :: Typeable OwnerType
Data)

instance NFData OwnerType

instance FromJSON OwnerType where
  parseJSON :: Value -> Parser OwnerType
parseJSON = String -> (Text -> Parser OwnerType) -> Value -> Parser OwnerType
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Owner type" ((Text -> Parser OwnerType) -> Value -> Parser OwnerType)
-> (Text -> Parser OwnerType) -> Value -> Parser OwnerType
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text -> Text
T.toLower Text
t of
          Text
"user"          -> OwnerType -> Parser OwnerType
forall (f :: * -> *) a. Applicative f => a -> f a
pure OwnerType
OwnerUser
          Text
"organization"  -> OwnerType -> Parser OwnerType
forall (f :: * -> *) a. Applicative f => a -> f a
pure OwnerType
OwnerOrganization
          Text
"bot"           -> OwnerType -> Parser OwnerType
forall (f :: * -> *) a. Applicative f => a -> f a
pure OwnerType
OwnerBot
          Text
_               -> String -> Parser OwnerType
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> Parser OwnerType) -> String -> Parser OwnerType
forall a b. (a -> b) -> a -> b
$ String
"Unknown owner type: " String -> ShowS
forall a. [a] -> [a] -> [a]
++ Text -> String
T.unpack Text
t


-- | Represents an internet address that would be suitable to query

-- for more information. The GitHub API only returns valid 'URL's.

newtype URL = URL Text
    deriving (URL -> URL -> Bool
(URL -> URL -> Bool) -> (URL -> URL -> Bool) -> Eq URL
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: URL -> URL -> Bool
$c/= :: URL -> URL -> Bool
== :: URL -> URL -> Bool
$c== :: URL -> URL -> Bool
Eq, Eq URL
Eq URL
-> (URL -> URL -> Ordering)
-> (URL -> URL -> Bool)
-> (URL -> URL -> Bool)
-> (URL -> URL -> Bool)
-> (URL -> URL -> Bool)
-> (URL -> URL -> URL)
-> (URL -> URL -> URL)
-> Ord URL
URL -> URL -> Bool
URL -> URL -> Ordering
URL -> URL -> URL
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: URL -> URL -> URL
$cmin :: URL -> URL -> URL
max :: URL -> URL -> URL
$cmax :: URL -> URL -> URL
>= :: URL -> URL -> Bool
$c>= :: URL -> URL -> Bool
> :: URL -> URL -> Bool
$c> :: URL -> URL -> Bool
<= :: URL -> URL -> Bool
$c<= :: URL -> URL -> Bool
< :: URL -> URL -> Bool
$c< :: URL -> URL -> Bool
compare :: URL -> URL -> Ordering
$ccompare :: URL -> URL -> Ordering
$cp1Ord :: Eq URL
Ord, Int -> URL -> ShowS
[URL] -> ShowS
URL -> String
(Int -> URL -> ShowS)
-> (URL -> String) -> ([URL] -> ShowS) -> Show URL
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [URL] -> ShowS
$cshowList :: [URL] -> ShowS
show :: URL -> String
$cshow :: URL -> String
showsPrec :: Int -> URL -> ShowS
$cshowsPrec :: Int -> URL -> ShowS
Show, (forall x. URL -> Rep URL x)
-> (forall x. Rep URL x -> URL) -> Generic URL
forall x. Rep URL x -> URL
forall x. URL -> Rep URL x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep URL x -> URL
$cfrom :: forall x. URL -> Rep URL x
Generic, Typeable, Typeable URL
DataType
Constr
Typeable URL
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> URL -> c URL)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c URL)
-> (URL -> Constr)
-> (URL -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c URL))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c URL))
-> ((forall b. Data b => b -> b) -> URL -> URL)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r)
-> (forall u. (forall d. Data d => d -> u) -> URL -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> URL -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> URL -> m URL)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> URL -> m URL)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> URL -> m URL)
-> Data URL
URL -> DataType
URL -> Constr
(forall b. Data b => b -> b) -> URL -> URL
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> URL -> c URL
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c URL
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> URL -> u
forall u. (forall d. Data d => d -> u) -> URL -> [u]
forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r
forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> URL -> m URL
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> URL -> m URL
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c URL
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> URL -> c URL
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c URL)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c URL)
$cURL :: Constr
$tURL :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> URL -> m URL
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> URL -> m URL
gmapMp :: (forall d. Data d => d -> m d) -> URL -> m URL
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> URL -> m URL
gmapM :: (forall d. Data d => d -> m d) -> URL -> m URL
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> URL -> m URL
gmapQi :: Int -> (forall d. Data d => d -> u) -> URL -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> URL -> u
gmapQ :: (forall d. Data d => d -> u) -> URL -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> URL -> [u]
gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r
$cgmapQr :: forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r
gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r
$cgmapQl :: forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> URL -> r
gmapT :: (forall b. Data b => b -> b) -> URL -> URL
$cgmapT :: (forall b. Data b => b -> b) -> URL -> URL
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c URL)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c URL)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c URL)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c URL)
dataTypeOf :: URL -> DataType
$cdataTypeOf :: URL -> DataType
toConstr :: URL -> Constr
$ctoConstr :: URL -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c URL
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c URL
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> URL -> c URL
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> URL -> c URL
$cp1Data :: Typeable URL
Data)

instance NFData URL where rnf :: URL -> ()
rnf = URL -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON URL where
  parseJSON :: Value -> Parser URL
parseJSON = String -> (Text -> Parser URL) -> Value -> Parser URL
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"URL" (URL -> Parser URL
forall (f :: * -> *) a. Applicative f => a -> f a
pure (URL -> Parser URL) -> (Text -> URL) -> Text -> Parser URL
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> URL
URL)

-- | Demote GitHub URL to Text.

getUrl :: URL -> Text
getUrl :: URL -> Text
getUrl (URL Text
url) = Text
url


-- Hooks


type IssueState = Text

-- | Represents the "issue" field in the 'IssueCommentEvent'

-- and 'IssueEvent' payload.

data HookIssue = HookIssue
    { HookIssue -> URL
whIssueUrl                :: !URL
    , HookIssue -> URL
whIssueLabelsUrl          :: !URL
    , HookIssue -> URL
whIssueCommentsUrl        :: !URL
    , HookIssue -> URL
whIssueEventsUrl          :: !URL
    , HookIssue -> URL
whIssueHtmlUrl            :: !URL
    , HookIssue -> Int
whIssueId                 :: !Int
    , HookIssue -> Text
whIssueNodeId             :: !Text
    , HookIssue -> Int
whIssueNumber             :: !Int
    , HookIssue -> Text
whIssueTitle              :: !Text
    , HookIssue -> HookUser
whIssueUser               :: !HookUser
    , HookIssue -> Vector HookIssueLabels
whIssueLabels             :: !(Vector HookIssueLabels)
    , HookIssue -> Text
whIssueState              :: IssueState
    , HookIssue -> Bool
whIssueIsLocked           :: !Bool
    , HookIssue -> Maybe HookUser
whIssueAssignee           :: !(Maybe HookUser)
    , HookIssue -> Maybe HookMilestone
whIssueMilestone          :: !(Maybe HookMilestone)
    , HookIssue -> Int
whIssueCommentCount       :: !Int
    , HookIssue -> UTCTime
whIssueCreatedAt          :: !UTCTime
    , HookIssue -> UTCTime
whIssueUpdatedAt          :: !UTCTime
    , HookIssue -> Maybe UTCTime
whIssueClosedAt           :: !(Maybe UTCTime)
    , HookIssue -> Text
whIssueBody               :: !Text
    }
    deriving (HookIssue -> HookIssue -> Bool
(HookIssue -> HookIssue -> Bool)
-> (HookIssue -> HookIssue -> Bool) -> Eq HookIssue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookIssue -> HookIssue -> Bool
$c/= :: HookIssue -> HookIssue -> Bool
== :: HookIssue -> HookIssue -> Bool
$c== :: HookIssue -> HookIssue -> Bool
Eq, Int -> HookIssue -> ShowS
[HookIssue] -> ShowS
HookIssue -> String
(Int -> HookIssue -> ShowS)
-> (HookIssue -> String)
-> ([HookIssue] -> ShowS)
-> Show HookIssue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookIssue] -> ShowS
$cshowList :: [HookIssue] -> ShowS
show :: HookIssue -> String
$cshow :: HookIssue -> String
showsPrec :: Int -> HookIssue -> ShowS
$cshowsPrec :: Int -> HookIssue -> ShowS
Show, Typeable, Typeable HookIssue
DataType
Constr
Typeable HookIssue
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookIssue -> c HookIssue)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookIssue)
-> (HookIssue -> Constr)
-> (HookIssue -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookIssue))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookIssue))
-> ((forall b. Data b => b -> b) -> HookIssue -> HookIssue)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookIssue -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookIssue -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookIssue -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookIssue -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookIssue -> m HookIssue)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookIssue -> m HookIssue)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookIssue -> m HookIssue)
-> Data HookIssue
HookIssue -> DataType
HookIssue -> Constr
(forall b. Data b => b -> b) -> HookIssue -> HookIssue
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssue -> c HookIssue
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssue
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookIssue -> u
forall u. (forall d. Data d => d -> u) -> HookIssue -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssue -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssue -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssue
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssue -> c HookIssue
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookIssue)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookIssue)
$cHookIssue :: Constr
$tHookIssue :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
gmapMp :: (forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
gmapM :: (forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookIssue -> m HookIssue
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookIssue -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookIssue -> u
gmapQ :: (forall d. Data d => d -> u) -> HookIssue -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookIssue -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssue -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssue -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssue -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssue -> r
gmapT :: (forall b. Data b => b -> b) -> HookIssue -> HookIssue
$cgmapT :: (forall b. Data b => b -> b) -> HookIssue -> HookIssue
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookIssue)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookIssue)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookIssue)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookIssue)
dataTypeOf :: HookIssue -> DataType
$cdataTypeOf :: HookIssue -> DataType
toConstr :: HookIssue -> Constr
$ctoConstr :: HookIssue -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssue
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssue
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssue -> c HookIssue
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssue -> c HookIssue
$cp1Data :: Typeable HookIssue
Data, (forall x. HookIssue -> Rep HookIssue x)
-> (forall x. Rep HookIssue x -> HookIssue) -> Generic HookIssue
forall x. Rep HookIssue x -> HookIssue
forall x. HookIssue -> Rep HookIssue x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookIssue x -> HookIssue
$cfrom :: forall x. HookIssue -> Rep HookIssue x
Generic)

instance NFData HookIssue where rnf :: HookIssue -> ()
rnf = HookIssue -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "repository" field in all types of payload.

data HookRepository = HookRepository
    { HookRepository -> Int
whRepoId                  :: !Int
    , HookRepository -> Text
whRepoNodeId              :: !Text
    , HookRepository -> Text
whRepoName                :: !Text
    , HookRepository -> Text
whRepoFullName            :: !Text
    , HookRepository -> Either HookSimpleUser HookUser
whRepoOwner               :: !(Either HookSimpleUser HookUser)
    , HookRepository -> Bool
whRepoIsPrivate           :: !Bool
    , HookRepository -> URL
whRepoHtmlUrl             :: !URL
    , HookRepository -> Text
whRepoDescription         :: !Text
    , HookRepository -> Bool
whRepoIsAFork             :: !Bool
    , HookRepository -> URL
whRepoUrl                 :: !URL
    , HookRepository -> URL
whRepoForksUrl            :: !URL
    , HookRepository -> URL
whRepoKeysUrl             :: !URL
    , HookRepository -> URL
whRepoCollaboratorsUrl    :: !URL
    , HookRepository -> URL
whRepoTeamsUrl            :: !URL
    , HookRepository -> URL
whRepoHooksUrl            :: !URL
    , HookRepository -> URL
whRepoIssueEventsUrl      :: !URL
    , HookRepository -> URL
whRepoEventsUrl           :: !URL
    , HookRepository -> URL
whRepoAssigneesUrl        :: !URL
    , HookRepository -> URL
whRepoBranchesUrl         :: !URL
    , HookRepository -> URL
whRepoTagsUrl             :: !URL
    , HookRepository -> URL
whRepoBlobsUrl            :: !URL
    , HookRepository -> URL
whRepoGitTagsUrl          :: !URL
    , HookRepository -> URL
whRepoGitRefsUrl          :: !URL
    , HookRepository -> URL
whRepoTreesUrl            :: !URL
    , HookRepository -> URL
whRepoStatusesUrl         :: !URL
    , HookRepository -> URL
whRepoLanguagesUrl        :: !URL
    , HookRepository -> URL
whRepoStargazersUrl       :: !URL
    , HookRepository -> URL
whRepoContributorsUrl     :: !URL
    , HookRepository -> URL
whRepoSubscribersUrl      :: !URL
    , HookRepository -> URL
whRepoSubscriptionUrl     :: !URL
    , HookRepository -> URL
whRepoCommitsUrl          :: !URL
    , HookRepository -> URL
whRepoGitCommitsUrl       :: !URL
    , HookRepository -> URL
whRepoCommentsUrl         :: !URL
    , HookRepository -> URL
whRepoIssueCommentsUrl    :: !URL
    , HookRepository -> URL
whRepoContentsUrl         :: !URL
    , HookRepository -> URL
whRepoCompareUrl          :: !URL
    , HookRepository -> URL
whRepoMergesUrl           :: !URL
    , HookRepository -> URL
whRepoArchiveUrl          :: !URL
    , HookRepository -> URL
whRepoDownloadsUrl        :: !URL
    , HookRepository -> URL
whRepoIssuesUrl           :: !URL
    , HookRepository -> URL
whRepoPullsUrl            :: !URL
    , HookRepository -> URL
whRepoMilestonesUrl       :: !URL
    , HookRepository -> URL
whRepoNotificationsUrl    :: !URL
    , HookRepository -> URL
whRepoLabelsUrl           :: !URL
    , HookRepository -> URL
whRepoReleasesUrl         :: !URL
    , HookRepository -> UTCTime
whRepoCreatedAt           :: !UTCTime
    , HookRepository -> UTCTime
whRepoUpdatedAt           :: !UTCTime
    , HookRepository -> UTCTime
whRepoPushedAt            :: !UTCTime
    , HookRepository -> URL
whRepoGitUrl              :: !URL
    , HookRepository -> URL
whRepoSshUrl              :: !URL
    , HookRepository -> URL
whRepoCloneUrl            :: !URL
    , HookRepository -> URL
whRepoSvnUrl              :: !URL
    , HookRepository -> Maybe URL
whRepoHomepage            :: !(Maybe URL)
    , HookRepository -> Int
whRepoSize                :: !Int
    , HookRepository -> Int
whRepoStargazersCount     :: !Int
    , HookRepository -> Int
whRepoWatchersCount       :: !Int
    , HookRepository -> Maybe Text
whRepoLanguage            :: !(Maybe Text)
    , HookRepository -> Bool
whRepoHasIssues           :: !Bool
    , HookRepository -> Bool
whRepoHasDownloads        :: !Bool
    , HookRepository -> Bool
whRepoHasWiki             :: !Bool
    , HookRepository -> Bool
whRepoHasPages            :: !Bool
    , HookRepository -> Int
whRepoForkCount           :: !Int
    , HookRepository -> Maybe URL
whRepoMirrorUrl           :: !(Maybe URL)
    , HookRepository -> Int
whRepoOpenIssuesCount     :: !Int
    , HookRepository -> Text
whRepoDefaultBranchName   :: !Text
    }
    deriving (HookRepository -> HookRepository -> Bool
(HookRepository -> HookRepository -> Bool)
-> (HookRepository -> HookRepository -> Bool) -> Eq HookRepository
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookRepository -> HookRepository -> Bool
$c/= :: HookRepository -> HookRepository -> Bool
== :: HookRepository -> HookRepository -> Bool
$c== :: HookRepository -> HookRepository -> Bool
Eq, Int -> HookRepository -> ShowS
[HookRepository] -> ShowS
HookRepository -> String
(Int -> HookRepository -> ShowS)
-> (HookRepository -> String)
-> ([HookRepository] -> ShowS)
-> Show HookRepository
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookRepository] -> ShowS
$cshowList :: [HookRepository] -> ShowS
show :: HookRepository -> String
$cshow :: HookRepository -> String
showsPrec :: Int -> HookRepository -> ShowS
$cshowsPrec :: Int -> HookRepository -> ShowS
Show, Typeable, Typeable HookRepository
DataType
Constr
Typeable HookRepository
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookRepository -> c HookRepository)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookRepository)
-> (HookRepository -> Constr)
-> (HookRepository -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookRepository))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookRepository))
-> ((forall b. Data b => b -> b)
    -> HookRepository -> HookRepository)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRepository -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRepository -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookRepository -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookRepository -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookRepository -> m HookRepository)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookRepository -> m HookRepository)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookRepository -> m HookRepository)
-> Data HookRepository
HookRepository -> DataType
HookRepository -> Constr
(forall b. Data b => b -> b) -> HookRepository -> HookRepository
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRepository -> c HookRepository
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepository
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookRepository -> u
forall u. (forall d. Data d => d -> u) -> HookRepository -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepository -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepository -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepository
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRepository -> c HookRepository
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRepository)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepository)
$cHookRepository :: Constr
$tHookRepository :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
gmapMp :: (forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
gmapM :: (forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookRepository -> m HookRepository
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookRepository -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookRepository -> u
gmapQ :: (forall d. Data d => d -> u) -> HookRepository -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookRepository -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepository -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepository -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepository -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepository -> r
gmapT :: (forall b. Data b => b -> b) -> HookRepository -> HookRepository
$cgmapT :: (forall b. Data b => b -> b) -> HookRepository -> HookRepository
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepository)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepository)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookRepository)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRepository)
dataTypeOf :: HookRepository -> DataType
$cdataTypeOf :: HookRepository -> DataType
toConstr :: HookRepository -> Constr
$ctoConstr :: HookRepository -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepository
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepository
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRepository -> c HookRepository
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRepository -> c HookRepository
$cp1Data :: Typeable HookRepository
Data, (forall x. HookRepository -> Rep HookRepository x)
-> (forall x. Rep HookRepository x -> HookRepository)
-> Generic HookRepository
forall x. Rep HookRepository x -> HookRepository
forall x. HookRepository -> Rep HookRepository x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookRepository x -> HookRepository
$cfrom :: forall x. HookRepository -> Rep HookRepository x
Generic)

instance NFData HookRepository where rnf :: HookRepository -> ()
rnf = HookRepository -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "repositories_added" and "repositories_removed"

-- field in the 'InstallationRepositoriesEvent' payload.

data HookRepositorySimple = HookRepositorySimple
  { HookRepositorySimple -> Int
whSimplRepoId               :: !Int
  , HookRepositorySimple -> Text
whSimplRepoNodeId           :: !Text
  , HookRepositorySimple -> Text
whSimplRepoName             :: !Text
  , HookRepositorySimple -> Text
whSimplRepoFullName         :: !Text
  , HookRepositorySimple -> Bool
whSimplRepoIsPrivate        :: !Bool
  }
  deriving (HookRepositorySimple -> HookRepositorySimple -> Bool
(HookRepositorySimple -> HookRepositorySimple -> Bool)
-> (HookRepositorySimple -> HookRepositorySimple -> Bool)
-> Eq HookRepositorySimple
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookRepositorySimple -> HookRepositorySimple -> Bool
$c/= :: HookRepositorySimple -> HookRepositorySimple -> Bool
== :: HookRepositorySimple -> HookRepositorySimple -> Bool
$c== :: HookRepositorySimple -> HookRepositorySimple -> Bool
Eq, Int -> HookRepositorySimple -> ShowS
[HookRepositorySimple] -> ShowS
HookRepositorySimple -> String
(Int -> HookRepositorySimple -> ShowS)
-> (HookRepositorySimple -> String)
-> ([HookRepositorySimple] -> ShowS)
-> Show HookRepositorySimple
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookRepositorySimple] -> ShowS
$cshowList :: [HookRepositorySimple] -> ShowS
show :: HookRepositorySimple -> String
$cshow :: HookRepositorySimple -> String
showsPrec :: Int -> HookRepositorySimple -> ShowS
$cshowsPrec :: Int -> HookRepositorySimple -> ShowS
Show, Typeable, Typeable HookRepositorySimple
DataType
Constr
Typeable HookRepositorySimple
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookRepositorySimple
    -> c HookRepositorySimple)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookRepositorySimple)
-> (HookRepositorySimple -> Constr)
-> (HookRepositorySimple -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookRepositorySimple))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookRepositorySimple))
-> ((forall b. Data b => b -> b)
    -> HookRepositorySimple -> HookRepositorySimple)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookRepositorySimple -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookRepositorySimple -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookRepositorySimple -> m HookRepositorySimple)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookRepositorySimple -> m HookRepositorySimple)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookRepositorySimple -> m HookRepositorySimple)
-> Data HookRepositorySimple
HookRepositorySimple -> DataType
HookRepositorySimple -> Constr
(forall b. Data b => b -> b)
-> HookRepositorySimple -> HookRepositorySimple
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositorySimple
-> c HookRepositorySimple
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositorySimple
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookRepositorySimple -> u
forall u.
(forall d. Data d => d -> u) -> HookRepositorySimple -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositorySimple
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositorySimple
-> c HookRepositorySimple
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRepositorySimple)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepositorySimple)
$cHookRepositorySimple :: Constr
$tHookRepositorySimple :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
gmapMp :: (forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
gmapM :: (forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookRepositorySimple -> m HookRepositorySimple
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookRepositorySimple -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookRepositorySimple -> u
gmapQ :: (forall d. Data d => d -> u) -> HookRepositorySimple -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookRepositorySimple -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositorySimple -> r
gmapT :: (forall b. Data b => b -> b)
-> HookRepositorySimple -> HookRepositorySimple
$cgmapT :: (forall b. Data b => b -> b)
-> HookRepositorySimple -> HookRepositorySimple
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepositorySimple)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepositorySimple)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookRepositorySimple)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRepositorySimple)
dataTypeOf :: HookRepositorySimple -> DataType
$cdataTypeOf :: HookRepositorySimple -> DataType
toConstr :: HookRepositorySimple -> Constr
$ctoConstr :: HookRepositorySimple -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositorySimple
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositorySimple
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositorySimple
-> c HookRepositorySimple
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositorySimple
-> c HookRepositorySimple
$cp1Data :: Typeable HookRepositorySimple
Data, (forall x. HookRepositorySimple -> Rep HookRepositorySimple x)
-> (forall x. Rep HookRepositorySimple x -> HookRepositorySimple)
-> Generic HookRepositorySimple
forall x. Rep HookRepositorySimple x -> HookRepositorySimple
forall x. HookRepositorySimple -> Rep HookRepositorySimple x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookRepositorySimple x -> HookRepositorySimple
$cfrom :: forall x. HookRepositorySimple -> Rep HookRepositorySimple x
Generic)

instance NFData HookRepositorySimple where rnf :: HookRepositorySimple -> ()
rnf = HookRepositorySimple -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "label" field in the 'LabelEvent' payload.

data HookRepositoryLabel = HookRepositoryLabel
    { HookRepositoryLabel -> Maybe Text
whRepoLabelNodeId         :: !(Maybe Text)
    , HookRepositoryLabel -> URL
whRepoLabelUrl            :: !URL
    , HookRepositoryLabel -> Text
whRepoLabelName           :: !Text
    , HookRepositoryLabel -> Text
whRepoLabelColor          :: !Text
    }
    deriving (HookRepositoryLabel -> HookRepositoryLabel -> Bool
(HookRepositoryLabel -> HookRepositoryLabel -> Bool)
-> (HookRepositoryLabel -> HookRepositoryLabel -> Bool)
-> Eq HookRepositoryLabel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookRepositoryLabel -> HookRepositoryLabel -> Bool
$c/= :: HookRepositoryLabel -> HookRepositoryLabel -> Bool
== :: HookRepositoryLabel -> HookRepositoryLabel -> Bool
$c== :: HookRepositoryLabel -> HookRepositoryLabel -> Bool
Eq, Int -> HookRepositoryLabel -> ShowS
[HookRepositoryLabel] -> ShowS
HookRepositoryLabel -> String
(Int -> HookRepositoryLabel -> ShowS)
-> (HookRepositoryLabel -> String)
-> ([HookRepositoryLabel] -> ShowS)
-> Show HookRepositoryLabel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookRepositoryLabel] -> ShowS
$cshowList :: [HookRepositoryLabel] -> ShowS
show :: HookRepositoryLabel -> String
$cshow :: HookRepositoryLabel -> String
showsPrec :: Int -> HookRepositoryLabel -> ShowS
$cshowsPrec :: Int -> HookRepositoryLabel -> ShowS
Show, Typeable, Typeable HookRepositoryLabel
DataType
Constr
Typeable HookRepositoryLabel
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookRepositoryLabel
    -> c HookRepositoryLabel)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookRepositoryLabel)
-> (HookRepositoryLabel -> Constr)
-> (HookRepositoryLabel -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookRepositoryLabel))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookRepositoryLabel))
-> ((forall b. Data b => b -> b)
    -> HookRepositoryLabel -> HookRepositoryLabel)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookRepositoryLabel -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookRepositoryLabel -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookRepositoryLabel -> m HookRepositoryLabel)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookRepositoryLabel -> m HookRepositoryLabel)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookRepositoryLabel -> m HookRepositoryLabel)
-> Data HookRepositoryLabel
HookRepositoryLabel -> DataType
HookRepositoryLabel -> Constr
(forall b. Data b => b -> b)
-> HookRepositoryLabel -> HookRepositoryLabel
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositoryLabel
-> c HookRepositoryLabel
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositoryLabel
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookRepositoryLabel -> u
forall u.
(forall d. Data d => d -> u) -> HookRepositoryLabel -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositoryLabel
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositoryLabel
-> c HookRepositoryLabel
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRepositoryLabel)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepositoryLabel)
$cHookRepositoryLabel :: Constr
$tHookRepositoryLabel :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
gmapMp :: (forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
gmapM :: (forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookRepositoryLabel -> m HookRepositoryLabel
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookRepositoryLabel -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookRepositoryLabel -> u
gmapQ :: (forall d. Data d => d -> u) -> HookRepositoryLabel -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookRepositoryLabel -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRepositoryLabel -> r
gmapT :: (forall b. Data b => b -> b)
-> HookRepositoryLabel -> HookRepositoryLabel
$cgmapT :: (forall b. Data b => b -> b)
-> HookRepositoryLabel -> HookRepositoryLabel
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepositoryLabel)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRepositoryLabel)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookRepositoryLabel)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRepositoryLabel)
dataTypeOf :: HookRepositoryLabel -> DataType
$cdataTypeOf :: HookRepositoryLabel -> DataType
toConstr :: HookRepositoryLabel -> Constr
$ctoConstr :: HookRepositoryLabel -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositoryLabel
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRepositoryLabel
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositoryLabel
-> c HookRepositoryLabel
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookRepositoryLabel
-> c HookRepositoryLabel
$cp1Data :: Typeable HookRepositoryLabel
Data, (forall x. HookRepositoryLabel -> Rep HookRepositoryLabel x)
-> (forall x. Rep HookRepositoryLabel x -> HookRepositoryLabel)
-> Generic HookRepositoryLabel
forall x. Rep HookRepositoryLabel x -> HookRepositoryLabel
forall x. HookRepositoryLabel -> Rep HookRepositoryLabel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookRepositoryLabel x -> HookRepositoryLabel
$cfrom :: forall x. HookRepositoryLabel -> Rep HookRepositoryLabel x
Generic)

instance NFData HookRepositoryLabel where rnf :: HookRepositoryLabel -> ()
rnf = HookRepositoryLabel -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "user" field in all types of payload.

data HookUser = HookUser
    { HookUser -> Text
whUserLogin               :: !Text
    , HookUser -> Int
whUserId                  :: !Int
    , HookUser -> Text
whUserNodeId              :: !Text
    , HookUser -> URL
whUserAvatarUrl           :: !URL
    , HookUser -> URL
whUserGravatarId          :: !URL
    , HookUser -> URL
whUserUrl                 :: !URL
    , HookUser -> URL
whUserHtmlUrl             :: !URL
    , HookUser -> URL
whUserFollowersUrl        :: !URL
    , HookUser -> URL
whUserFollowingUrl        :: !URL
    , HookUser -> URL
whUserGistsUrl            :: !URL
    , HookUser -> URL
whUserStarredUrl          :: !URL
    , HookUser -> URL
whUserSubscriptionsUrl    :: !URL
    , HookUser -> URL
whUserOrganizationsUrl    :: !URL
    , HookUser -> URL
whUserReposUrl            :: !URL
    , HookUser -> URL
whUserEventsUrl           :: !URL
    , HookUser -> URL
whUserReceivedEventsUrl   :: !URL
    , HookUser -> OwnerType
whUserType                :: !OwnerType
    , HookUser -> Bool
whUserIsAdminOfSite       :: !Bool
    }
    deriving (HookUser -> HookUser -> Bool
(HookUser -> HookUser -> Bool)
-> (HookUser -> HookUser -> Bool) -> Eq HookUser
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookUser -> HookUser -> Bool
$c/= :: HookUser -> HookUser -> Bool
== :: HookUser -> HookUser -> Bool
$c== :: HookUser -> HookUser -> Bool
Eq, Int -> HookUser -> ShowS
[HookUser] -> ShowS
HookUser -> String
(Int -> HookUser -> ShowS)
-> (HookUser -> String) -> ([HookUser] -> ShowS) -> Show HookUser
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookUser] -> ShowS
$cshowList :: [HookUser] -> ShowS
show :: HookUser -> String
$cshow :: HookUser -> String
showsPrec :: Int -> HookUser -> ShowS
$cshowsPrec :: Int -> HookUser -> ShowS
Show, Typeable, Typeable HookUser
DataType
Constr
Typeable HookUser
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookUser -> c HookUser)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookUser)
-> (HookUser -> Constr)
-> (HookUser -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookUser))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookUser))
-> ((forall b. Data b => b -> b) -> HookUser -> HookUser)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookUser -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookUser -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookUser -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> HookUser -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookUser -> m HookUser)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookUser -> m HookUser)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookUser -> m HookUser)
-> Data HookUser
HookUser -> DataType
HookUser -> Constr
(forall b. Data b => b -> b) -> HookUser -> HookUser
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookUser -> c HookUser
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookUser
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookUser -> u
forall u. (forall d. Data d => d -> u) -> HookUser -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookUser -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookUser -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookUser -> m HookUser
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookUser -> m HookUser
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookUser
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookUser -> c HookUser
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookUser)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookUser)
$cHookUser :: Constr
$tHookUser :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookUser -> m HookUser
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookUser -> m HookUser
gmapMp :: (forall d. Data d => d -> m d) -> HookUser -> m HookUser
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookUser -> m HookUser
gmapM :: (forall d. Data d => d -> m d) -> HookUser -> m HookUser
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookUser -> m HookUser
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookUser -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookUser -> u
gmapQ :: (forall d. Data d => d -> u) -> HookUser -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookUser -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookUser -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookUser -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookUser -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookUser -> r
gmapT :: (forall b. Data b => b -> b) -> HookUser -> HookUser
$cgmapT :: (forall b. Data b => b -> b) -> HookUser -> HookUser
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookUser)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookUser)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookUser)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookUser)
dataTypeOf :: HookUser -> DataType
$cdataTypeOf :: HookUser -> DataType
toConstr :: HookUser -> Constr
$ctoConstr :: HookUser -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookUser
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookUser
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookUser -> c HookUser
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookUser -> c HookUser
$cp1Data :: Typeable HookUser
Data, (forall x. HookUser -> Rep HookUser x)
-> (forall x. Rep HookUser x -> HookUser) -> Generic HookUser
forall x. Rep HookUser x -> HookUser
forall x. HookUser -> Rep HookUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookUser x -> HookUser
$cfrom :: forall x. HookUser -> Rep HookUser x
Generic)

instance NFData HookUser where rnf :: HookUser -> ()
rnf = HookUser -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- FIXME: Not sure where this is.

data HookSimpleUser = HookSimpleUser
    { HookSimpleUser -> Text
whSimplUserName           :: !Text
    , HookSimpleUser -> Text
whSimplUserEmail          :: !Text
    , HookSimpleUser -> Maybe Text
whSimplUserLogin          :: !(Maybe Text)
    }
    deriving (HookSimpleUser -> HookSimpleUser -> Bool
(HookSimpleUser -> HookSimpleUser -> Bool)
-> (HookSimpleUser -> HookSimpleUser -> Bool) -> Eq HookSimpleUser
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookSimpleUser -> HookSimpleUser -> Bool
$c/= :: HookSimpleUser -> HookSimpleUser -> Bool
== :: HookSimpleUser -> HookSimpleUser -> Bool
$c== :: HookSimpleUser -> HookSimpleUser -> Bool
Eq, Int -> HookSimpleUser -> ShowS
[HookSimpleUser] -> ShowS
HookSimpleUser -> String
(Int -> HookSimpleUser -> ShowS)
-> (HookSimpleUser -> String)
-> ([HookSimpleUser] -> ShowS)
-> Show HookSimpleUser
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookSimpleUser] -> ShowS
$cshowList :: [HookSimpleUser] -> ShowS
show :: HookSimpleUser -> String
$cshow :: HookSimpleUser -> String
showsPrec :: Int -> HookSimpleUser -> ShowS
$cshowsPrec :: Int -> HookSimpleUser -> ShowS
Show, Typeable, Typeable HookSimpleUser
DataType
Constr
Typeable HookSimpleUser
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookSimpleUser -> c HookSimpleUser)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookSimpleUser)
-> (HookSimpleUser -> Constr)
-> (HookSimpleUser -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookSimpleUser))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookSimpleUser))
-> ((forall b. Data b => b -> b)
    -> HookSimpleUser -> HookSimpleUser)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookSimpleUser -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookSimpleUser -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookSimpleUser -> m HookSimpleUser)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookSimpleUser -> m HookSimpleUser)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookSimpleUser -> m HookSimpleUser)
-> Data HookSimpleUser
HookSimpleUser -> DataType
HookSimpleUser -> Constr
(forall b. Data b => b -> b) -> HookSimpleUser -> HookSimpleUser
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookSimpleUser -> c HookSimpleUser
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookSimpleUser
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookSimpleUser -> u
forall u. (forall d. Data d => d -> u) -> HookSimpleUser -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookSimpleUser
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookSimpleUser -> c HookSimpleUser
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookSimpleUser)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookSimpleUser)
$cHookSimpleUser :: Constr
$tHookSimpleUser :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
gmapMp :: (forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
gmapM :: (forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookSimpleUser -> m HookSimpleUser
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookSimpleUser -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookSimpleUser -> u
gmapQ :: (forall d. Data d => d -> u) -> HookSimpleUser -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookSimpleUser -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookSimpleUser -> r
gmapT :: (forall b. Data b => b -> b) -> HookSimpleUser -> HookSimpleUser
$cgmapT :: (forall b. Data b => b -> b) -> HookSimpleUser -> HookSimpleUser
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookSimpleUser)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookSimpleUser)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookSimpleUser)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookSimpleUser)
dataTypeOf :: HookSimpleUser -> DataType
$cdataTypeOf :: HookSimpleUser -> DataType
toConstr :: HookSimpleUser -> Constr
$ctoConstr :: HookSimpleUser -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookSimpleUser
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookSimpleUser
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookSimpleUser -> c HookSimpleUser
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookSimpleUser -> c HookSimpleUser
$cp1Data :: Typeable HookSimpleUser
Data, (forall x. HookSimpleUser -> Rep HookSimpleUser x)
-> (forall x. Rep HookSimpleUser x -> HookSimpleUser)
-> Generic HookSimpleUser
forall x. Rep HookSimpleUser x -> HookSimpleUser
forall x. HookSimpleUser -> Rep HookSimpleUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookSimpleUser x -> HookSimpleUser
$cfrom :: forall x. HookSimpleUser -> Rep HookSimpleUser x
Generic)

instance NFData HookSimpleUser where rnf :: HookSimpleUser -> ()
rnf = HookSimpleUser -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "organization" field in all types of payload.

data HookOrganization = HookOrganization
    { HookOrganization -> Text
whOrgLogin                :: !Text
    , HookOrganization -> Int
whOrgId                   :: !Int
    , HookOrganization -> Text
whOrgNodeId               :: !Text
    , HookOrganization -> URL
whOrgUrl                  :: !URL
    , HookOrganization -> URL
whOrgReposUrl             :: !URL
    , HookOrganization -> URL
whOrgEventsUrl            :: !URL
    , HookOrganization -> Maybe URL
whOrgHooksUrl             :: !(Maybe URL)
    , HookOrganization -> Maybe URL
whOrgIssuesUrl            :: !(Maybe URL)
    , HookOrganization -> URL
whOrgMembersUrl           :: !URL
    , HookOrganization -> URL
whOrgPublicMembersUrl     :: !URL
    , HookOrganization -> URL
whOrgAvatarUrl            :: !URL
    , HookOrganization -> Text
whOrgDescription          :: !Text
    }
    deriving (HookOrganization -> HookOrganization -> Bool
(HookOrganization -> HookOrganization -> Bool)
-> (HookOrganization -> HookOrganization -> Bool)
-> Eq HookOrganization
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookOrganization -> HookOrganization -> Bool
$c/= :: HookOrganization -> HookOrganization -> Bool
== :: HookOrganization -> HookOrganization -> Bool
$c== :: HookOrganization -> HookOrganization -> Bool
Eq, Int -> HookOrganization -> ShowS
[HookOrganization] -> ShowS
HookOrganization -> String
(Int -> HookOrganization -> ShowS)
-> (HookOrganization -> String)
-> ([HookOrganization] -> ShowS)
-> Show HookOrganization
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookOrganization] -> ShowS
$cshowList :: [HookOrganization] -> ShowS
show :: HookOrganization -> String
$cshow :: HookOrganization -> String
showsPrec :: Int -> HookOrganization -> ShowS
$cshowsPrec :: Int -> HookOrganization -> ShowS
Show, Typeable, Typeable HookOrganization
DataType
Constr
Typeable HookOrganization
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookOrganization -> c HookOrganization)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookOrganization)
-> (HookOrganization -> Constr)
-> (HookOrganization -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookOrganization))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookOrganization))
-> ((forall b. Data b => b -> b)
    -> HookOrganization -> HookOrganization)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookOrganization -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookOrganization -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookOrganization -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookOrganization -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookOrganization -> m HookOrganization)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookOrganization -> m HookOrganization)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookOrganization -> m HookOrganization)
-> Data HookOrganization
HookOrganization -> DataType
HookOrganization -> Constr
(forall b. Data b => b -> b)
-> HookOrganization -> HookOrganization
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookOrganization -> c HookOrganization
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganization
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookOrganization -> u
forall u. (forall d. Data d => d -> u) -> HookOrganization -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookOrganization -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookOrganization -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganization
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookOrganization -> c HookOrganization
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookOrganization)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganization)
$cHookOrganization :: Constr
$tHookOrganization :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
gmapMp :: (forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
gmapM :: (forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookOrganization -> m HookOrganization
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookOrganization -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookOrganization -> u
gmapQ :: (forall d. Data d => d -> u) -> HookOrganization -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookOrganization -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookOrganization -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookOrganization -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookOrganization -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookOrganization -> r
gmapT :: (forall b. Data b => b -> b)
-> HookOrganization -> HookOrganization
$cgmapT :: (forall b. Data b => b -> b)
-> HookOrganization -> HookOrganization
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganization)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganization)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookOrganization)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookOrganization)
dataTypeOf :: HookOrganization -> DataType
$cdataTypeOf :: HookOrganization -> DataType
toConstr :: HookOrganization -> Constr
$ctoConstr :: HookOrganization -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganization
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganization
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookOrganization -> c HookOrganization
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookOrganization -> c HookOrganization
$cp1Data :: Typeable HookOrganization
Data, (forall x. HookOrganization -> Rep HookOrganization x)
-> (forall x. Rep HookOrganization x -> HookOrganization)
-> Generic HookOrganization
forall x. Rep HookOrganization x -> HookOrganization
forall x. HookOrganization -> Rep HookOrganization x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookOrganization x -> HookOrganization
$cfrom :: forall x. HookOrganization -> Rep HookOrganization x
Generic)

instance NFData HookOrganization where rnf :: HookOrganization -> ()
rnf = HookOrganization -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "invitation" field in the 'OrganizationEvent' payload.

data HookOrganizationInvitation = HookOrganizationInvitation
    { HookOrganizationInvitation -> Int
whOrgInvitationId         :: !Int
    , HookOrganizationInvitation -> Text
whOrgInvitationNodeId     :: !Text
    , HookOrganizationInvitation -> Text
whOrgInvitationLogin      :: !Text
    , HookOrganizationInvitation -> Maybe Text
whOrgInvitationEmail      :: !(Maybe Text)
    , HookOrganizationInvitation -> Text
whOrgInvitationRole       :: !Text
    }
    deriving (HookOrganizationInvitation -> HookOrganizationInvitation -> Bool
(HookOrganizationInvitation -> HookOrganizationInvitation -> Bool)
-> (HookOrganizationInvitation
    -> HookOrganizationInvitation -> Bool)
-> Eq HookOrganizationInvitation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookOrganizationInvitation -> HookOrganizationInvitation -> Bool
$c/= :: HookOrganizationInvitation -> HookOrganizationInvitation -> Bool
== :: HookOrganizationInvitation -> HookOrganizationInvitation -> Bool
$c== :: HookOrganizationInvitation -> HookOrganizationInvitation -> Bool
Eq, Int -> HookOrganizationInvitation -> ShowS
[HookOrganizationInvitation] -> ShowS
HookOrganizationInvitation -> String
(Int -> HookOrganizationInvitation -> ShowS)
-> (HookOrganizationInvitation -> String)
-> ([HookOrganizationInvitation] -> ShowS)
-> Show HookOrganizationInvitation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookOrganizationInvitation] -> ShowS
$cshowList :: [HookOrganizationInvitation] -> ShowS
show :: HookOrganizationInvitation -> String
$cshow :: HookOrganizationInvitation -> String
showsPrec :: Int -> HookOrganizationInvitation -> ShowS
$cshowsPrec :: Int -> HookOrganizationInvitation -> ShowS
Show, Typeable, Typeable HookOrganizationInvitation
DataType
Constr
Typeable HookOrganizationInvitation
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookOrganizationInvitation
    -> c HookOrganizationInvitation)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookOrganizationInvitation)
-> (HookOrganizationInvitation -> Constr)
-> (HookOrganizationInvitation -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookOrganizationInvitation))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookOrganizationInvitation))
-> ((forall b. Data b => b -> b)
    -> HookOrganizationInvitation -> HookOrganizationInvitation)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookOrganizationInvitation
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookOrganizationInvitation
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookOrganizationInvitation -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u) -> HookOrganizationInvitation -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookOrganizationInvitation -> m HookOrganizationInvitation)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookOrganizationInvitation -> m HookOrganizationInvitation)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookOrganizationInvitation -> m HookOrganizationInvitation)
-> Data HookOrganizationInvitation
HookOrganizationInvitation -> DataType
HookOrganizationInvitation -> Constr
(forall b. Data b => b -> b)
-> HookOrganizationInvitation -> HookOrganizationInvitation
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationInvitation
-> c HookOrganizationInvitation
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationInvitation
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u) -> HookOrganizationInvitation -> u
forall u.
(forall d. Data d => d -> u) -> HookOrganizationInvitation -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationInvitation
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationInvitation
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationInvitation
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationInvitation
-> c HookOrganizationInvitation
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookOrganizationInvitation)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganizationInvitation)
$cHookOrganizationInvitation :: Constr
$tHookOrganizationInvitation :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
gmapMp :: (forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
gmapM :: (forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookOrganizationInvitation -> m HookOrganizationInvitation
gmapQi :: Int
-> (forall d. Data d => d -> u) -> HookOrganizationInvitation -> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u) -> HookOrganizationInvitation -> u
gmapQ :: (forall d. Data d => d -> u) -> HookOrganizationInvitation -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookOrganizationInvitation -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationInvitation
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationInvitation
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationInvitation
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationInvitation
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookOrganizationInvitation -> HookOrganizationInvitation
$cgmapT :: (forall b. Data b => b -> b)
-> HookOrganizationInvitation -> HookOrganizationInvitation
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganizationInvitation)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganizationInvitation)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookOrganizationInvitation)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookOrganizationInvitation)
dataTypeOf :: HookOrganizationInvitation -> DataType
$cdataTypeOf :: HookOrganizationInvitation -> DataType
toConstr :: HookOrganizationInvitation -> Constr
$ctoConstr :: HookOrganizationInvitation -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationInvitation
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationInvitation
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationInvitation
-> c HookOrganizationInvitation
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationInvitation
-> c HookOrganizationInvitation
$cp1Data :: Typeable HookOrganizationInvitation
Data, (forall x.
 HookOrganizationInvitation -> Rep HookOrganizationInvitation x)
-> (forall x.
    Rep HookOrganizationInvitation x -> HookOrganizationInvitation)
-> Generic HookOrganizationInvitation
forall x.
Rep HookOrganizationInvitation x -> HookOrganizationInvitation
forall x.
HookOrganizationInvitation -> Rep HookOrganizationInvitation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookOrganizationInvitation x -> HookOrganizationInvitation
$cfrom :: forall x.
HookOrganizationInvitation -> Rep HookOrganizationInvitation x
Generic)

instance NFData HookOrganizationInvitation where rnf :: HookOrganizationInvitation -> ()
rnf = HookOrganizationInvitation -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "membership" field in the 'OrganizationEvent' payload.

data HookOrganizationMembership = HookOrganizationMembership
    { HookOrganizationMembership -> URL
whOrgMembershipUrl        :: !URL
    , HookOrganizationMembership -> Text
whOrgMembershipState      :: !Text
    , HookOrganizationMembership -> Text
whOrgMembershipRole       :: !Text
    , HookOrganizationMembership -> URL
whOrgMembershipOrgUrl     :: !URL
    , HookOrganizationMembership -> HookUser
whOrgMembershipUser       :: !HookUser
    }
    deriving (HookOrganizationMembership -> HookOrganizationMembership -> Bool
(HookOrganizationMembership -> HookOrganizationMembership -> Bool)
-> (HookOrganizationMembership
    -> HookOrganizationMembership -> Bool)
-> Eq HookOrganizationMembership
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookOrganizationMembership -> HookOrganizationMembership -> Bool
$c/= :: HookOrganizationMembership -> HookOrganizationMembership -> Bool
== :: HookOrganizationMembership -> HookOrganizationMembership -> Bool
$c== :: HookOrganizationMembership -> HookOrganizationMembership -> Bool
Eq, Int -> HookOrganizationMembership -> ShowS
[HookOrganizationMembership] -> ShowS
HookOrganizationMembership -> String
(Int -> HookOrganizationMembership -> ShowS)
-> (HookOrganizationMembership -> String)
-> ([HookOrganizationMembership] -> ShowS)
-> Show HookOrganizationMembership
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookOrganizationMembership] -> ShowS
$cshowList :: [HookOrganizationMembership] -> ShowS
show :: HookOrganizationMembership -> String
$cshow :: HookOrganizationMembership -> String
showsPrec :: Int -> HookOrganizationMembership -> ShowS
$cshowsPrec :: Int -> HookOrganizationMembership -> ShowS
Show, Typeable, Typeable HookOrganizationMembership
DataType
Constr
Typeable HookOrganizationMembership
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookOrganizationMembership
    -> c HookOrganizationMembership)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookOrganizationMembership)
-> (HookOrganizationMembership -> Constr)
-> (HookOrganizationMembership -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookOrganizationMembership))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookOrganizationMembership))
-> ((forall b. Data b => b -> b)
    -> HookOrganizationMembership -> HookOrganizationMembership)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookOrganizationMembership
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookOrganizationMembership
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookOrganizationMembership -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u) -> HookOrganizationMembership -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookOrganizationMembership -> m HookOrganizationMembership)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookOrganizationMembership -> m HookOrganizationMembership)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookOrganizationMembership -> m HookOrganizationMembership)
-> Data HookOrganizationMembership
HookOrganizationMembership -> DataType
HookOrganizationMembership -> Constr
(forall b. Data b => b -> b)
-> HookOrganizationMembership -> HookOrganizationMembership
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationMembership
-> c HookOrganizationMembership
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationMembership
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u) -> HookOrganizationMembership -> u
forall u.
(forall d. Data d => d -> u) -> HookOrganizationMembership -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationMembership
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationMembership
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationMembership
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationMembership
-> c HookOrganizationMembership
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookOrganizationMembership)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganizationMembership)
$cHookOrganizationMembership :: Constr
$tHookOrganizationMembership :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
gmapMp :: (forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
gmapM :: (forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookOrganizationMembership -> m HookOrganizationMembership
gmapQi :: Int
-> (forall d. Data d => d -> u) -> HookOrganizationMembership -> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u) -> HookOrganizationMembership -> u
gmapQ :: (forall d. Data d => d -> u) -> HookOrganizationMembership -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookOrganizationMembership -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationMembership
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationMembership
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationMembership
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookOrganizationMembership
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookOrganizationMembership -> HookOrganizationMembership
$cgmapT :: (forall b. Data b => b -> b)
-> HookOrganizationMembership -> HookOrganizationMembership
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganizationMembership)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookOrganizationMembership)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookOrganizationMembership)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookOrganizationMembership)
dataTypeOf :: HookOrganizationMembership -> DataType
$cdataTypeOf :: HookOrganizationMembership -> DataType
toConstr :: HookOrganizationMembership -> Constr
$ctoConstr :: HookOrganizationMembership -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationMembership
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookOrganizationMembership
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationMembership
-> c HookOrganizationMembership
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookOrganizationMembership
-> c HookOrganizationMembership
$cp1Data :: Typeable HookOrganizationMembership
Data, (forall x.
 HookOrganizationMembership -> Rep HookOrganizationMembership x)
-> (forall x.
    Rep HookOrganizationMembership x -> HookOrganizationMembership)
-> Generic HookOrganizationMembership
forall x.
Rep HookOrganizationMembership x -> HookOrganizationMembership
forall x.
HookOrganizationMembership -> Rep HookOrganizationMembership x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookOrganizationMembership x -> HookOrganizationMembership
$cfrom :: forall x.
HookOrganizationMembership -> Rep HookOrganizationMembership x
Generic)

instance NFData HookOrganizationMembership where rnf :: HookOrganizationMembership -> ()
rnf = HookOrganizationMembership -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "team" field in the 'TeamEvent' and

-- 'TeamAddEvent' payload.

data HookTeam = HookTeam
    { HookTeam -> Text
whTeamName                :: !Text
    , HookTeam -> Int
whTeamId                  :: !Int
    , HookTeam -> Text
whTeamNodeId              :: !Text
    , HookTeam -> Text
whTeamSlug                :: !Text
    , HookTeam -> Text
whTeamPermission          :: !Text
    , HookTeam -> URL
whTeamUrl                 :: !URL
    , HookTeam -> URL
whTeamMembersUrl          :: !URL
    , HookTeam -> URL
whTeamRepositoriesUrl     :: !URL
    }
    deriving (HookTeam -> HookTeam -> Bool
(HookTeam -> HookTeam -> Bool)
-> (HookTeam -> HookTeam -> Bool) -> Eq HookTeam
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookTeam -> HookTeam -> Bool
$c/= :: HookTeam -> HookTeam -> Bool
== :: HookTeam -> HookTeam -> Bool
$c== :: HookTeam -> HookTeam -> Bool
Eq, Int -> HookTeam -> ShowS
[HookTeam] -> ShowS
HookTeam -> String
(Int -> HookTeam -> ShowS)
-> (HookTeam -> String) -> ([HookTeam] -> ShowS) -> Show HookTeam
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookTeam] -> ShowS
$cshowList :: [HookTeam] -> ShowS
show :: HookTeam -> String
$cshow :: HookTeam -> String
showsPrec :: Int -> HookTeam -> ShowS
$cshowsPrec :: Int -> HookTeam -> ShowS
Show, Typeable, Typeable HookTeam
DataType
Constr
Typeable HookTeam
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookTeam -> c HookTeam)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookTeam)
-> (HookTeam -> Constr)
-> (HookTeam -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookTeam))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookTeam))
-> ((forall b. Data b => b -> b) -> HookTeam -> HookTeam)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookTeam -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookTeam -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookTeam -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> HookTeam -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookTeam -> m HookTeam)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookTeam -> m HookTeam)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookTeam -> m HookTeam)
-> Data HookTeam
HookTeam -> DataType
HookTeam -> Constr
(forall b. Data b => b -> b) -> HookTeam -> HookTeam
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookTeam -> c HookTeam
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookTeam
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookTeam -> u
forall u. (forall d. Data d => d -> u) -> HookTeam -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookTeam -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookTeam -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookTeam
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookTeam -> c HookTeam
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookTeam)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookTeam)
$cHookTeam :: Constr
$tHookTeam :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
gmapMp :: (forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
gmapM :: (forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookTeam -> m HookTeam
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookTeam -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookTeam -> u
gmapQ :: (forall d. Data d => d -> u) -> HookTeam -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookTeam -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookTeam -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookTeam -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookTeam -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookTeam -> r
gmapT :: (forall b. Data b => b -> b) -> HookTeam -> HookTeam
$cgmapT :: (forall b. Data b => b -> b) -> HookTeam -> HookTeam
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookTeam)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookTeam)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookTeam)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookTeam)
dataTypeOf :: HookTeam -> DataType
$cdataTypeOf :: HookTeam -> DataType
toConstr :: HookTeam -> Constr
$ctoConstr :: HookTeam -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookTeam
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookTeam
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookTeam -> c HookTeam
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookTeam -> c HookTeam
$cp1Data :: Typeable HookTeam
Data, (forall x. HookTeam -> Rep HookTeam x)
-> (forall x. Rep HookTeam x -> HookTeam) -> Generic HookTeam
forall x. Rep HookTeam x -> HookTeam
forall x. HookTeam -> Rep HookTeam x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookTeam x -> HookTeam
$cfrom :: forall x. HookTeam -> Rep HookTeam x
Generic)

instance NFData HookTeam where rnf :: HookTeam -> ()
rnf = HookTeam -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "billing_cycle" field in the

-- 'HookMarketplacePurchase' payload.

data HookMarketplaceBillingCycle
    -- | Decodes from "yearly"

    = HookMarketplaceBillingCycleYearly
    -- | Decodes from "monthly".

    | HookMarketplaceBillingCycleMonthly
    -- | The result of decoding an unknown marketplace purchase billing cycle type

    | HookMarketplaceBillingCycleOther !Text
    deriving (HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
(HookMarketplaceBillingCycle
 -> HookMarketplaceBillingCycle -> Bool)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> Bool)
-> Eq HookMarketplaceBillingCycle
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
$c/= :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
== :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
$c== :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
Eq, Eq HookMarketplaceBillingCycle
Eq HookMarketplaceBillingCycle
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> Ordering)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> Bool)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> Bool)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> Bool)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> Bool)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle)
-> (HookMarketplaceBillingCycle
    -> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle)
-> Ord HookMarketplaceBillingCycle
HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> Ordering
HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
$cmin :: HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
max :: HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
$cmax :: HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
>= :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
$c>= :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
> :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
$c> :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
<= :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
$c<= :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
< :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
$c< :: HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle -> Bool
compare :: HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> Ordering
$ccompare :: HookMarketplaceBillingCycle
-> HookMarketplaceBillingCycle -> Ordering
$cp1Ord :: Eq HookMarketplaceBillingCycle
Ord, Int -> HookMarketplaceBillingCycle -> ShowS
[HookMarketplaceBillingCycle] -> ShowS
HookMarketplaceBillingCycle -> String
(Int -> HookMarketplaceBillingCycle -> ShowS)
-> (HookMarketplaceBillingCycle -> String)
-> ([HookMarketplaceBillingCycle] -> ShowS)
-> Show HookMarketplaceBillingCycle
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMarketplaceBillingCycle] -> ShowS
$cshowList :: [HookMarketplaceBillingCycle] -> ShowS
show :: HookMarketplaceBillingCycle -> String
$cshow :: HookMarketplaceBillingCycle -> String
showsPrec :: Int -> HookMarketplaceBillingCycle -> ShowS
$cshowsPrec :: Int -> HookMarketplaceBillingCycle -> ShowS
Show, (forall x.
 HookMarketplaceBillingCycle -> Rep HookMarketplaceBillingCycle x)
-> (forall x.
    Rep HookMarketplaceBillingCycle x -> HookMarketplaceBillingCycle)
-> Generic HookMarketplaceBillingCycle
forall x.
Rep HookMarketplaceBillingCycle x -> HookMarketplaceBillingCycle
forall x.
HookMarketplaceBillingCycle -> Rep HookMarketplaceBillingCycle x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookMarketplaceBillingCycle x -> HookMarketplaceBillingCycle
$cfrom :: forall x.
HookMarketplaceBillingCycle -> Rep HookMarketplaceBillingCycle x
Generic, Typeable, Typeable HookMarketplaceBillingCycle
DataType
Constr
Typeable HookMarketplaceBillingCycle
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookMarketplaceBillingCycle
    -> c HookMarketplaceBillingCycle)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookMarketplaceBillingCycle)
-> (HookMarketplaceBillingCycle -> Constr)
-> (HookMarketplaceBillingCycle -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookMarketplaceBillingCycle))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMarketplaceBillingCycle))
-> ((forall b. Data b => b -> b)
    -> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplaceBillingCycle
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplaceBillingCycle
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> HookMarketplaceBillingCycle
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle)
-> Data HookMarketplaceBillingCycle
HookMarketplaceBillingCycle -> DataType
HookMarketplaceBillingCycle -> Constr
(forall b. Data b => b -> b)
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceBillingCycle
-> c HookMarketplaceBillingCycle
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceBillingCycle
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> u
forall u.
(forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceBillingCycle
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceBillingCycle
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceBillingCycle
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceBillingCycle
-> c HookMarketplaceBillingCycle
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookMarketplaceBillingCycle)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplaceBillingCycle)
$cHookMarketplaceBillingCycleOther :: Constr
$cHookMarketplaceBillingCycleMonthly :: Constr
$cHookMarketplaceBillingCycleYearly :: Constr
$tHookMarketplaceBillingCycle :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
gmapMp :: (forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
gmapM :: (forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceBillingCycle -> m HookMarketplaceBillingCycle
gmapQi :: Int
-> (forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> u
gmapQ :: (forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookMarketplaceBillingCycle -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceBillingCycle
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceBillingCycle
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceBillingCycle
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceBillingCycle
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
$cgmapT :: (forall b. Data b => b -> b)
-> HookMarketplaceBillingCycle -> HookMarketplaceBillingCycle
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplaceBillingCycle)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplaceBillingCycle)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookMarketplaceBillingCycle)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookMarketplaceBillingCycle)
dataTypeOf :: HookMarketplaceBillingCycle -> DataType
$cdataTypeOf :: HookMarketplaceBillingCycle -> DataType
toConstr :: HookMarketplaceBillingCycle -> Constr
$ctoConstr :: HookMarketplaceBillingCycle -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceBillingCycle
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceBillingCycle
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceBillingCycle
-> c HookMarketplaceBillingCycle
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceBillingCycle
-> c HookMarketplaceBillingCycle
$cp1Data :: Typeable HookMarketplaceBillingCycle
Data)

instance NFData HookMarketplaceBillingCycle where rnf :: HookMarketplaceBillingCycle -> ()
rnf = HookMarketplaceBillingCycle -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON HookMarketplaceBillingCycle where
  parseJSON :: Value -> Parser HookMarketplaceBillingCycle
parseJSON = String
-> (Text -> Parser HookMarketplaceBillingCycle)
-> Value
-> Parser HookMarketplaceBillingCycle
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Hook marketplace billing cycle" ((Text -> Parser HookMarketplaceBillingCycle)
 -> Value -> Parser HookMarketplaceBillingCycle)
-> (Text -> Parser HookMarketplaceBillingCycle)
-> Value
-> Parser HookMarketplaceBillingCycle
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text
t of
          Text
"yearly"          -> HookMarketplaceBillingCycle -> Parser HookMarketplaceBillingCycle
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookMarketplaceBillingCycle
HookMarketplaceBillingCycleYearly
          Text
"monthly"         -> HookMarketplaceBillingCycle -> Parser HookMarketplaceBillingCycle
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookMarketplaceBillingCycle
HookMarketplaceBillingCycleMonthly
          Text
_                 -> HookMarketplaceBillingCycle -> Parser HookMarketplaceBillingCycle
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Text -> HookMarketplaceBillingCycle
HookMarketplaceBillingCycleOther Text
t)

-- | Represents the "marketplace_purchase" field in the 'MarketplacePurchaseEvent' payload.

data HookMarketplacePurchase = HookMarketplacePurchase
    { HookMarketplacePurchase -> HookMarketplaceAccount
whMarketplacePurchaseAccount         :: !HookMarketplaceAccount
    , HookMarketplacePurchase -> Maybe HookMarketplaceBillingCycle
whMarketplacePurchaseBillingCycle    :: !(Maybe HookMarketplaceBillingCycle)
    , HookMarketplacePurchase -> Int
whMarketplacePurchaseUnitCount       :: !Int
    , HookMarketplacePurchase -> Bool
whMarketplacePurchaseOnFreeTrial     :: !Bool
    , HookMarketplacePurchase -> Maybe UTCTime
whMarketplacePurchaseFreeTrialEndsOn :: !(Maybe UTCTime)
    , HookMarketplacePurchase -> Maybe UTCTime
whMarketplacePurchaseNextBillingDate :: !(Maybe UTCTime)
    , HookMarketplacePurchase -> HookMarketplacePlan
whMarketplacePurchasePlan            :: !HookMarketplacePlan
    }
    deriving (HookMarketplacePurchase -> HookMarketplacePurchase -> Bool
(HookMarketplacePurchase -> HookMarketplacePurchase -> Bool)
-> (HookMarketplacePurchase -> HookMarketplacePurchase -> Bool)
-> Eq HookMarketplacePurchase
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMarketplacePurchase -> HookMarketplacePurchase -> Bool
$c/= :: HookMarketplacePurchase -> HookMarketplacePurchase -> Bool
== :: HookMarketplacePurchase -> HookMarketplacePurchase -> Bool
$c== :: HookMarketplacePurchase -> HookMarketplacePurchase -> Bool
Eq, Int -> HookMarketplacePurchase -> ShowS
[HookMarketplacePurchase] -> ShowS
HookMarketplacePurchase -> String
(Int -> HookMarketplacePurchase -> ShowS)
-> (HookMarketplacePurchase -> String)
-> ([HookMarketplacePurchase] -> ShowS)
-> Show HookMarketplacePurchase
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMarketplacePurchase] -> ShowS
$cshowList :: [HookMarketplacePurchase] -> ShowS
show :: HookMarketplacePurchase -> String
$cshow :: HookMarketplacePurchase -> String
showsPrec :: Int -> HookMarketplacePurchase -> ShowS
$cshowsPrec :: Int -> HookMarketplacePurchase -> ShowS
Show, Typeable, Typeable HookMarketplacePurchase
DataType
Constr
Typeable HookMarketplacePurchase
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookMarketplacePurchase
    -> c HookMarketplacePurchase)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookMarketplacePurchase)
-> (HookMarketplacePurchase -> Constr)
-> (HookMarketplacePurchase -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePurchase))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMarketplacePurchase))
-> ((forall b. Data b => b -> b)
    -> HookMarketplacePurchase -> HookMarketplacePurchase)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplacePurchase
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplacePurchase
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookMarketplacePurchase -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u) -> HookMarketplacePurchase -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePurchase -> m HookMarketplacePurchase)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePurchase -> m HookMarketplacePurchase)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePurchase -> m HookMarketplacePurchase)
-> Data HookMarketplacePurchase
HookMarketplacePurchase -> DataType
HookMarketplacePurchase -> Constr
(forall b. Data b => b -> b)
-> HookMarketplacePurchase -> HookMarketplacePurchase
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePurchase
-> c HookMarketplacePurchase
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePurchase
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookMarketplacePurchase -> u
forall u.
(forall d. Data d => d -> u) -> HookMarketplacePurchase -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePurchase
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePurchase
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePurchase
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePurchase
-> c HookMarketplacePurchase
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePurchase)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePurchase)
$cHookMarketplacePurchase :: Constr
$tHookMarketplacePurchase :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
gmapMp :: (forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
gmapM :: (forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePurchase -> m HookMarketplacePurchase
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookMarketplacePurchase -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookMarketplacePurchase -> u
gmapQ :: (forall d. Data d => d -> u) -> HookMarketplacePurchase -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookMarketplacePurchase -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePurchase
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePurchase
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePurchase
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePurchase
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookMarketplacePurchase -> HookMarketplacePurchase
$cgmapT :: (forall b. Data b => b -> b)
-> HookMarketplacePurchase -> HookMarketplacePurchase
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePurchase)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePurchase)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePurchase)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePurchase)
dataTypeOf :: HookMarketplacePurchase -> DataType
$cdataTypeOf :: HookMarketplacePurchase -> DataType
toConstr :: HookMarketplacePurchase -> Constr
$ctoConstr :: HookMarketplacePurchase -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePurchase
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePurchase
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePurchase
-> c HookMarketplacePurchase
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePurchase
-> c HookMarketplacePurchase
$cp1Data :: Typeable HookMarketplacePurchase
Data, (forall x.
 HookMarketplacePurchase -> Rep HookMarketplacePurchase x)
-> (forall x.
    Rep HookMarketplacePurchase x -> HookMarketplacePurchase)
-> Generic HookMarketplacePurchase
forall x. Rep HookMarketplacePurchase x -> HookMarketplacePurchase
forall x. HookMarketplacePurchase -> Rep HookMarketplacePurchase x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookMarketplacePurchase x -> HookMarketplacePurchase
$cfrom :: forall x. HookMarketplacePurchase -> Rep HookMarketplacePurchase x
Generic)

instance NFData HookMarketplacePurchase where rnf :: HookMarketplacePurchase -> ()
rnf = HookMarketplacePurchase -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "account" field in the 'HookMarketplacePurchase' payload.

data HookMarketplaceAccount = HookMarketplaceAccount
    { HookMarketplaceAccount -> OwnerType
whMarketplaceAccountType                     :: !OwnerType
    , HookMarketplaceAccount -> Int
whMarketplaceAccountId                       :: !Int
    , HookMarketplaceAccount -> Text
whMarketplaceAccountNodeId                   :: !Text
    , HookMarketplaceAccount -> Text
whMarketplaceAccountLogin                    :: !Text
    , HookMarketplaceAccount -> Maybe Text
whMarketplaceAccountOrganizationBillingEmail :: !(Maybe Text)
    }
    deriving (HookMarketplaceAccount -> HookMarketplaceAccount -> Bool
(HookMarketplaceAccount -> HookMarketplaceAccount -> Bool)
-> (HookMarketplaceAccount -> HookMarketplaceAccount -> Bool)
-> Eq HookMarketplaceAccount
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMarketplaceAccount -> HookMarketplaceAccount -> Bool
$c/= :: HookMarketplaceAccount -> HookMarketplaceAccount -> Bool
== :: HookMarketplaceAccount -> HookMarketplaceAccount -> Bool
$c== :: HookMarketplaceAccount -> HookMarketplaceAccount -> Bool
Eq, Int -> HookMarketplaceAccount -> ShowS
[HookMarketplaceAccount] -> ShowS
HookMarketplaceAccount -> String
(Int -> HookMarketplaceAccount -> ShowS)
-> (HookMarketplaceAccount -> String)
-> ([HookMarketplaceAccount] -> ShowS)
-> Show HookMarketplaceAccount
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMarketplaceAccount] -> ShowS
$cshowList :: [HookMarketplaceAccount] -> ShowS
show :: HookMarketplaceAccount -> String
$cshow :: HookMarketplaceAccount -> String
showsPrec :: Int -> HookMarketplaceAccount -> ShowS
$cshowsPrec :: Int -> HookMarketplaceAccount -> ShowS
Show, Typeable, Typeable HookMarketplaceAccount
DataType
Constr
Typeable HookMarketplaceAccount
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookMarketplaceAccount
    -> c HookMarketplaceAccount)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookMarketplaceAccount)
-> (HookMarketplaceAccount -> Constr)
-> (HookMarketplaceAccount -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookMarketplaceAccount))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMarketplaceAccount))
-> ((forall b. Data b => b -> b)
    -> HookMarketplaceAccount -> HookMarketplaceAccount)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplaceAccount
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplaceAccount
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookMarketplaceAccount -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookMarketplaceAccount -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplaceAccount -> m HookMarketplaceAccount)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplaceAccount -> m HookMarketplaceAccount)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplaceAccount -> m HookMarketplaceAccount)
-> Data HookMarketplaceAccount
HookMarketplaceAccount -> DataType
HookMarketplaceAccount -> Constr
(forall b. Data b => b -> b)
-> HookMarketplaceAccount -> HookMarketplaceAccount
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceAccount
-> c HookMarketplaceAccount
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceAccount
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookMarketplaceAccount -> u
forall u.
(forall d. Data d => d -> u) -> HookMarketplaceAccount -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceAccount
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceAccount
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceAccount
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceAccount
-> c HookMarketplaceAccount
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMarketplaceAccount)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplaceAccount)
$cHookMarketplaceAccount :: Constr
$tHookMarketplaceAccount :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
gmapMp :: (forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
gmapM :: (forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplaceAccount -> m HookMarketplaceAccount
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookMarketplaceAccount -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookMarketplaceAccount -> u
gmapQ :: (forall d. Data d => d -> u) -> HookMarketplaceAccount -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookMarketplaceAccount -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceAccount
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceAccount
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceAccount
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplaceAccount
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookMarketplaceAccount -> HookMarketplaceAccount
$cgmapT :: (forall b. Data b => b -> b)
-> HookMarketplaceAccount -> HookMarketplaceAccount
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplaceAccount)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplaceAccount)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookMarketplaceAccount)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMarketplaceAccount)
dataTypeOf :: HookMarketplaceAccount -> DataType
$cdataTypeOf :: HookMarketplaceAccount -> DataType
toConstr :: HookMarketplaceAccount -> Constr
$ctoConstr :: HookMarketplaceAccount -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceAccount
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplaceAccount
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceAccount
-> c HookMarketplaceAccount
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplaceAccount
-> c HookMarketplaceAccount
$cp1Data :: Typeable HookMarketplaceAccount
Data, (forall x. HookMarketplaceAccount -> Rep HookMarketplaceAccount x)
-> (forall x.
    Rep HookMarketplaceAccount x -> HookMarketplaceAccount)
-> Generic HookMarketplaceAccount
forall x. Rep HookMarketplaceAccount x -> HookMarketplaceAccount
forall x. HookMarketplaceAccount -> Rep HookMarketplaceAccount x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookMarketplaceAccount x -> HookMarketplaceAccount
$cfrom :: forall x. HookMarketplaceAccount -> Rep HookMarketplaceAccount x
Generic)

instance NFData HookMarketplaceAccount where rnf :: HookMarketplaceAccount -> ()
rnf = HookMarketplaceAccount -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "plan" field in the 'HookMarketplacePurchase' payload.

data HookMarketplacePlan = HookMarketplacePlan
    { HookMarketplacePlan -> Int
whMarketplacePlanId                  :: !Int
    , HookMarketplacePlan -> Text
whMarketplacePlanName                :: !Text
    , HookMarketplacePlan -> Text
whMarketplacePlanDescription         :: !Text
    , HookMarketplacePlan -> Int
whMarketplacePlanMonthlyPriceInCents :: !Int
    , HookMarketplacePlan -> Int
whMarketplacePlanYearlyPriceInCents  :: !Int
    , HookMarketplacePlan -> HookMarketplacePlanPriceModel
whMarketplacePlanPriceModel          :: !HookMarketplacePlanPriceModel
    , HookMarketplacePlan -> Bool
whMarketplacePlanHasFreeTrial        :: !Bool
    , HookMarketplacePlan -> Maybe Text
whMarketplacePlanUnitName            :: !(Maybe Text)
    , HookMarketplacePlan -> Vector Text
whMarketplacePlanBullet              :: !(Vector Text)
    }
    deriving (HookMarketplacePlan -> HookMarketplacePlan -> Bool
(HookMarketplacePlan -> HookMarketplacePlan -> Bool)
-> (HookMarketplacePlan -> HookMarketplacePlan -> Bool)
-> Eq HookMarketplacePlan
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMarketplacePlan -> HookMarketplacePlan -> Bool
$c/= :: HookMarketplacePlan -> HookMarketplacePlan -> Bool
== :: HookMarketplacePlan -> HookMarketplacePlan -> Bool
$c== :: HookMarketplacePlan -> HookMarketplacePlan -> Bool
Eq, Int -> HookMarketplacePlan -> ShowS
[HookMarketplacePlan] -> ShowS
HookMarketplacePlan -> String
(Int -> HookMarketplacePlan -> ShowS)
-> (HookMarketplacePlan -> String)
-> ([HookMarketplacePlan] -> ShowS)
-> Show HookMarketplacePlan
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMarketplacePlan] -> ShowS
$cshowList :: [HookMarketplacePlan] -> ShowS
show :: HookMarketplacePlan -> String
$cshow :: HookMarketplacePlan -> String
showsPrec :: Int -> HookMarketplacePlan -> ShowS
$cshowsPrec :: Int -> HookMarketplacePlan -> ShowS
Show, Typeable, Typeable HookMarketplacePlan
DataType
Constr
Typeable HookMarketplacePlan
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookMarketplacePlan
    -> c HookMarketplacePlan)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookMarketplacePlan)
-> (HookMarketplacePlan -> Constr)
-> (HookMarketplacePlan -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePlan))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMarketplacePlan))
-> ((forall b. Data b => b -> b)
    -> HookMarketplacePlan -> HookMarketplacePlan)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookMarketplacePlan -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookMarketplacePlan -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePlan -> m HookMarketplacePlan)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePlan -> m HookMarketplacePlan)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePlan -> m HookMarketplacePlan)
-> Data HookMarketplacePlan
HookMarketplacePlan -> DataType
HookMarketplacePlan -> Constr
(forall b. Data b => b -> b)
-> HookMarketplacePlan -> HookMarketplacePlan
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlan
-> c HookMarketplacePlan
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePlan
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookMarketplacePlan -> u
forall u.
(forall d. Data d => d -> u) -> HookMarketplacePlan -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePlan
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlan
-> c HookMarketplacePlan
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePlan)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePlan)
$cHookMarketplacePlan :: Constr
$tHookMarketplacePlan :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
gmapMp :: (forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
gmapM :: (forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlan -> m HookMarketplacePlan
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookMarketplacePlan -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookMarketplacePlan -> u
gmapQ :: (forall d. Data d => d -> u) -> HookMarketplacePlan -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookMarketplacePlan -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMarketplacePlan -> r
gmapT :: (forall b. Data b => b -> b)
-> HookMarketplacePlan -> HookMarketplacePlan
$cgmapT :: (forall b. Data b => b -> b)
-> HookMarketplacePlan -> HookMarketplacePlan
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePlan)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePlan)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePlan)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMarketplacePlan)
dataTypeOf :: HookMarketplacePlan -> DataType
$cdataTypeOf :: HookMarketplacePlan -> DataType
toConstr :: HookMarketplacePlan -> Constr
$ctoConstr :: HookMarketplacePlan -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePlan
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMarketplacePlan
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlan
-> c HookMarketplacePlan
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlan
-> c HookMarketplacePlan
$cp1Data :: Typeable HookMarketplacePlan
Data, (forall x. HookMarketplacePlan -> Rep HookMarketplacePlan x)
-> (forall x. Rep HookMarketplacePlan x -> HookMarketplacePlan)
-> Generic HookMarketplacePlan
forall x. Rep HookMarketplacePlan x -> HookMarketplacePlan
forall x. HookMarketplacePlan -> Rep HookMarketplacePlan x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookMarketplacePlan x -> HookMarketplacePlan
$cfrom :: forall x. HookMarketplacePlan -> Rep HookMarketplacePlan x
Generic)

instance NFData HookMarketplacePlan where rnf :: HookMarketplacePlan -> ()
rnf = HookMarketplacePlan -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "price_model" field in the

-- 'HookMarketplacePlan' payload.

data HookMarketplacePlanPriceModel
    -- | Decodes from "flat-rate"

    = HookMarketplacePlanPriceModelFlatRate
    -- | Decodes from "per-unit".

    | HookMarketplacePlanPriceModelPerUnit
    -- | Decodes from "free".

    | HookMarketplacePlanPriceModelFree
    -- | The result of decoding an unknown marketplace plan price model

    | HookMarketplacePlanPriceModelOther !Text
    deriving (HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
(HookMarketplacePlanPriceModel
 -> HookMarketplacePlanPriceModel -> Bool)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> Bool)
-> Eq HookMarketplacePlanPriceModel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
$c/= :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
== :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
$c== :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
Eq, Eq HookMarketplacePlanPriceModel
Eq HookMarketplacePlanPriceModel
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> Ordering)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> Bool)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> Bool)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> Bool)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> Bool)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel)
-> (HookMarketplacePlanPriceModel
    -> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel)
-> Ord HookMarketplacePlanPriceModel
HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Ordering
HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
$cmin :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
max :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
$cmax :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
>= :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
$c>= :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
> :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
$c> :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
<= :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
$c<= :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
< :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
$c< :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Bool
compare :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Ordering
$ccompare :: HookMarketplacePlanPriceModel
-> HookMarketplacePlanPriceModel -> Ordering
$cp1Ord :: Eq HookMarketplacePlanPriceModel
Ord, Int -> HookMarketplacePlanPriceModel -> ShowS
[HookMarketplacePlanPriceModel] -> ShowS
HookMarketplacePlanPriceModel -> String
(Int -> HookMarketplacePlanPriceModel -> ShowS)
-> (HookMarketplacePlanPriceModel -> String)
-> ([HookMarketplacePlanPriceModel] -> ShowS)
-> Show HookMarketplacePlanPriceModel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMarketplacePlanPriceModel] -> ShowS
$cshowList :: [HookMarketplacePlanPriceModel] -> ShowS
show :: HookMarketplacePlanPriceModel -> String
$cshow :: HookMarketplacePlanPriceModel -> String
showsPrec :: Int -> HookMarketplacePlanPriceModel -> ShowS
$cshowsPrec :: Int -> HookMarketplacePlanPriceModel -> ShowS
Show, (forall x.
 HookMarketplacePlanPriceModel
 -> Rep HookMarketplacePlanPriceModel x)
-> (forall x.
    Rep HookMarketplacePlanPriceModel x
    -> HookMarketplacePlanPriceModel)
-> Generic HookMarketplacePlanPriceModel
forall x.
Rep HookMarketplacePlanPriceModel x
-> HookMarketplacePlanPriceModel
forall x.
HookMarketplacePlanPriceModel
-> Rep HookMarketplacePlanPriceModel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookMarketplacePlanPriceModel x
-> HookMarketplacePlanPriceModel
$cfrom :: forall x.
HookMarketplacePlanPriceModel
-> Rep HookMarketplacePlanPriceModel x
Generic, Typeable, Typeable HookMarketplacePlanPriceModel
DataType
Constr
Typeable HookMarketplacePlanPriceModel
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookMarketplacePlanPriceModel
    -> c HookMarketplacePlanPriceModel)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r)
    -> Constr
    -> c HookMarketplacePlanPriceModel)
-> (HookMarketplacePlanPriceModel -> Constr)
-> (HookMarketplacePlanPriceModel -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookMarketplacePlanPriceModel))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMarketplacePlanPriceModel))
-> ((forall b. Data b => b -> b)
    -> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplacePlanPriceModel
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookMarketplacePlanPriceModel
    -> r)
-> (forall u.
    (forall d. Data d => d -> u)
    -> HookMarketplacePlanPriceModel -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> HookMarketplacePlanPriceModel
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePlanPriceModel
    -> m HookMarketplacePlanPriceModel)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePlanPriceModel
    -> m HookMarketplacePlanPriceModel)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMarketplacePlanPriceModel
    -> m HookMarketplacePlanPriceModel)
-> Data HookMarketplacePlanPriceModel
HookMarketplacePlanPriceModel -> DataType
HookMarketplacePlanPriceModel -> Constr
(forall b. Data b => b -> b)
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlanPriceModel
-> c HookMarketplacePlanPriceModel
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookMarketplacePlanPriceModel
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u)
-> HookMarketplacePlanPriceModel
-> u
forall u.
(forall d. Data d => d -> u)
-> HookMarketplacePlanPriceModel -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePlanPriceModel
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePlanPriceModel
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookMarketplacePlanPriceModel
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlanPriceModel
-> c HookMarketplacePlanPriceModel
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookMarketplacePlanPriceModel)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePlanPriceModel)
$cHookMarketplacePlanPriceModelOther :: Constr
$cHookMarketplacePlanPriceModelFree :: Constr
$cHookMarketplacePlanPriceModelPerUnit :: Constr
$cHookMarketplacePlanPriceModelFlatRate :: Constr
$tHookMarketplacePlanPriceModel :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
gmapMp :: (forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
gmapM :: (forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMarketplacePlanPriceModel -> m HookMarketplacePlanPriceModel
gmapQi :: Int
-> (forall d. Data d => d -> u)
-> HookMarketplacePlanPriceModel
-> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u)
-> HookMarketplacePlanPriceModel
-> u
gmapQ :: (forall d. Data d => d -> u)
-> HookMarketplacePlanPriceModel -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u)
-> HookMarketplacePlanPriceModel -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePlanPriceModel
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePlanPriceModel
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePlanPriceModel
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookMarketplacePlanPriceModel
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
$cgmapT :: (forall b. Data b => b -> b)
-> HookMarketplacePlanPriceModel -> HookMarketplacePlanPriceModel
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePlanPriceModel)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMarketplacePlanPriceModel)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookMarketplacePlanPriceModel)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookMarketplacePlanPriceModel)
dataTypeOf :: HookMarketplacePlanPriceModel -> DataType
$cdataTypeOf :: HookMarketplacePlanPriceModel -> DataType
toConstr :: HookMarketplacePlanPriceModel -> Constr
$ctoConstr :: HookMarketplacePlanPriceModel -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookMarketplacePlanPriceModel
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookMarketplacePlanPriceModel
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlanPriceModel
-> c HookMarketplacePlanPriceModel
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookMarketplacePlanPriceModel
-> c HookMarketplacePlanPriceModel
$cp1Data :: Typeable HookMarketplacePlanPriceModel
Data)

instance NFData HookMarketplacePlanPriceModel where rnf :: HookMarketplacePlanPriceModel -> ()
rnf = HookMarketplacePlanPriceModel -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON HookMarketplacePlanPriceModel where
  parseJSON :: Value -> Parser HookMarketplacePlanPriceModel
parseJSON = String
-> (Text -> Parser HookMarketplacePlanPriceModel)
-> Value
-> Parser HookMarketplacePlanPriceModel
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Hook marketplace plan price model" ((Text -> Parser HookMarketplacePlanPriceModel)
 -> Value -> Parser HookMarketplacePlanPriceModel)
-> (Text -> Parser HookMarketplacePlanPriceModel)
-> Value
-> Parser HookMarketplacePlanPriceModel
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text
t of
          Text
"flat-rate"       -> HookMarketplacePlanPriceModel
-> Parser HookMarketplacePlanPriceModel
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookMarketplacePlanPriceModel
HookMarketplacePlanPriceModelFlatRate
          Text
"per-unit"        -> HookMarketplacePlanPriceModel
-> Parser HookMarketplacePlanPriceModel
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookMarketplacePlanPriceModel
HookMarketplacePlanPriceModelPerUnit
          Text
"free"            -> HookMarketplacePlanPriceModel
-> Parser HookMarketplacePlanPriceModel
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookMarketplacePlanPriceModel
HookMarketplacePlanPriceModelFree
          Text
_                 -> HookMarketplacePlanPriceModel
-> Parser HookMarketplacePlanPriceModel
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Text -> HookMarketplacePlanPriceModel
HookMarketplacePlanPriceModelOther Text
t)

type MilestoneState = Text

-- | Represents the "milestone" field in the 'MilestoneEvent' payload.

data HookMilestone = HookMilestone
    { HookMilestone -> URL
whMilestoneUrl            :: !URL
    , HookMilestone -> URL
whMilestoneHtmlUrl        :: !URL
    , HookMilestone -> URL
whMilestoneLabelsUrl      :: !URL
    , HookMilestone -> Int
whMilestoneId             :: !Int
    , HookMilestone -> Text
whMilestoneNodeId         :: !Text
    , HookMilestone -> Int
whMilestoneNumber         :: !Int
    , HookMilestone -> Text
whMilestoneTitle          :: !Text
    , HookMilestone -> Maybe Text
whMilestoneDescription    :: !(Maybe Text)
    , HookMilestone -> HookUser
whMilestoneCreator        :: !HookUser
    , HookMilestone -> Int
whMilestoneOpenIssues     :: !Int
    , HookMilestone -> Int
whMilestoneClosedIssues   :: !Int
    , HookMilestone -> Text
whMilestoneState          :: !MilestoneState
    , HookMilestone -> UTCTime
whMilestoneCreatedAt      :: !UTCTime
    , HookMilestone -> UTCTime
whMilestoneUpdatedAt      :: !UTCTime
    , HookMilestone -> Maybe UTCTime
whMilestoneDueOn          :: !(Maybe UTCTime)
    , HookMilestone -> Maybe UTCTime
whMilestoneClosedAt       :: !(Maybe UTCTime)
    }
    deriving (HookMilestone -> HookMilestone -> Bool
(HookMilestone -> HookMilestone -> Bool)
-> (HookMilestone -> HookMilestone -> Bool) -> Eq HookMilestone
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMilestone -> HookMilestone -> Bool
$c/= :: HookMilestone -> HookMilestone -> Bool
== :: HookMilestone -> HookMilestone -> Bool
$c== :: HookMilestone -> HookMilestone -> Bool
Eq, Int -> HookMilestone -> ShowS
[HookMilestone] -> ShowS
HookMilestone -> String
(Int -> HookMilestone -> ShowS)
-> (HookMilestone -> String)
-> ([HookMilestone] -> ShowS)
-> Show HookMilestone
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMilestone] -> ShowS
$cshowList :: [HookMilestone] -> ShowS
show :: HookMilestone -> String
$cshow :: HookMilestone -> String
showsPrec :: Int -> HookMilestone -> ShowS
$cshowsPrec :: Int -> HookMilestone -> ShowS
Show, Typeable, Typeable HookMilestone
DataType
Constr
Typeable HookMilestone
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookMilestone -> c HookMilestone)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookMilestone)
-> (HookMilestone -> Constr)
-> (HookMilestone -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookMilestone))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMilestone))
-> ((forall b. Data b => b -> b) -> HookMilestone -> HookMilestone)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookMilestone -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookMilestone -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookMilestone -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookMilestone -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone)
-> Data HookMilestone
HookMilestone -> DataType
HookMilestone -> Constr
(forall b. Data b => b -> b) -> HookMilestone -> HookMilestone
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMilestone -> c HookMilestone
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMilestone
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookMilestone -> u
forall u. (forall d. Data d => d -> u) -> HookMilestone -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMilestone -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMilestone -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMilestone
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMilestone -> c HookMilestone
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMilestone)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMilestone)
$cHookMilestone :: Constr
$tHookMilestone :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
gmapMp :: (forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
gmapM :: (forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookMilestone -> m HookMilestone
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookMilestone -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookMilestone -> u
gmapQ :: (forall d. Data d => d -> u) -> HookMilestone -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookMilestone -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMilestone -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMilestone -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMilestone -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMilestone -> r
gmapT :: (forall b. Data b => b -> b) -> HookMilestone -> HookMilestone
$cgmapT :: (forall b. Data b => b -> b) -> HookMilestone -> HookMilestone
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMilestone)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMilestone)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookMilestone)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMilestone)
dataTypeOf :: HookMilestone -> DataType
$cdataTypeOf :: HookMilestone -> DataType
toConstr :: HookMilestone -> Constr
$ctoConstr :: HookMilestone -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMilestone
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMilestone
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMilestone -> c HookMilestone
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMilestone -> c HookMilestone
$cp1Data :: Typeable HookMilestone
Data, (forall x. HookMilestone -> Rep HookMilestone x)
-> (forall x. Rep HookMilestone x -> HookMilestone)
-> Generic HookMilestone
forall x. Rep HookMilestone x -> HookMilestone
forall x. HookMilestone -> Rep HookMilestone x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookMilestone x -> HookMilestone
$cfrom :: forall x. HookMilestone -> Rep HookMilestone x
Generic)

instance NFData HookMilestone where rnf :: HookMilestone -> ()
rnf = HookMilestone -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf


type MembershipState = Text
type MembershipRole = Text

-- FIXME: Not sure where this is.

data HookMembership = HookMembership
    { HookMembership -> URL
whMembershipUrl           :: !URL
    , HookMembership -> Text
whMembershipState         :: !MembershipState
    , HookMembership -> Text
whMembershipRole          :: !MembershipRole
    , HookMembership -> URL
whMembershipOrgUrl        :: !URL
    , HookMembership -> HookUser
whMembershipUser          :: !HookUser
    }
    deriving (HookMembership -> HookMembership -> Bool
(HookMembership -> HookMembership -> Bool)
-> (HookMembership -> HookMembership -> Bool) -> Eq HookMembership
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookMembership -> HookMembership -> Bool
$c/= :: HookMembership -> HookMembership -> Bool
== :: HookMembership -> HookMembership -> Bool
$c== :: HookMembership -> HookMembership -> Bool
Eq, Int -> HookMembership -> ShowS
[HookMembership] -> ShowS
HookMembership -> String
(Int -> HookMembership -> ShowS)
-> (HookMembership -> String)
-> ([HookMembership] -> ShowS)
-> Show HookMembership
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookMembership] -> ShowS
$cshowList :: [HookMembership] -> ShowS
show :: HookMembership -> String
$cshow :: HookMembership -> String
showsPrec :: Int -> HookMembership -> ShowS
$cshowsPrec :: Int -> HookMembership -> ShowS
Show, Typeable, Typeable HookMembership
DataType
Constr
Typeable HookMembership
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookMembership -> c HookMembership)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookMembership)
-> (HookMembership -> Constr)
-> (HookMembership -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookMembership))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookMembership))
-> ((forall b. Data b => b -> b)
    -> HookMembership -> HookMembership)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookMembership -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookMembership -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookMembership -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookMembership -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookMembership -> m HookMembership)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMembership -> m HookMembership)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookMembership -> m HookMembership)
-> Data HookMembership
HookMembership -> DataType
HookMembership -> Constr
(forall b. Data b => b -> b) -> HookMembership -> HookMembership
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMembership -> c HookMembership
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMembership
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookMembership -> u
forall u. (forall d. Data d => d -> u) -> HookMembership -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMembership -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMembership -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMembership
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMembership -> c HookMembership
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMembership)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMembership)
$cHookMembership :: Constr
$tHookMembership :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
gmapMp :: (forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
gmapM :: (forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookMembership -> m HookMembership
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookMembership -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookMembership -> u
gmapQ :: (forall d. Data d => d -> u) -> HookMembership -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookMembership -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMembership -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookMembership -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMembership -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookMembership -> r
gmapT :: (forall b. Data b => b -> b) -> HookMembership -> HookMembership
$cgmapT :: (forall b. Data b => b -> b) -> HookMembership -> HookMembership
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMembership)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookMembership)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookMembership)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookMembership)
dataTypeOf :: HookMembership -> DataType
$cdataTypeOf :: HookMembership -> DataType
toConstr :: HookMembership -> Constr
$ctoConstr :: HookMembership -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMembership
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookMembership
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMembership -> c HookMembership
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookMembership -> c HookMembership
$cp1Data :: Typeable HookMembership
Data, (forall x. HookMembership -> Rep HookMembership x)
-> (forall x. Rep HookMembership x -> HookMembership)
-> Generic HookMembership
forall x. Rep HookMembership x -> HookMembership
forall x. HookMembership -> Rep HookMembership x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookMembership x -> HookMembership
$cfrom :: forall x. HookMembership -> Rep HookMembership x
Generic)

instance NFData HookMembership where rnf :: HookMembership -> ()
rnf = HookMembership -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf


type ProjectState = Text

-- | Represents the "project" field in the 'ProjectEvent' payload.

data HookProject = HookProject
    { HookProject -> URL
whProjectOwnerUrl         :: !URL
    , HookProject -> URL
whProjectUrl              :: !URL
    , HookProject -> URL
whProjectColumnsUrl       :: !URL
    , HookProject -> Int
whProjectId               :: !Int
    , HookProject -> Text
whProjectNodeId           :: !Text
    , HookProject -> Text
whProjectName             :: !Text
    , HookProject -> Text
whProjectBody             :: !Text
    , HookProject -> Int
whProjectNumber           :: !Int
    , HookProject -> Text
whProjectState            :: !ProjectState
    , HookProject -> HookUser
whProjectCreator          :: !HookUser
    , HookProject -> UTCTime
whProjectCreatedAt        :: !UTCTime
    , HookProject -> UTCTime
whProjectUpdatedAt        :: !UTCTime
    }
    deriving (HookProject -> HookProject -> Bool
(HookProject -> HookProject -> Bool)
-> (HookProject -> HookProject -> Bool) -> Eq HookProject
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookProject -> HookProject -> Bool
$c/= :: HookProject -> HookProject -> Bool
== :: HookProject -> HookProject -> Bool
$c== :: HookProject -> HookProject -> Bool
Eq, Int -> HookProject -> ShowS
[HookProject] -> ShowS
HookProject -> String
(Int -> HookProject -> ShowS)
-> (HookProject -> String)
-> ([HookProject] -> ShowS)
-> Show HookProject
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookProject] -> ShowS
$cshowList :: [HookProject] -> ShowS
show :: HookProject -> String
$cshow :: HookProject -> String
showsPrec :: Int -> HookProject -> ShowS
$cshowsPrec :: Int -> HookProject -> ShowS
Show, Typeable, Typeable HookProject
DataType
Constr
Typeable HookProject
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookProject -> c HookProject)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookProject)
-> (HookProject -> Constr)
-> (HookProject -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookProject))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookProject))
-> ((forall b. Data b => b -> b) -> HookProject -> HookProject)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookProject -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookProject -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookProject -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookProject -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookProject -> m HookProject)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookProject -> m HookProject)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookProject -> m HookProject)
-> Data HookProject
HookProject -> DataType
HookProject -> Constr
(forall b. Data b => b -> b) -> HookProject -> HookProject
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProject -> c HookProject
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProject
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookProject -> u
forall u. (forall d. Data d => d -> u) -> HookProject -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProject -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProject -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookProject -> m HookProject
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookProject -> m HookProject
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProject
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProject -> c HookProject
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookProject)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProject)
$cHookProject :: Constr
$tHookProject :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookProject -> m HookProject
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookProject -> m HookProject
gmapMp :: (forall d. Data d => d -> m d) -> HookProject -> m HookProject
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookProject -> m HookProject
gmapM :: (forall d. Data d => d -> m d) -> HookProject -> m HookProject
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookProject -> m HookProject
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookProject -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookProject -> u
gmapQ :: (forall d. Data d => d -> u) -> HookProject -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookProject -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProject -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProject -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProject -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProject -> r
gmapT :: (forall b. Data b => b -> b) -> HookProject -> HookProject
$cgmapT :: (forall b. Data b => b -> b) -> HookProject -> HookProject
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProject)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProject)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookProject)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookProject)
dataTypeOf :: HookProject -> DataType
$cdataTypeOf :: HookProject -> DataType
toConstr :: HookProject -> Constr
$ctoConstr :: HookProject -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProject
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProject
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProject -> c HookProject
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProject -> c HookProject
$cp1Data :: Typeable HookProject
Data, (forall x. HookProject -> Rep HookProject x)
-> (forall x. Rep HookProject x -> HookProject)
-> Generic HookProject
forall x. Rep HookProject x -> HookProject
forall x. HookProject -> Rep HookProject x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookProject x -> HookProject
$cfrom :: forall x. HookProject -> Rep HookProject x
Generic)

instance NFData HookProject where rnf :: HookProject -> ()
rnf = HookProject -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "project_card" field in the 'ProjectCardEvent' payload.

data HookProjectCard = HookProjectCard
    { HookProjectCard -> URL
whProjectCardUrl          :: !URL
    , HookProjectCard -> URL
whProjectCardColumnUrl    :: !URL
    , HookProjectCard -> Int
whProjectCardColumnId     :: !Int
    , HookProjectCard -> Int
whProjectCardId           :: !Int
    , HookProjectCard -> Text
whProjectCardNodeId       :: !Text
    , HookProjectCard -> Maybe Text
whProjectCardNote         :: !(Maybe Text)
    , HookProjectCard -> HookUser
whProjectCardCreator      :: !HookUser
    , HookProjectCard -> UTCTime
whProjectCardCreatedAt    :: !UTCTime
    , HookProjectCard -> UTCTime
whProjectCardUpdatedAt    :: !UTCTime
    , HookProjectCard -> URL
whProjectCardContentUrl   :: !URL
    }
    deriving (HookProjectCard -> HookProjectCard -> Bool
(HookProjectCard -> HookProjectCard -> Bool)
-> (HookProjectCard -> HookProjectCard -> Bool)
-> Eq HookProjectCard
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookProjectCard -> HookProjectCard -> Bool
$c/= :: HookProjectCard -> HookProjectCard -> Bool
== :: HookProjectCard -> HookProjectCard -> Bool
$c== :: HookProjectCard -> HookProjectCard -> Bool
Eq, Int -> HookProjectCard -> ShowS
[HookProjectCard] -> ShowS
HookProjectCard -> String
(Int -> HookProjectCard -> ShowS)
-> (HookProjectCard -> String)
-> ([HookProjectCard] -> ShowS)
-> Show HookProjectCard
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookProjectCard] -> ShowS
$cshowList :: [HookProjectCard] -> ShowS
show :: HookProjectCard -> String
$cshow :: HookProjectCard -> String
showsPrec :: Int -> HookProjectCard -> ShowS
$cshowsPrec :: Int -> HookProjectCard -> ShowS
Show, Typeable, Typeable HookProjectCard
DataType
Constr
Typeable HookProjectCard
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookProjectCard -> c HookProjectCard)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookProjectCard)
-> (HookProjectCard -> Constr)
-> (HookProjectCard -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookProjectCard))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookProjectCard))
-> ((forall b. Data b => b -> b)
    -> HookProjectCard -> HookProjectCard)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookProjectCard -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookProjectCard -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookProjectCard -> m HookProjectCard)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookProjectCard -> m HookProjectCard)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookProjectCard -> m HookProjectCard)
-> Data HookProjectCard
HookProjectCard -> DataType
HookProjectCard -> Constr
(forall b. Data b => b -> b) -> HookProjectCard -> HookProjectCard
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectCard -> c HookProjectCard
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectCard
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookProjectCard -> u
forall u. (forall d. Data d => d -> u) -> HookProjectCard -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectCard
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectCard -> c HookProjectCard
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookProjectCard)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProjectCard)
$cHookProjectCard :: Constr
$tHookProjectCard :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
gmapMp :: (forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
gmapM :: (forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookProjectCard -> m HookProjectCard
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookProjectCard -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookProjectCard -> u
gmapQ :: (forall d. Data d => d -> u) -> HookProjectCard -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookProjectCard -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectCard -> r
gmapT :: (forall b. Data b => b -> b) -> HookProjectCard -> HookProjectCard
$cgmapT :: (forall b. Data b => b -> b) -> HookProjectCard -> HookProjectCard
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProjectCard)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProjectCard)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookProjectCard)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookProjectCard)
dataTypeOf :: HookProjectCard -> DataType
$cdataTypeOf :: HookProjectCard -> DataType
toConstr :: HookProjectCard -> Constr
$ctoConstr :: HookProjectCard -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectCard
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectCard
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectCard -> c HookProjectCard
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectCard -> c HookProjectCard
$cp1Data :: Typeable HookProjectCard
Data, (forall x. HookProjectCard -> Rep HookProjectCard x)
-> (forall x. Rep HookProjectCard x -> HookProjectCard)
-> Generic HookProjectCard
forall x. Rep HookProjectCard x -> HookProjectCard
forall x. HookProjectCard -> Rep HookProjectCard x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookProjectCard x -> HookProjectCard
$cfrom :: forall x. HookProjectCard -> Rep HookProjectCard x
Generic)

instance NFData HookProjectCard where rnf :: HookProjectCard -> ()
rnf = HookProjectCard -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "project_column" field in the 'ProjectColumnEvent' payload.

data HookProjectColumn = HookProjectColumn
    { HookProjectColumn -> URL
whProjectColumnUrl        :: !URL
    , HookProjectColumn -> URL
whProjectColumnProjUrl    :: !URL
    , HookProjectColumn -> URL
whProjectColumnCardsUrl   :: !URL
    , HookProjectColumn -> Int
whProjectColumnId         :: !Int
    , HookProjectColumn -> Text
whProjectColumnNodeId     :: !Text
    , HookProjectColumn -> Text
whProjectColumnName       :: !Text
    , HookProjectColumn -> UTCTime
whProjectColumnCreatedAt  :: !UTCTime
    , HookProjectColumn -> UTCTime
whProjectColumnUpdatedAt  :: !UTCTime
    }
    deriving (HookProjectColumn -> HookProjectColumn -> Bool
(HookProjectColumn -> HookProjectColumn -> Bool)
-> (HookProjectColumn -> HookProjectColumn -> Bool)
-> Eq HookProjectColumn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookProjectColumn -> HookProjectColumn -> Bool
$c/= :: HookProjectColumn -> HookProjectColumn -> Bool
== :: HookProjectColumn -> HookProjectColumn -> Bool
$c== :: HookProjectColumn -> HookProjectColumn -> Bool
Eq, Int -> HookProjectColumn -> ShowS
[HookProjectColumn] -> ShowS
HookProjectColumn -> String
(Int -> HookProjectColumn -> ShowS)
-> (HookProjectColumn -> String)
-> ([HookProjectColumn] -> ShowS)
-> Show HookProjectColumn
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookProjectColumn] -> ShowS
$cshowList :: [HookProjectColumn] -> ShowS
show :: HookProjectColumn -> String
$cshow :: HookProjectColumn -> String
showsPrec :: Int -> HookProjectColumn -> ShowS
$cshowsPrec :: Int -> HookProjectColumn -> ShowS
Show, Typeable, Typeable HookProjectColumn
DataType
Constr
Typeable HookProjectColumn
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookProjectColumn
    -> c HookProjectColumn)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookProjectColumn)
-> (HookProjectColumn -> Constr)
-> (HookProjectColumn -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookProjectColumn))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookProjectColumn))
-> ((forall b. Data b => b -> b)
    -> HookProjectColumn -> HookProjectColumn)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookProjectColumn -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookProjectColumn -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookProjectColumn -> m HookProjectColumn)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookProjectColumn -> m HookProjectColumn)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookProjectColumn -> m HookProjectColumn)
-> Data HookProjectColumn
HookProjectColumn -> DataType
HookProjectColumn -> Constr
(forall b. Data b => b -> b)
-> HookProjectColumn -> HookProjectColumn
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectColumn -> c HookProjectColumn
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectColumn
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookProjectColumn -> u
forall u. (forall d. Data d => d -> u) -> HookProjectColumn -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectColumn
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectColumn -> c HookProjectColumn
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookProjectColumn)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProjectColumn)
$cHookProjectColumn :: Constr
$tHookProjectColumn :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
gmapMp :: (forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
gmapM :: (forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookProjectColumn -> m HookProjectColumn
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookProjectColumn -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookProjectColumn -> u
gmapQ :: (forall d. Data d => d -> u) -> HookProjectColumn -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookProjectColumn -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookProjectColumn -> r
gmapT :: (forall b. Data b => b -> b)
-> HookProjectColumn -> HookProjectColumn
$cgmapT :: (forall b. Data b => b -> b)
-> HookProjectColumn -> HookProjectColumn
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProjectColumn)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookProjectColumn)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookProjectColumn)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookProjectColumn)
dataTypeOf :: HookProjectColumn -> DataType
$cdataTypeOf :: HookProjectColumn -> DataType
toConstr :: HookProjectColumn -> Constr
$ctoConstr :: HookProjectColumn -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectColumn
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookProjectColumn
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectColumn -> c HookProjectColumn
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookProjectColumn -> c HookProjectColumn
$cp1Data :: Typeable HookProjectColumn
Data, (forall x. HookProjectColumn -> Rep HookProjectColumn x)
-> (forall x. Rep HookProjectColumn x -> HookProjectColumn)
-> Generic HookProjectColumn
forall x. Rep HookProjectColumn x -> HookProjectColumn
forall x. HookProjectColumn -> Rep HookProjectColumn x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookProjectColumn x -> HookProjectColumn
$cfrom :: forall x. HookProjectColumn -> Rep HookProjectColumn x
Generic)

instance NFData HookProjectColumn where rnf :: HookProjectColumn -> ()
rnf = HookProjectColumn -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "issue.labels" field in the

-- 'IssueCommentEvent' and 'IssueEvent' payloads.

data HookIssueLabels = HookIssueLabels
    { HookIssueLabels -> Maybe Int
whIssueLabelId            :: !(Maybe Int)   -- ^ Not always sent.

    , HookIssueLabels -> Maybe Text
whIssueLabelNodeId        :: !(Maybe Text)
    , HookIssueLabels -> URL
whIssueLabelUrl           :: !URL
    , HookIssueLabels -> Text
whIssueLabelName          :: !Text
    , HookIssueLabels -> Text
whIssueLabelColor         :: !Text
    , HookIssueLabels -> Bool
whIssueLabelIsDefault     :: !Bool          -- ^ Defaults to false when not present.

    }
    deriving (HookIssueLabels -> HookIssueLabels -> Bool
(HookIssueLabels -> HookIssueLabels -> Bool)
-> (HookIssueLabels -> HookIssueLabels -> Bool)
-> Eq HookIssueLabels
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookIssueLabels -> HookIssueLabels -> Bool
$c/= :: HookIssueLabels -> HookIssueLabels -> Bool
== :: HookIssueLabels -> HookIssueLabels -> Bool
$c== :: HookIssueLabels -> HookIssueLabels -> Bool
Eq, Int -> HookIssueLabels -> ShowS
[HookIssueLabels] -> ShowS
HookIssueLabels -> String
(Int -> HookIssueLabels -> ShowS)
-> (HookIssueLabels -> String)
-> ([HookIssueLabels] -> ShowS)
-> Show HookIssueLabels
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookIssueLabels] -> ShowS
$cshowList :: [HookIssueLabels] -> ShowS
show :: HookIssueLabels -> String
$cshow :: HookIssueLabels -> String
showsPrec :: Int -> HookIssueLabels -> ShowS
$cshowsPrec :: Int -> HookIssueLabels -> ShowS
Show, Typeable, Typeable HookIssueLabels
DataType
Constr
Typeable HookIssueLabels
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookIssueLabels -> c HookIssueLabels)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookIssueLabels)
-> (HookIssueLabels -> Constr)
-> (HookIssueLabels -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookIssueLabels))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookIssueLabels))
-> ((forall b. Data b => b -> b)
    -> HookIssueLabels -> HookIssueLabels)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookIssueLabels -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookIssueLabels -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookIssueLabels -> m HookIssueLabels)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookIssueLabels -> m HookIssueLabels)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookIssueLabels -> m HookIssueLabels)
-> Data HookIssueLabels
HookIssueLabels -> DataType
HookIssueLabels -> Constr
(forall b. Data b => b -> b) -> HookIssueLabels -> HookIssueLabels
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueLabels -> c HookIssueLabels
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueLabels
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookIssueLabels -> u
forall u. (forall d. Data d => d -> u) -> HookIssueLabels -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueLabels
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueLabels -> c HookIssueLabels
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookIssueLabels)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookIssueLabels)
$cHookIssueLabels :: Constr
$tHookIssueLabels :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
gmapMp :: (forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
gmapM :: (forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookIssueLabels -> m HookIssueLabels
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookIssueLabels -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookIssueLabels -> u
gmapQ :: (forall d. Data d => d -> u) -> HookIssueLabels -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookIssueLabels -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueLabels -> r
gmapT :: (forall b. Data b => b -> b) -> HookIssueLabels -> HookIssueLabels
$cgmapT :: (forall b. Data b => b -> b) -> HookIssueLabels -> HookIssueLabels
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookIssueLabels)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookIssueLabels)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookIssueLabels)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookIssueLabels)
dataTypeOf :: HookIssueLabels -> DataType
$cdataTypeOf :: HookIssueLabels -> DataType
toConstr :: HookIssueLabels -> Constr
$ctoConstr :: HookIssueLabels -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueLabels
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueLabels
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueLabels -> c HookIssueLabels
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueLabels -> c HookIssueLabels
$cp1Data :: Typeable HookIssueLabels
Data, (forall x. HookIssueLabels -> Rep HookIssueLabels x)
-> (forall x. Rep HookIssueLabels x -> HookIssueLabels)
-> Generic HookIssueLabels
forall x. Rep HookIssueLabels x -> HookIssueLabels
forall x. HookIssueLabels -> Rep HookIssueLabels x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookIssueLabels x -> HookIssueLabels
$cfrom :: forall x. HookIssueLabels -> Rep HookIssueLabels x
Generic)

instance NFData HookIssueLabels where rnf :: HookIssueLabels -> ()
rnf = HookIssueLabels -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "status" field in the

-- 'HookCheckSuite' payload.

data HookCheckSuiteStatus
    -- | Decodes from "requested"

    = HookCheckSuiteStatusRequested
    -- | Decodes from "queued".

    | HookCheckSuiteStatusQueued
    -- | Decodes from "in_progress"

    | HookCheckSuiteStatusInProgress
    -- | Decodes from "completed"

    | HookCheckSuiteStatusCompleted
    -- | The result of decoding an unknown check suite status type

    | HookCheckSuiteStatusOther !Text
    deriving (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
(HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool)
-> (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool)
-> Eq HookCheckSuiteStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
$c/= :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
== :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
$c== :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
Eq, Eq HookCheckSuiteStatus
Eq HookCheckSuiteStatus
-> (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Ordering)
-> (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool)
-> (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool)
-> (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool)
-> (HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool)
-> (HookCheckSuiteStatus
    -> HookCheckSuiteStatus -> HookCheckSuiteStatus)
-> (HookCheckSuiteStatus
    -> HookCheckSuiteStatus -> HookCheckSuiteStatus)
-> Ord HookCheckSuiteStatus
HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
HookCheckSuiteStatus -> HookCheckSuiteStatus -> Ordering
HookCheckSuiteStatus
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HookCheckSuiteStatus
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
$cmin :: HookCheckSuiteStatus
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
max :: HookCheckSuiteStatus
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
$cmax :: HookCheckSuiteStatus
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
>= :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
$c>= :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
> :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
$c> :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
<= :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
$c<= :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
< :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
$c< :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Bool
compare :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Ordering
$ccompare :: HookCheckSuiteStatus -> HookCheckSuiteStatus -> Ordering
$cp1Ord :: Eq HookCheckSuiteStatus
Ord, Int -> HookCheckSuiteStatus -> ShowS
[HookCheckSuiteStatus] -> ShowS
HookCheckSuiteStatus -> String
(Int -> HookCheckSuiteStatus -> ShowS)
-> (HookCheckSuiteStatus -> String)
-> ([HookCheckSuiteStatus] -> ShowS)
-> Show HookCheckSuiteStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckSuiteStatus] -> ShowS
$cshowList :: [HookCheckSuiteStatus] -> ShowS
show :: HookCheckSuiteStatus -> String
$cshow :: HookCheckSuiteStatus -> String
showsPrec :: Int -> HookCheckSuiteStatus -> ShowS
$cshowsPrec :: Int -> HookCheckSuiteStatus -> ShowS
Show, (forall x. HookCheckSuiteStatus -> Rep HookCheckSuiteStatus x)
-> (forall x. Rep HookCheckSuiteStatus x -> HookCheckSuiteStatus)
-> Generic HookCheckSuiteStatus
forall x. Rep HookCheckSuiteStatus x -> HookCheckSuiteStatus
forall x. HookCheckSuiteStatus -> Rep HookCheckSuiteStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckSuiteStatus x -> HookCheckSuiteStatus
$cfrom :: forall x. HookCheckSuiteStatus -> Rep HookCheckSuiteStatus x
Generic, Typeable, Typeable HookCheckSuiteStatus
DataType
Constr
Typeable HookCheckSuiteStatus
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckSuiteStatus
    -> c HookCheckSuiteStatus)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckSuiteStatus)
-> (HookCheckSuiteStatus -> Constr)
-> (HookCheckSuiteStatus -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteStatus))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckSuiteStatus))
-> ((forall b. Data b => b -> b)
    -> HookCheckSuiteStatus -> HookCheckSuiteStatus)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckSuiteStatus -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckSuiteStatus -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteStatus -> m HookCheckSuiteStatus)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteStatus -> m HookCheckSuiteStatus)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteStatus -> m HookCheckSuiteStatus)
-> Data HookCheckSuiteStatus
HookCheckSuiteStatus -> DataType
HookCheckSuiteStatus -> Constr
(forall b. Data b => b -> b)
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteStatus
-> c HookCheckSuiteStatus
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteStatus
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckSuiteStatus -> u
forall u.
(forall d. Data d => d -> u) -> HookCheckSuiteStatus -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteStatus
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteStatus
-> c HookCheckSuiteStatus
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteStatus)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteStatus)
$cHookCheckSuiteStatusOther :: Constr
$cHookCheckSuiteStatusCompleted :: Constr
$cHookCheckSuiteStatusInProgress :: Constr
$cHookCheckSuiteStatusQueued :: Constr
$cHookCheckSuiteStatusRequested :: Constr
$tHookCheckSuiteStatus :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteStatus -> m HookCheckSuiteStatus
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckSuiteStatus -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckSuiteStatus -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckSuiteStatus -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookCheckSuiteStatus -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteStatus -> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckSuiteStatus -> HookCheckSuiteStatus
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteStatus)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteStatus)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteStatus)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteStatus)
dataTypeOf :: HookCheckSuiteStatus -> DataType
$cdataTypeOf :: HookCheckSuiteStatus -> DataType
toConstr :: HookCheckSuiteStatus -> Constr
$ctoConstr :: HookCheckSuiteStatus -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteStatus
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteStatus
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteStatus
-> c HookCheckSuiteStatus
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteStatus
-> c HookCheckSuiteStatus
$cp1Data :: Typeable HookCheckSuiteStatus
Data)

instance NFData HookCheckSuiteStatus where rnf :: HookCheckSuiteStatus -> ()
rnf = HookCheckSuiteStatus -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON HookCheckSuiteStatus where
  parseJSON :: Value -> Parser HookCheckSuiteStatus
parseJSON = String
-> (Text -> Parser HookCheckSuiteStatus)
-> Value
-> Parser HookCheckSuiteStatus
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Hook check suite status" ((Text -> Parser HookCheckSuiteStatus)
 -> Value -> Parser HookCheckSuiteStatus)
-> (Text -> Parser HookCheckSuiteStatus)
-> Value
-> Parser HookCheckSuiteStatus
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text
t of
          Text
"requested"          -> HookCheckSuiteStatus -> Parser HookCheckSuiteStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteStatus
HookCheckSuiteStatusRequested
          Text
"queued"             -> HookCheckSuiteStatus -> Parser HookCheckSuiteStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteStatus
HookCheckSuiteStatusQueued
          Text
"in_progress"        -> HookCheckSuiteStatus -> Parser HookCheckSuiteStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteStatus
HookCheckSuiteStatusInProgress
          Text
"completed"          -> HookCheckSuiteStatus -> Parser HookCheckSuiteStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteStatus
HookCheckSuiteStatusCompleted
          Text
_                    -> HookCheckSuiteStatus -> Parser HookCheckSuiteStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Text -> HookCheckSuiteStatus
HookCheckSuiteStatusOther Text
t)

-- | Represents the "conclusion" field in the

-- 'HookCheckSuite' payload.

data HookCheckSuiteConclusion
    -- | Decodes from "success"

    = HookCheckSuiteConclusionSuccess
    -- | Decodes from "failure"

    | HookCheckSuiteConclusionFailure
    -- | Decodes from "neutral"

    | HookCheckSuiteConclusionNeutral
    -- | Decodes from "cancelled"

    | HookCheckSuiteConclusionCancelled
    -- | Decodes from "timed_out"

    | HookCheckSuiteConclusionTimedOut
    -- | Decodes from "action_required"

    | HookCheckSuiteConclusionActionRequired
    -- | Decodes from "stale"

    | HookCheckSuiteConclusionStale
    -- | The result of decoding an unknown check suite conclusion type

    | HookCheckSuiteConclusionOther !Text
    deriving (HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
(HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool)
-> (HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool)
-> Eq HookCheckSuiteConclusion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
$c/= :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
== :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
$c== :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
Eq, Eq HookCheckSuiteConclusion
Eq HookCheckSuiteConclusion
-> (HookCheckSuiteConclusion
    -> HookCheckSuiteConclusion -> Ordering)
-> (HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool)
-> (HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool)
-> (HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool)
-> (HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool)
-> (HookCheckSuiteConclusion
    -> HookCheckSuiteConclusion -> HookCheckSuiteConclusion)
-> (HookCheckSuiteConclusion
    -> HookCheckSuiteConclusion -> HookCheckSuiteConclusion)
-> Ord HookCheckSuiteConclusion
HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Ordering
HookCheckSuiteConclusion
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HookCheckSuiteConclusion
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
$cmin :: HookCheckSuiteConclusion
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
max :: HookCheckSuiteConclusion
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
$cmax :: HookCheckSuiteConclusion
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
>= :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
$c>= :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
> :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
$c> :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
<= :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
$c<= :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
< :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
$c< :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Bool
compare :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Ordering
$ccompare :: HookCheckSuiteConclusion -> HookCheckSuiteConclusion -> Ordering
$cp1Ord :: Eq HookCheckSuiteConclusion
Ord, Int -> HookCheckSuiteConclusion -> ShowS
[HookCheckSuiteConclusion] -> ShowS
HookCheckSuiteConclusion -> String
(Int -> HookCheckSuiteConclusion -> ShowS)
-> (HookCheckSuiteConclusion -> String)
-> ([HookCheckSuiteConclusion] -> ShowS)
-> Show HookCheckSuiteConclusion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckSuiteConclusion] -> ShowS
$cshowList :: [HookCheckSuiteConclusion] -> ShowS
show :: HookCheckSuiteConclusion -> String
$cshow :: HookCheckSuiteConclusion -> String
showsPrec :: Int -> HookCheckSuiteConclusion -> ShowS
$cshowsPrec :: Int -> HookCheckSuiteConclusion -> ShowS
Show, (forall x.
 HookCheckSuiteConclusion -> Rep HookCheckSuiteConclusion x)
-> (forall x.
    Rep HookCheckSuiteConclusion x -> HookCheckSuiteConclusion)
-> Generic HookCheckSuiteConclusion
forall x.
Rep HookCheckSuiteConclusion x -> HookCheckSuiteConclusion
forall x.
HookCheckSuiteConclusion -> Rep HookCheckSuiteConclusion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookCheckSuiteConclusion x -> HookCheckSuiteConclusion
$cfrom :: forall x.
HookCheckSuiteConclusion -> Rep HookCheckSuiteConclusion x
Generic, Typeable, Typeable HookCheckSuiteConclusion
DataType
Constr
Typeable HookCheckSuiteConclusion
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckSuiteConclusion
    -> c HookCheckSuiteConclusion)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckSuiteConclusion)
-> (HookCheckSuiteConclusion -> Constr)
-> (HookCheckSuiteConclusion -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookCheckSuiteConclusion))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckSuiteConclusion))
-> ((forall b. Data b => b -> b)
    -> HookCheckSuiteConclusion -> HookCheckSuiteConclusion)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookCheckSuiteConclusion
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookCheckSuiteConclusion
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion)
-> Data HookCheckSuiteConclusion
HookCheckSuiteConclusion -> DataType
HookCheckSuiteConclusion -> Constr
(forall b. Data b => b -> b)
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteConclusion
-> c HookCheckSuiteConclusion
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteConclusion
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> u
forall u.
(forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckSuiteConclusion
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckSuiteConclusion
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteConclusion
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteConclusion
-> c HookCheckSuiteConclusion
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteConclusion)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteConclusion)
$cHookCheckSuiteConclusionOther :: Constr
$cHookCheckSuiteConclusionStale :: Constr
$cHookCheckSuiteConclusionActionRequired :: Constr
$cHookCheckSuiteConclusionTimedOut :: Constr
$cHookCheckSuiteConclusionCancelled :: Constr
$cHookCheckSuiteConclusionNeutral :: Constr
$cHookCheckSuiteConclusionFailure :: Constr
$cHookCheckSuiteConclusionSuccess :: Constr
$tHookCheckSuiteConclusion :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteConclusion -> m HookCheckSuiteConclusion
gmapQi :: Int
-> (forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookCheckSuiteConclusion -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckSuiteConclusion
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckSuiteConclusion
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckSuiteConclusion
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckSuiteConclusion
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckSuiteConclusion -> HookCheckSuiteConclusion
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteConclusion)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteConclusion)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteConclusion)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteConclusion)
dataTypeOf :: HookCheckSuiteConclusion -> DataType
$cdataTypeOf :: HookCheckSuiteConclusion -> DataType
toConstr :: HookCheckSuiteConclusion -> Constr
$ctoConstr :: HookCheckSuiteConclusion -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteConclusion
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteConclusion
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteConclusion
-> c HookCheckSuiteConclusion
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteConclusion
-> c HookCheckSuiteConclusion
$cp1Data :: Typeable HookCheckSuiteConclusion
Data)

instance NFData HookCheckSuiteConclusion where rnf :: HookCheckSuiteConclusion -> ()
rnf = HookCheckSuiteConclusion -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON HookCheckSuiteConclusion where
  parseJSON :: Value -> Parser HookCheckSuiteConclusion
parseJSON = String
-> (Text -> Parser HookCheckSuiteConclusion)
-> Value
-> Parser HookCheckSuiteConclusion
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Hook check suite status" ((Text -> Parser HookCheckSuiteConclusion)
 -> Value -> Parser HookCheckSuiteConclusion)
-> (Text -> Parser HookCheckSuiteConclusion)
-> Value
-> Parser HookCheckSuiteConclusion
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text
t of
          Text
"success"               -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionSuccess
          Text
"failure"               -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionFailure
          Text
"neutral"               -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionNeutral
          Text
"cancelled"             -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionCancelled
          Text
"timed_out"             -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionTimedOut
          Text
"action_required"       -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionActionRequired
          Text
"stale"                 -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckSuiteConclusion
HookCheckSuiteConclusionStale
          Text
_                       -> HookCheckSuiteConclusion -> Parser HookCheckSuiteConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Text -> HookCheckSuiteConclusion
HookCheckSuiteConclusionOther Text
t)

-- FIXME: Missing nested "app", there are examples, but no documentation.

-- | Represents the "check_suite" field in the

-- 'CheckSuiteEvent' payload.

data HookCheckSuite = HookCheckSuite
    { HookCheckSuite -> Int
whCheckSuiteId                   :: !Int
    , HookCheckSuite -> Text
whCheckSuiteNodeId               :: !Text
    , HookCheckSuite -> Maybe Text
whCheckSuiteHeadBranch           :: !(Maybe Text) -- ^ The Checks API only looks for pushes in the repository where the check suite or check run were created. Pushes to a branch in a forked repository are not detected and return an empty pull_requests array and a null value for head_branch.

    , HookCheckSuite -> Text
whCheckSuiteHeadSha              :: !Text
    , HookCheckSuite -> HookCheckSuiteStatus
whCheckSuiteStatus               :: !HookCheckSuiteStatus
    , HookCheckSuite -> Maybe HookCheckSuiteConclusion
whCheckSuiteConclusion           :: !(Maybe HookCheckSuiteConclusion)
    , HookCheckSuite -> URL
whCheckSuiteUrl                  :: !URL
    , HookCheckSuite -> Maybe Text
whCheckSuiteBeforeSha            :: !(Maybe Text)
    , HookCheckSuite -> Maybe Text
whCheckSuiteAfterSha             :: !(Maybe Text)
    , HookCheckSuite -> Vector HookChecksPullRequest
whCheckSuitePullRequests         :: !(Vector HookChecksPullRequest)
    , HookCheckSuite -> UTCTime
whCheckSuiteCreatedAt            :: !UTCTime
    , HookCheckSuite -> UTCTime
whCheckSuiteUpdatedAt            :: !UTCTime
    , HookCheckSuite -> Maybe Int
whCheckSuiteLatestCheckRunsCount :: !(Maybe Int) -- not included in the check run nested payload

    , HookCheckSuite -> Maybe URL
whCheckSuiteCheckRunsUrl         :: !(Maybe URL) -- not included in the check run nested payload

    , HookCheckSuite -> Maybe HookCheckSuiteCommit
whCheckSuiteHeadCommit           :: !(Maybe HookCheckSuiteCommit) -- not included in the check run nested payload

    }
    deriving (HookCheckSuite -> HookCheckSuite -> Bool
(HookCheckSuite -> HookCheckSuite -> Bool)
-> (HookCheckSuite -> HookCheckSuite -> Bool) -> Eq HookCheckSuite
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckSuite -> HookCheckSuite -> Bool
$c/= :: HookCheckSuite -> HookCheckSuite -> Bool
== :: HookCheckSuite -> HookCheckSuite -> Bool
$c== :: HookCheckSuite -> HookCheckSuite -> Bool
Eq, Int -> HookCheckSuite -> ShowS
[HookCheckSuite] -> ShowS
HookCheckSuite -> String
(Int -> HookCheckSuite -> ShowS)
-> (HookCheckSuite -> String)
-> ([HookCheckSuite] -> ShowS)
-> Show HookCheckSuite
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckSuite] -> ShowS
$cshowList :: [HookCheckSuite] -> ShowS
show :: HookCheckSuite -> String
$cshow :: HookCheckSuite -> String
showsPrec :: Int -> HookCheckSuite -> ShowS
$cshowsPrec :: Int -> HookCheckSuite -> ShowS
Show, Typeable, Typeable HookCheckSuite
DataType
Constr
Typeable HookCheckSuite
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookCheckSuite -> c HookCheckSuite)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckSuite)
-> (HookCheckSuite -> Constr)
-> (HookCheckSuite -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuite))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckSuite))
-> ((forall b. Data b => b -> b)
    -> HookCheckSuite -> HookCheckSuite)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckSuite -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckSuite -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuite -> m HookCheckSuite)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuite -> m HookCheckSuite)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuite -> m HookCheckSuite)
-> Data HookCheckSuite
HookCheckSuite -> DataType
HookCheckSuite -> Constr
(forall b. Data b => b -> b) -> HookCheckSuite -> HookCheckSuite
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckSuite -> c HookCheckSuite
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuite
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckSuite -> u
forall u. (forall d. Data d => d -> u) -> HookCheckSuite -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuite
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckSuite -> c HookCheckSuite
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuite)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuite)
$cHookCheckSuite :: Constr
$tHookCheckSuite :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuite -> m HookCheckSuite
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckSuite -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckSuite -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckSuite -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookCheckSuite -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuite -> r
gmapT :: (forall b. Data b => b -> b) -> HookCheckSuite -> HookCheckSuite
$cgmapT :: (forall b. Data b => b -> b) -> HookCheckSuite -> HookCheckSuite
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuite)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuite)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuite)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuite)
dataTypeOf :: HookCheckSuite -> DataType
$cdataTypeOf :: HookCheckSuite -> DataType
toConstr :: HookCheckSuite -> Constr
$ctoConstr :: HookCheckSuite -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuite
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuite
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckSuite -> c HookCheckSuite
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckSuite -> c HookCheckSuite
$cp1Data :: Typeable HookCheckSuite
Data, (forall x. HookCheckSuite -> Rep HookCheckSuite x)
-> (forall x. Rep HookCheckSuite x -> HookCheckSuite)
-> Generic HookCheckSuite
forall x. Rep HookCheckSuite x -> HookCheckSuite
forall x. HookCheckSuite -> Rep HookCheckSuite x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckSuite x -> HookCheckSuite
$cfrom :: forall x. HookCheckSuite -> Rep HookCheckSuite x
Generic)

instance NFData HookCheckSuite where rnf :: HookCheckSuite -> ()
rnf = HookCheckSuite -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "head_commit" field in the

--  'CheckSuiteEvent' payload.

data HookCheckSuiteCommit = HookCheckSuiteCommit
    { HookCheckSuiteCommit -> Text
whCheckSuiteCommitSha               :: !Text          -- ^ Sometimes called the commit 'id'.

    , HookCheckSuiteCommit -> HookSimpleUser
whCheckSuiteCommitAuthor            :: !HookSimpleUser
    , HookCheckSuiteCommit -> HookSimpleUser
whCheckSuiteCommitCommitter         :: !HookSimpleUser
    }
    deriving (HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool
(HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool)
-> (HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool)
-> Eq HookCheckSuiteCommit
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool
$c/= :: HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool
== :: HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool
$c== :: HookCheckSuiteCommit -> HookCheckSuiteCommit -> Bool
Eq, Int -> HookCheckSuiteCommit -> ShowS
[HookCheckSuiteCommit] -> ShowS
HookCheckSuiteCommit -> String
(Int -> HookCheckSuiteCommit -> ShowS)
-> (HookCheckSuiteCommit -> String)
-> ([HookCheckSuiteCommit] -> ShowS)
-> Show HookCheckSuiteCommit
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckSuiteCommit] -> ShowS
$cshowList :: [HookCheckSuiteCommit] -> ShowS
show :: HookCheckSuiteCommit -> String
$cshow :: HookCheckSuiteCommit -> String
showsPrec :: Int -> HookCheckSuiteCommit -> ShowS
$cshowsPrec :: Int -> HookCheckSuiteCommit -> ShowS
Show, Typeable, Typeable HookCheckSuiteCommit
DataType
Constr
Typeable HookCheckSuiteCommit
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckSuiteCommit
    -> c HookCheckSuiteCommit)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckSuiteCommit)
-> (HookCheckSuiteCommit -> Constr)
-> (HookCheckSuiteCommit -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteCommit))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckSuiteCommit))
-> ((forall b. Data b => b -> b)
    -> HookCheckSuiteCommit -> HookCheckSuiteCommit)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckSuiteCommit -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckSuiteCommit -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteCommit -> m HookCheckSuiteCommit)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteCommit -> m HookCheckSuiteCommit)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckSuiteCommit -> m HookCheckSuiteCommit)
-> Data HookCheckSuiteCommit
HookCheckSuiteCommit -> DataType
HookCheckSuiteCommit -> Constr
(forall b. Data b => b -> b)
-> HookCheckSuiteCommit -> HookCheckSuiteCommit
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteCommit
-> c HookCheckSuiteCommit
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteCommit
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckSuiteCommit -> u
forall u.
(forall d. Data d => d -> u) -> HookCheckSuiteCommit -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteCommit
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteCommit
-> c HookCheckSuiteCommit
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteCommit)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteCommit)
$cHookCheckSuiteCommit :: Constr
$tHookCheckSuiteCommit :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckSuiteCommit -> m HookCheckSuiteCommit
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckSuiteCommit -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckSuiteCommit -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckSuiteCommit -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookCheckSuiteCommit -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckSuiteCommit -> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckSuiteCommit -> HookCheckSuiteCommit
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckSuiteCommit -> HookCheckSuiteCommit
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteCommit)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckSuiteCommit)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteCommit)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckSuiteCommit)
dataTypeOf :: HookCheckSuiteCommit -> DataType
$cdataTypeOf :: HookCheckSuiteCommit -> DataType
toConstr :: HookCheckSuiteCommit -> Constr
$ctoConstr :: HookCheckSuiteCommit -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteCommit
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckSuiteCommit
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteCommit
-> c HookCheckSuiteCommit
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckSuiteCommit
-> c HookCheckSuiteCommit
$cp1Data :: Typeable HookCheckSuiteCommit
Data, (forall x. HookCheckSuiteCommit -> Rep HookCheckSuiteCommit x)
-> (forall x. Rep HookCheckSuiteCommit x -> HookCheckSuiteCommit)
-> Generic HookCheckSuiteCommit
forall x. Rep HookCheckSuiteCommit x -> HookCheckSuiteCommit
forall x. HookCheckSuiteCommit -> Rep HookCheckSuiteCommit x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckSuiteCommit x -> HookCheckSuiteCommit
$cfrom :: forall x. HookCheckSuiteCommit -> Rep HookCheckSuiteCommit x
Generic)

instance NFData HookCheckSuiteCommit where rnf :: HookCheckSuiteCommit -> ()
rnf = HookCheckSuiteCommit -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "status" field in the

--  'HookCheckRun' payload.

data HookCheckRunStatus
    -- | Decodes from "queued"

    = HookCheckRunStatusQueued
    -- | Decodes from "in_progress"

    | HookCheckRunStatusInProgress
    -- | Decodes from "completed"

    | HookCheckRunStatusCompleted
    -- | The result of decoding an unknown check run status type

    | HookCheckRunStatusOther !Text
    deriving (HookCheckRunStatus -> HookCheckRunStatus -> Bool
(HookCheckRunStatus -> HookCheckRunStatus -> Bool)
-> (HookCheckRunStatus -> HookCheckRunStatus -> Bool)
-> Eq HookCheckRunStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
$c/= :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
== :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
$c== :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
Eq, Eq HookCheckRunStatus
Eq HookCheckRunStatus
-> (HookCheckRunStatus -> HookCheckRunStatus -> Ordering)
-> (HookCheckRunStatus -> HookCheckRunStatus -> Bool)
-> (HookCheckRunStatus -> HookCheckRunStatus -> Bool)
-> (HookCheckRunStatus -> HookCheckRunStatus -> Bool)
-> (HookCheckRunStatus -> HookCheckRunStatus -> Bool)
-> (HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus)
-> (HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus)
-> Ord HookCheckRunStatus
HookCheckRunStatus -> HookCheckRunStatus -> Bool
HookCheckRunStatus -> HookCheckRunStatus -> Ordering
HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus
$cmin :: HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus
max :: HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus
$cmax :: HookCheckRunStatus -> HookCheckRunStatus -> HookCheckRunStatus
>= :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
$c>= :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
> :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
$c> :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
<= :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
$c<= :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
< :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
$c< :: HookCheckRunStatus -> HookCheckRunStatus -> Bool
compare :: HookCheckRunStatus -> HookCheckRunStatus -> Ordering
$ccompare :: HookCheckRunStatus -> HookCheckRunStatus -> Ordering
$cp1Ord :: Eq HookCheckRunStatus
Ord, Int -> HookCheckRunStatus -> ShowS
[HookCheckRunStatus] -> ShowS
HookCheckRunStatus -> String
(Int -> HookCheckRunStatus -> ShowS)
-> (HookCheckRunStatus -> String)
-> ([HookCheckRunStatus] -> ShowS)
-> Show HookCheckRunStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckRunStatus] -> ShowS
$cshowList :: [HookCheckRunStatus] -> ShowS
show :: HookCheckRunStatus -> String
$cshow :: HookCheckRunStatus -> String
showsPrec :: Int -> HookCheckRunStatus -> ShowS
$cshowsPrec :: Int -> HookCheckRunStatus -> ShowS
Show, (forall x. HookCheckRunStatus -> Rep HookCheckRunStatus x)
-> (forall x. Rep HookCheckRunStatus x -> HookCheckRunStatus)
-> Generic HookCheckRunStatus
forall x. Rep HookCheckRunStatus x -> HookCheckRunStatus
forall x. HookCheckRunStatus -> Rep HookCheckRunStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckRunStatus x -> HookCheckRunStatus
$cfrom :: forall x. HookCheckRunStatus -> Rep HookCheckRunStatus x
Generic, Typeable, Typeable HookCheckRunStatus
DataType
Constr
Typeable HookCheckRunStatus
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckRunStatus
    -> c HookCheckRunStatus)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckRunStatus)
-> (HookCheckRunStatus -> Constr)
-> (HookCheckRunStatus -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckRunStatus))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckRunStatus))
-> ((forall b. Data b => b -> b)
    -> HookCheckRunStatus -> HookCheckRunStatus)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckRunStatus -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckRunStatus -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunStatus -> m HookCheckRunStatus)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunStatus -> m HookCheckRunStatus)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunStatus -> m HookCheckRunStatus)
-> Data HookCheckRunStatus
HookCheckRunStatus -> DataType
HookCheckRunStatus -> Constr
(forall b. Data b => b -> b)
-> HookCheckRunStatus -> HookCheckRunStatus
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunStatus
-> c HookCheckRunStatus
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunStatus
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckRunStatus -> u
forall u. (forall d. Data d => d -> u) -> HookCheckRunStatus -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunStatus
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunStatus
-> c HookCheckRunStatus
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRunStatus)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunStatus)
$cHookCheckRunStatusOther :: Constr
$cHookCheckRunStatusCompleted :: Constr
$cHookCheckRunStatusInProgress :: Constr
$cHookCheckRunStatusQueued :: Constr
$tHookCheckRunStatus :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunStatus -> m HookCheckRunStatus
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckRunStatus -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckRunStatus -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckRunStatus -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookCheckRunStatus -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunStatus -> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckRunStatus -> HookCheckRunStatus
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckRunStatus -> HookCheckRunStatus
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunStatus)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunStatus)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckRunStatus)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRunStatus)
dataTypeOf :: HookCheckRunStatus -> DataType
$cdataTypeOf :: HookCheckRunStatus -> DataType
toConstr :: HookCheckRunStatus -> Constr
$ctoConstr :: HookCheckRunStatus -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunStatus
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunStatus
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunStatus
-> c HookCheckRunStatus
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunStatus
-> c HookCheckRunStatus
$cp1Data :: Typeable HookCheckRunStatus
Data)

instance NFData HookCheckRunStatus where rnf :: HookCheckRunStatus -> ()
rnf = HookCheckRunStatus -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON HookCheckRunStatus where
  parseJSON :: Value -> Parser HookCheckRunStatus
parseJSON = String
-> (Text -> Parser HookCheckRunStatus)
-> Value
-> Parser HookCheckRunStatus
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Hook check suite status" ((Text -> Parser HookCheckRunStatus)
 -> Value -> Parser HookCheckRunStatus)
-> (Text -> Parser HookCheckRunStatus)
-> Value
-> Parser HookCheckRunStatus
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text
t of
          Text
"queued"             -> HookCheckRunStatus -> Parser HookCheckRunStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunStatus
HookCheckRunStatusQueued
          Text
"in_progress"        -> HookCheckRunStatus -> Parser HookCheckRunStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunStatus
HookCheckRunStatusInProgress
          Text
"completed"          -> HookCheckRunStatus -> Parser HookCheckRunStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunStatus
HookCheckRunStatusCompleted
          Text
_                    -> HookCheckRunStatus -> Parser HookCheckRunStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Text -> HookCheckRunStatus
HookCheckRunStatusOther Text
t)

-- | Represents the "conclusion" field in the

--  'HookCheckRun' payload.

data HookCheckRunConclusion
    -- | Decodes from "success"

    = HookCheckRunConclusionSuccess
    -- | Decodes from "failure"

    | HookCheckRunConclusionFailure
    -- | Decodes from "neutral"

    | HookCheckRunConclusionNeutral
    -- | Decodes from "cancelled"

    | HookCheckRunConclusionCancelled
    -- | Decodes from "timed_out"

    | HookCheckRunConclusionTimedOut
    -- | Decodes from "action_required"

    | HookCheckRunConclusionActionRequired
    -- | Decodes from "stale"

    | HookCheckRunConclusionStale
    -- | The result of decoding an unknown check run conclusion type

    | HookCheckRunConclusionOther !Text
    deriving (HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
(HookCheckRunConclusion -> HookCheckRunConclusion -> Bool)
-> (HookCheckRunConclusion -> HookCheckRunConclusion -> Bool)
-> Eq HookCheckRunConclusion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
$c/= :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
== :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
$c== :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
Eq, Eq HookCheckRunConclusion
Eq HookCheckRunConclusion
-> (HookCheckRunConclusion -> HookCheckRunConclusion -> Ordering)
-> (HookCheckRunConclusion -> HookCheckRunConclusion -> Bool)
-> (HookCheckRunConclusion -> HookCheckRunConclusion -> Bool)
-> (HookCheckRunConclusion -> HookCheckRunConclusion -> Bool)
-> (HookCheckRunConclusion -> HookCheckRunConclusion -> Bool)
-> (HookCheckRunConclusion
    -> HookCheckRunConclusion -> HookCheckRunConclusion)
-> (HookCheckRunConclusion
    -> HookCheckRunConclusion -> HookCheckRunConclusion)
-> Ord HookCheckRunConclusion
HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
HookCheckRunConclusion -> HookCheckRunConclusion -> Ordering
HookCheckRunConclusion
-> HookCheckRunConclusion -> HookCheckRunConclusion
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HookCheckRunConclusion
-> HookCheckRunConclusion -> HookCheckRunConclusion
$cmin :: HookCheckRunConclusion
-> HookCheckRunConclusion -> HookCheckRunConclusion
max :: HookCheckRunConclusion
-> HookCheckRunConclusion -> HookCheckRunConclusion
$cmax :: HookCheckRunConclusion
-> HookCheckRunConclusion -> HookCheckRunConclusion
>= :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
$c>= :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
> :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
$c> :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
<= :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
$c<= :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
< :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
$c< :: HookCheckRunConclusion -> HookCheckRunConclusion -> Bool
compare :: HookCheckRunConclusion -> HookCheckRunConclusion -> Ordering
$ccompare :: HookCheckRunConclusion -> HookCheckRunConclusion -> Ordering
$cp1Ord :: Eq HookCheckRunConclusion
Ord, Int -> HookCheckRunConclusion -> ShowS
[HookCheckRunConclusion] -> ShowS
HookCheckRunConclusion -> String
(Int -> HookCheckRunConclusion -> ShowS)
-> (HookCheckRunConclusion -> String)
-> ([HookCheckRunConclusion] -> ShowS)
-> Show HookCheckRunConclusion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckRunConclusion] -> ShowS
$cshowList :: [HookCheckRunConclusion] -> ShowS
show :: HookCheckRunConclusion -> String
$cshow :: HookCheckRunConclusion -> String
showsPrec :: Int -> HookCheckRunConclusion -> ShowS
$cshowsPrec :: Int -> HookCheckRunConclusion -> ShowS
Show, (forall x. HookCheckRunConclusion -> Rep HookCheckRunConclusion x)
-> (forall x.
    Rep HookCheckRunConclusion x -> HookCheckRunConclusion)
-> Generic HookCheckRunConclusion
forall x. Rep HookCheckRunConclusion x -> HookCheckRunConclusion
forall x. HookCheckRunConclusion -> Rep HookCheckRunConclusion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckRunConclusion x -> HookCheckRunConclusion
$cfrom :: forall x. HookCheckRunConclusion -> Rep HookCheckRunConclusion x
Generic, Typeable, Typeable HookCheckRunConclusion
DataType
Constr
Typeable HookCheckRunConclusion
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckRunConclusion
    -> c HookCheckRunConclusion)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckRunConclusion)
-> (HookCheckRunConclusion -> Constr)
-> (HookCheckRunConclusion -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckRunConclusion))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckRunConclusion))
-> ((forall b. Data b => b -> b)
    -> HookCheckRunConclusion -> HookCheckRunConclusion)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookCheckRunConclusion
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookCheckRunConclusion
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckRunConclusion -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckRunConclusion -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunConclusion -> m HookCheckRunConclusion)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunConclusion -> m HookCheckRunConclusion)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunConclusion -> m HookCheckRunConclusion)
-> Data HookCheckRunConclusion
HookCheckRunConclusion -> DataType
HookCheckRunConclusion -> Constr
(forall b. Data b => b -> b)
-> HookCheckRunConclusion -> HookCheckRunConclusion
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunConclusion
-> c HookCheckRunConclusion
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunConclusion
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckRunConclusion -> u
forall u.
(forall d. Data d => d -> u) -> HookCheckRunConclusion -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunConclusion
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunConclusion
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunConclusion
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunConclusion
-> c HookCheckRunConclusion
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRunConclusion)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunConclusion)
$cHookCheckRunConclusionOther :: Constr
$cHookCheckRunConclusionStale :: Constr
$cHookCheckRunConclusionActionRequired :: Constr
$cHookCheckRunConclusionTimedOut :: Constr
$cHookCheckRunConclusionCancelled :: Constr
$cHookCheckRunConclusionNeutral :: Constr
$cHookCheckRunConclusionFailure :: Constr
$cHookCheckRunConclusionSuccess :: Constr
$tHookCheckRunConclusion :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunConclusion -> m HookCheckRunConclusion
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckRunConclusion -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckRunConclusion -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckRunConclusion -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookCheckRunConclusion -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunConclusion
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunConclusion
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunConclusion
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunConclusion
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckRunConclusion -> HookCheckRunConclusion
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckRunConclusion -> HookCheckRunConclusion
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunConclusion)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunConclusion)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckRunConclusion)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRunConclusion)
dataTypeOf :: HookCheckRunConclusion -> DataType
$cdataTypeOf :: HookCheckRunConclusion -> DataType
toConstr :: HookCheckRunConclusion -> Constr
$ctoConstr :: HookCheckRunConclusion -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunConclusion
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunConclusion
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunConclusion
-> c HookCheckRunConclusion
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunConclusion
-> c HookCheckRunConclusion
$cp1Data :: Typeable HookCheckRunConclusion
Data)

instance NFData HookCheckRunConclusion where rnf :: HookCheckRunConclusion -> ()
rnf = HookCheckRunConclusion -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

instance FromJSON HookCheckRunConclusion where
  parseJSON :: Value -> Parser HookCheckRunConclusion
parseJSON = String
-> (Text -> Parser HookCheckRunConclusion)
-> Value
-> Parser HookCheckRunConclusion
forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"Hook check suite status" ((Text -> Parser HookCheckRunConclusion)
 -> Value -> Parser HookCheckRunConclusion)
-> (Text -> Parser HookCheckRunConclusion)
-> Value
-> Parser HookCheckRunConclusion
forall a b. (a -> b) -> a -> b
$ \Text
t ->
      case Text
t of
          Text
"success"               -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionSuccess
          Text
"failure"               -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionFailure
          Text
"neutral"               -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionNeutral
          Text
"cancelled"             -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionCancelled
          Text
"timed_out"             -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionTimedOut
          Text
"action_required"       -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionActionRequired
          Text
"stale"                 -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure HookCheckRunConclusion
HookCheckRunConclusionStale
          Text
_                       -> HookCheckRunConclusion -> Parser HookCheckRunConclusion
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Text -> HookCheckRunConclusion
HookCheckRunConclusionOther Text
t)

-- FIXME: Missing nested "app", there are examples, but no documentation.

-- | Represents the "check_run" field in the

--  'CheckRunEvent' payload.

data HookCheckRun = HookCheckRun
    { HookCheckRun -> Int
whCheckRunId                   :: !Int
    , HookCheckRun -> Text
whCheckRunNodeId               :: !Text
    , HookCheckRun -> Text
whCheckRunHeadSha              :: !Text
    , HookCheckRun -> Text
whCheckRunExternalId           :: !Text
    , HookCheckRun -> URL
whCheckRunUrl                  :: !URL
    , HookCheckRun -> URL
whCheckRunHtmlUrl              :: !URL
    , HookCheckRun -> URL
whCheckRunDetailsUrl           :: !URL
    , HookCheckRun -> HookCheckRunStatus
whCheckRunStatus               :: !HookCheckRunStatus
    , HookCheckRun -> Maybe HookCheckRunConclusion
whCheckRunConclusion           :: !(Maybe HookCheckRunConclusion)
    , HookCheckRun -> UTCTime
whCheckRunStartedAt            :: !UTCTime
    , HookCheckRun -> Maybe UTCTime
whCheckRunCompletedAt          :: !(Maybe UTCTime)
    , HookCheckRun -> HookCheckRunOutput
whCheckRunOutput               :: !HookCheckRunOutput
    , HookCheckRun -> Text
whCheckRunName                 :: !Text
    , HookCheckRun -> HookCheckSuite
whCheckRunCheckSuite           :: !HookCheckSuite
    , HookCheckRun -> Vector HookChecksPullRequest
whCheckRunPullRequests         :: !(Vector HookChecksPullRequest)
    }
    deriving (HookCheckRun -> HookCheckRun -> Bool
(HookCheckRun -> HookCheckRun -> Bool)
-> (HookCheckRun -> HookCheckRun -> Bool) -> Eq HookCheckRun
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckRun -> HookCheckRun -> Bool
$c/= :: HookCheckRun -> HookCheckRun -> Bool
== :: HookCheckRun -> HookCheckRun -> Bool
$c== :: HookCheckRun -> HookCheckRun -> Bool
Eq, Int -> HookCheckRun -> ShowS
[HookCheckRun] -> ShowS
HookCheckRun -> String
(Int -> HookCheckRun -> ShowS)
-> (HookCheckRun -> String)
-> ([HookCheckRun] -> ShowS)
-> Show HookCheckRun
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckRun] -> ShowS
$cshowList :: [HookCheckRun] -> ShowS
show :: HookCheckRun -> String
$cshow :: HookCheckRun -> String
showsPrec :: Int -> HookCheckRun -> ShowS
$cshowsPrec :: Int -> HookCheckRun -> ShowS
Show, Typeable, Typeable HookCheckRun
DataType
Constr
Typeable HookCheckRun
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookCheckRun -> c HookCheckRun)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckRun)
-> (HookCheckRun -> Constr)
-> (HookCheckRun -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckRun))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckRun))
-> ((forall b. Data b => b -> b) -> HookCheckRun -> HookCheckRun)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookCheckRun -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckRun -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun)
-> Data HookCheckRun
HookCheckRun -> DataType
HookCheckRun -> Constr
(forall b. Data b => b -> b) -> HookCheckRun -> HookCheckRun
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckRun -> c HookCheckRun
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRun
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookCheckRun -> u
forall u. (forall d. Data d => d -> u) -> HookCheckRun -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRun
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckRun -> c HookCheckRun
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRun)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRun)
$cHookCheckRun :: Constr
$tHookCheckRun :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
gmapMp :: (forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
gmapM :: (forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookCheckRun -> m HookCheckRun
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckRun -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookCheckRun -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckRun -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookCheckRun -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRun -> r
gmapT :: (forall b. Data b => b -> b) -> HookCheckRun -> HookCheckRun
$cgmapT :: (forall b. Data b => b -> b) -> HookCheckRun -> HookCheckRun
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRun)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRun)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckRun)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRun)
dataTypeOf :: HookCheckRun -> DataType
$cdataTypeOf :: HookCheckRun -> DataType
toConstr :: HookCheckRun -> Constr
$ctoConstr :: HookCheckRun -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRun
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRun
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckRun -> c HookCheckRun
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCheckRun -> c HookCheckRun
$cp1Data :: Typeable HookCheckRun
Data, (forall x. HookCheckRun -> Rep HookCheckRun x)
-> (forall x. Rep HookCheckRun x -> HookCheckRun)
-> Generic HookCheckRun
forall x. Rep HookCheckRun x -> HookCheckRun
forall x. HookCheckRun -> Rep HookCheckRun x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckRun x -> HookCheckRun
$cfrom :: forall x. HookCheckRun -> Rep HookCheckRun x
Generic)

instance NFData HookCheckRun where rnf :: HookCheckRun -> ()
rnf = HookCheckRun -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "output" field in the

--  'HookCheckRun' payload.

data HookCheckRunOutput = HookCheckRunOutput
    { HookCheckRunOutput -> Maybe Text
whCheckRunOutputTitle            :: !(Maybe Text)
    , HookCheckRunOutput -> Maybe Text
whCheckRunOutputSummary          :: !(Maybe Text)
    , HookCheckRunOutput -> Maybe Text
whCheckRunOutputText             :: !(Maybe Text)
    , HookCheckRunOutput -> Int
whCheckRunOutputAnnotationsCount :: !Int
    , HookCheckRunOutput -> URL
whCheckRunOutputAnnotationsUrl   :: !URL
    }
    deriving (HookCheckRunOutput -> HookCheckRunOutput -> Bool
(HookCheckRunOutput -> HookCheckRunOutput -> Bool)
-> (HookCheckRunOutput -> HookCheckRunOutput -> Bool)
-> Eq HookCheckRunOutput
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckRunOutput -> HookCheckRunOutput -> Bool
$c/= :: HookCheckRunOutput -> HookCheckRunOutput -> Bool
== :: HookCheckRunOutput -> HookCheckRunOutput -> Bool
$c== :: HookCheckRunOutput -> HookCheckRunOutput -> Bool
Eq, Int -> HookCheckRunOutput -> ShowS
[HookCheckRunOutput] -> ShowS
HookCheckRunOutput -> String
(Int -> HookCheckRunOutput -> ShowS)
-> (HookCheckRunOutput -> String)
-> ([HookCheckRunOutput] -> ShowS)
-> Show HookCheckRunOutput
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckRunOutput] -> ShowS
$cshowList :: [HookCheckRunOutput] -> ShowS
show :: HookCheckRunOutput -> String
$cshow :: HookCheckRunOutput -> String
showsPrec :: Int -> HookCheckRunOutput -> ShowS
$cshowsPrec :: Int -> HookCheckRunOutput -> ShowS
Show, Typeable, Typeable HookCheckRunOutput
DataType
Constr
Typeable HookCheckRunOutput
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckRunOutput
    -> c HookCheckRunOutput)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckRunOutput)
-> (HookCheckRunOutput -> Constr)
-> (HookCheckRunOutput -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCheckRunOutput))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckRunOutput))
-> ((forall b. Data b => b -> b)
    -> HookCheckRunOutput -> HookCheckRunOutput)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckRunOutput -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCheckRunOutput -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunOutput -> m HookCheckRunOutput)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunOutput -> m HookCheckRunOutput)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunOutput -> m HookCheckRunOutput)
-> Data HookCheckRunOutput
HookCheckRunOutput -> DataType
HookCheckRunOutput -> Constr
(forall b. Data b => b -> b)
-> HookCheckRunOutput -> HookCheckRunOutput
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunOutput
-> c HookCheckRunOutput
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunOutput
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckRunOutput -> u
forall u. (forall d. Data d => d -> u) -> HookCheckRunOutput -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunOutput
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunOutput
-> c HookCheckRunOutput
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRunOutput)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunOutput)
$cHookCheckRunOutput :: Constr
$tHookCheckRunOutput :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunOutput -> m HookCheckRunOutput
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCheckRunOutput -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCheckRunOutput -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckRunOutput -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookCheckRunOutput -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCheckRunOutput -> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckRunOutput -> HookCheckRunOutput
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckRunOutput -> HookCheckRunOutput
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunOutput)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunOutput)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCheckRunOutput)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCheckRunOutput)
dataTypeOf :: HookCheckRunOutput -> DataType
$cdataTypeOf :: HookCheckRunOutput -> DataType
toConstr :: HookCheckRunOutput -> Constr
$ctoConstr :: HookCheckRunOutput -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunOutput
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunOutput
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunOutput
-> c HookCheckRunOutput
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunOutput
-> c HookCheckRunOutput
$cp1Data :: Typeable HookCheckRunOutput
Data, (forall x. HookCheckRunOutput -> Rep HookCheckRunOutput x)
-> (forall x. Rep HookCheckRunOutput x -> HookCheckRunOutput)
-> Generic HookCheckRunOutput
forall x. Rep HookCheckRunOutput x -> HookCheckRunOutput
forall x. HookCheckRunOutput -> Rep HookCheckRunOutput x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCheckRunOutput x -> HookCheckRunOutput
$cfrom :: forall x. HookCheckRunOutput -> Rep HookCheckRunOutput x
Generic)

instance NFData HookCheckRunOutput where rnf :: HookCheckRunOutput -> ()
rnf = HookCheckRunOutput -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "requested_action" field in the

--  'CheckRunEvent' payload.

newtype HookCheckRunRequestedAction = HookCheckRunRequestedAction
    { HookCheckRunRequestedAction -> Text
whCheckRunRequestedActionIdentifier       :: Text
    }
    deriving (HookCheckRunRequestedAction -> HookCheckRunRequestedAction -> Bool
(HookCheckRunRequestedAction
 -> HookCheckRunRequestedAction -> Bool)
-> (HookCheckRunRequestedAction
    -> HookCheckRunRequestedAction -> Bool)
-> Eq HookCheckRunRequestedAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCheckRunRequestedAction -> HookCheckRunRequestedAction -> Bool
$c/= :: HookCheckRunRequestedAction -> HookCheckRunRequestedAction -> Bool
== :: HookCheckRunRequestedAction -> HookCheckRunRequestedAction -> Bool
$c== :: HookCheckRunRequestedAction -> HookCheckRunRequestedAction -> Bool
Eq, Int -> HookCheckRunRequestedAction -> ShowS
[HookCheckRunRequestedAction] -> ShowS
HookCheckRunRequestedAction -> String
(Int -> HookCheckRunRequestedAction -> ShowS)
-> (HookCheckRunRequestedAction -> String)
-> ([HookCheckRunRequestedAction] -> ShowS)
-> Show HookCheckRunRequestedAction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCheckRunRequestedAction] -> ShowS
$cshowList :: [HookCheckRunRequestedAction] -> ShowS
show :: HookCheckRunRequestedAction -> String
$cshow :: HookCheckRunRequestedAction -> String
showsPrec :: Int -> HookCheckRunRequestedAction -> ShowS
$cshowsPrec :: Int -> HookCheckRunRequestedAction -> ShowS
Show, Typeable, Typeable HookCheckRunRequestedAction
DataType
Constr
Typeable HookCheckRunRequestedAction
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCheckRunRequestedAction
    -> c HookCheckRunRequestedAction)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCheckRunRequestedAction)
-> (HookCheckRunRequestedAction -> Constr)
-> (HookCheckRunRequestedAction -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookCheckRunRequestedAction))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCheckRunRequestedAction))
-> ((forall b. Data b => b -> b)
    -> HookCheckRunRequestedAction -> HookCheckRunRequestedAction)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookCheckRunRequestedAction
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookCheckRunRequestedAction
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> HookCheckRunRequestedAction
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction)
-> Data HookCheckRunRequestedAction
HookCheckRunRequestedAction -> DataType
HookCheckRunRequestedAction -> Constr
(forall b. Data b => b -> b)
-> HookCheckRunRequestedAction -> HookCheckRunRequestedAction
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunRequestedAction
-> c HookCheckRunRequestedAction
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunRequestedAction
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> u
forall u.
(forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunRequestedAction
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunRequestedAction
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunRequestedAction
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunRequestedAction
-> c HookCheckRunRequestedAction
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookCheckRunRequestedAction)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunRequestedAction)
$cHookCheckRunRequestedAction :: Constr
$tHookCheckRunRequestedAction :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
gmapMp :: (forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
gmapM :: (forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCheckRunRequestedAction -> m HookCheckRunRequestedAction
gmapQi :: Int
-> (forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookCheckRunRequestedAction -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunRequestedAction
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunRequestedAction
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunRequestedAction
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookCheckRunRequestedAction
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookCheckRunRequestedAction -> HookCheckRunRequestedAction
$cgmapT :: (forall b. Data b => b -> b)
-> HookCheckRunRequestedAction -> HookCheckRunRequestedAction
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunRequestedAction)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCheckRunRequestedAction)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookCheckRunRequestedAction)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookCheckRunRequestedAction)
dataTypeOf :: HookCheckRunRequestedAction -> DataType
$cdataTypeOf :: HookCheckRunRequestedAction -> DataType
toConstr :: HookCheckRunRequestedAction -> Constr
$ctoConstr :: HookCheckRunRequestedAction -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunRequestedAction
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCheckRunRequestedAction
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunRequestedAction
-> c HookCheckRunRequestedAction
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookCheckRunRequestedAction
-> c HookCheckRunRequestedAction
$cp1Data :: Typeable HookCheckRunRequestedAction
Data, (forall x.
 HookCheckRunRequestedAction -> Rep HookCheckRunRequestedAction x)
-> (forall x.
    Rep HookCheckRunRequestedAction x -> HookCheckRunRequestedAction)
-> Generic HookCheckRunRequestedAction
forall x.
Rep HookCheckRunRequestedAction x -> HookCheckRunRequestedAction
forall x.
HookCheckRunRequestedAction -> Rep HookCheckRunRequestedAction x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookCheckRunRequestedAction x -> HookCheckRunRequestedAction
$cfrom :: forall x.
HookCheckRunRequestedAction -> Rep HookCheckRunRequestedAction x
Generic)

instance NFData HookCheckRunRequestedAction where rnf :: HookCheckRunRequestedAction -> ()
rnf = HookCheckRunRequestedAction -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "installation" field in the checks payloads.

data HookChecksInstallation = HookChecksInstallation
    { HookChecksInstallation -> Int
whChecksInstallationId     :: Int
    , HookChecksInstallation -> Text
whChecksInstallationNodeId :: Text
    }
    deriving (HookChecksInstallation -> HookChecksInstallation -> Bool
(HookChecksInstallation -> HookChecksInstallation -> Bool)
-> (HookChecksInstallation -> HookChecksInstallation -> Bool)
-> Eq HookChecksInstallation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookChecksInstallation -> HookChecksInstallation -> Bool
$c/= :: HookChecksInstallation -> HookChecksInstallation -> Bool
== :: HookChecksInstallation -> HookChecksInstallation -> Bool
$c== :: HookChecksInstallation -> HookChecksInstallation -> Bool
Eq, Int -> HookChecksInstallation -> ShowS
[HookChecksInstallation] -> ShowS
HookChecksInstallation -> String
(Int -> HookChecksInstallation -> ShowS)
-> (HookChecksInstallation -> String)
-> ([HookChecksInstallation] -> ShowS)
-> Show HookChecksInstallation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookChecksInstallation] -> ShowS
$cshowList :: [HookChecksInstallation] -> ShowS
show :: HookChecksInstallation -> String
$cshow :: HookChecksInstallation -> String
showsPrec :: Int -> HookChecksInstallation -> ShowS
$cshowsPrec :: Int -> HookChecksInstallation -> ShowS
Show, Typeable, Typeable HookChecksInstallation
DataType
Constr
Typeable HookChecksInstallation
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookChecksInstallation
    -> c HookChecksInstallation)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookChecksInstallation)
-> (HookChecksInstallation -> Constr)
-> (HookChecksInstallation -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookChecksInstallation))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookChecksInstallation))
-> ((forall b. Data b => b -> b)
    -> HookChecksInstallation -> HookChecksInstallation)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksInstallation
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksInstallation
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookChecksInstallation -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookChecksInstallation -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookChecksInstallation -> m HookChecksInstallation)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksInstallation -> m HookChecksInstallation)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksInstallation -> m HookChecksInstallation)
-> Data HookChecksInstallation
HookChecksInstallation -> DataType
HookChecksInstallation -> Constr
(forall b. Data b => b -> b)
-> HookChecksInstallation -> HookChecksInstallation
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksInstallation
-> c HookChecksInstallation
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksInstallation
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookChecksInstallation -> u
forall u.
(forall d. Data d => d -> u) -> HookChecksInstallation -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksInstallation
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksInstallation
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksInstallation
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksInstallation
-> c HookChecksInstallation
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookChecksInstallation)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksInstallation)
$cHookChecksInstallation :: Constr
$tHookChecksInstallation :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
gmapMp :: (forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
gmapM :: (forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksInstallation -> m HookChecksInstallation
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookChecksInstallation -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookChecksInstallation -> u
gmapQ :: (forall d. Data d => d -> u) -> HookChecksInstallation -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookChecksInstallation -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksInstallation
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksInstallation
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksInstallation
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksInstallation
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookChecksInstallation -> HookChecksInstallation
$cgmapT :: (forall b. Data b => b -> b)
-> HookChecksInstallation -> HookChecksInstallation
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksInstallation)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksInstallation)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookChecksInstallation)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookChecksInstallation)
dataTypeOf :: HookChecksInstallation -> DataType
$cdataTypeOf :: HookChecksInstallation -> DataType
toConstr :: HookChecksInstallation -> Constr
$ctoConstr :: HookChecksInstallation -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksInstallation
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksInstallation
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksInstallation
-> c HookChecksInstallation
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksInstallation
-> c HookChecksInstallation
$cp1Data :: Typeable HookChecksInstallation
Data, (forall x. HookChecksInstallation -> Rep HookChecksInstallation x)
-> (forall x.
    Rep HookChecksInstallation x -> HookChecksInstallation)
-> Generic HookChecksInstallation
forall x. Rep HookChecksInstallation x -> HookChecksInstallation
forall x. HookChecksInstallation -> Rep HookChecksInstallation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookChecksInstallation x -> HookChecksInstallation
$cfrom :: forall x. HookChecksInstallation -> Rep HookChecksInstallation x
Generic)

instance NFData HookChecksInstallation where rnf :: HookChecksInstallation -> ()
rnf = HookChecksInstallation -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "pull_requests" field in the checks payloads.

data HookChecksPullRequest = HookChecksPullRequest
    { HookChecksPullRequest -> URL
whChecksPullRequestUrl              :: !URL
    , HookChecksPullRequest -> Int
whChecksPullRequestId               :: !Int
    , HookChecksPullRequest -> Int
whChecksPullRequestNumber           :: !Int
    , HookChecksPullRequest -> HookChecksPullRequestTarget
whChecksPullRequestHead             :: !HookChecksPullRequestTarget
    , HookChecksPullRequest -> HookChecksPullRequestTarget
whChecksPullRequestBase             :: !HookChecksPullRequestTarget
    }
    deriving (HookChecksPullRequest -> HookChecksPullRequest -> Bool
(HookChecksPullRequest -> HookChecksPullRequest -> Bool)
-> (HookChecksPullRequest -> HookChecksPullRequest -> Bool)
-> Eq HookChecksPullRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookChecksPullRequest -> HookChecksPullRequest -> Bool
$c/= :: HookChecksPullRequest -> HookChecksPullRequest -> Bool
== :: HookChecksPullRequest -> HookChecksPullRequest -> Bool
$c== :: HookChecksPullRequest -> HookChecksPullRequest -> Bool
Eq, Int -> HookChecksPullRequest -> ShowS
[HookChecksPullRequest] -> ShowS
HookChecksPullRequest -> String
(Int -> HookChecksPullRequest -> ShowS)
-> (HookChecksPullRequest -> String)
-> ([HookChecksPullRequest] -> ShowS)
-> Show HookChecksPullRequest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookChecksPullRequest] -> ShowS
$cshowList :: [HookChecksPullRequest] -> ShowS
show :: HookChecksPullRequest -> String
$cshow :: HookChecksPullRequest -> String
showsPrec :: Int -> HookChecksPullRequest -> ShowS
$cshowsPrec :: Int -> HookChecksPullRequest -> ShowS
Show, Typeable, Typeable HookChecksPullRequest
DataType
Constr
Typeable HookChecksPullRequest
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookChecksPullRequest
    -> c HookChecksPullRequest)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookChecksPullRequest)
-> (HookChecksPullRequest -> Constr)
-> (HookChecksPullRequest -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookChecksPullRequest))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookChecksPullRequest))
-> ((forall b. Data b => b -> b)
    -> HookChecksPullRequest -> HookChecksPullRequest)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksPullRequest
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksPullRequest
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookChecksPullRequest -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookChecksPullRequest -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequest -> m HookChecksPullRequest)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequest -> m HookChecksPullRequest)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequest -> m HookChecksPullRequest)
-> Data HookChecksPullRequest
HookChecksPullRequest -> DataType
HookChecksPullRequest -> Constr
(forall b. Data b => b -> b)
-> HookChecksPullRequest -> HookChecksPullRequest
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequest
-> c HookChecksPullRequest
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequest
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookChecksPullRequest -> u
forall u.
(forall d. Data d => d -> u) -> HookChecksPullRequest -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookChecksPullRequest -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookChecksPullRequest -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequest
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequest
-> c HookChecksPullRequest
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookChecksPullRequest)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequest)
$cHookChecksPullRequest :: Constr
$tHookChecksPullRequest :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
gmapMp :: (forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
gmapM :: (forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequest -> m HookChecksPullRequest
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookChecksPullRequest -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookChecksPullRequest -> u
gmapQ :: (forall d. Data d => d -> u) -> HookChecksPullRequest -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookChecksPullRequest -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookChecksPullRequest -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookChecksPullRequest -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookChecksPullRequest -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookChecksPullRequest -> r
gmapT :: (forall b. Data b => b -> b)
-> HookChecksPullRequest -> HookChecksPullRequest
$cgmapT :: (forall b. Data b => b -> b)
-> HookChecksPullRequest -> HookChecksPullRequest
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequest)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequest)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookChecksPullRequest)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookChecksPullRequest)
dataTypeOf :: HookChecksPullRequest -> DataType
$cdataTypeOf :: HookChecksPullRequest -> DataType
toConstr :: HookChecksPullRequest -> Constr
$ctoConstr :: HookChecksPullRequest -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequest
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequest
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequest
-> c HookChecksPullRequest
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequest
-> c HookChecksPullRequest
$cp1Data :: Typeable HookChecksPullRequest
Data, (forall x. HookChecksPullRequest -> Rep HookChecksPullRequest x)
-> (forall x. Rep HookChecksPullRequest x -> HookChecksPullRequest)
-> Generic HookChecksPullRequest
forall x. Rep HookChecksPullRequest x -> HookChecksPullRequest
forall x. HookChecksPullRequest -> Rep HookChecksPullRequest x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookChecksPullRequest x -> HookChecksPullRequest
$cfrom :: forall x. HookChecksPullRequest -> Rep HookChecksPullRequest x
Generic)

instance NFData HookChecksPullRequest where rnf :: HookChecksPullRequest -> ()
rnf = HookChecksPullRequest -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "repo" field in the checks pull_request payloads.

data HookChecksPullRequestRepository = HookChecksPullRequestRepository
    { HookChecksPullRequestRepository -> Int
whChecksPullRequestRepositoryId                  :: !Int
    , HookChecksPullRequestRepository -> URL
whChecksPullRequestRepositoryUrl                 :: !URL
    , HookChecksPullRequestRepository -> Text
whChecksPullRequestRepositoryName                :: !Text
    }
    deriving (HookChecksPullRequestRepository
-> HookChecksPullRequestRepository -> Bool
(HookChecksPullRequestRepository
 -> HookChecksPullRequestRepository -> Bool)
-> (HookChecksPullRequestRepository
    -> HookChecksPullRequestRepository -> Bool)
-> Eq HookChecksPullRequestRepository
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookChecksPullRequestRepository
-> HookChecksPullRequestRepository -> Bool
$c/= :: HookChecksPullRequestRepository
-> HookChecksPullRequestRepository -> Bool
== :: HookChecksPullRequestRepository
-> HookChecksPullRequestRepository -> Bool
$c== :: HookChecksPullRequestRepository
-> HookChecksPullRequestRepository -> Bool
Eq, Int -> HookChecksPullRequestRepository -> ShowS
[HookChecksPullRequestRepository] -> ShowS
HookChecksPullRequestRepository -> String
(Int -> HookChecksPullRequestRepository -> ShowS)
-> (HookChecksPullRequestRepository -> String)
-> ([HookChecksPullRequestRepository] -> ShowS)
-> Show HookChecksPullRequestRepository
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookChecksPullRequestRepository] -> ShowS
$cshowList :: [HookChecksPullRequestRepository] -> ShowS
show :: HookChecksPullRequestRepository -> String
$cshow :: HookChecksPullRequestRepository -> String
showsPrec :: Int -> HookChecksPullRequestRepository -> ShowS
$cshowsPrec :: Int -> HookChecksPullRequestRepository -> ShowS
Show, Typeable, Typeable HookChecksPullRequestRepository
DataType
Constr
Typeable HookChecksPullRequestRepository
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookChecksPullRequestRepository
    -> c HookChecksPullRequestRepository)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r)
    -> Constr
    -> c HookChecksPullRequestRepository)
-> (HookChecksPullRequestRepository -> Constr)
-> (HookChecksPullRequestRepository -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookChecksPullRequestRepository))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookChecksPullRequestRepository))
-> ((forall b. Data b => b -> b)
    -> HookChecksPullRequestRepository
    -> HookChecksPullRequestRepository)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksPullRequestRepository
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksPullRequestRepository
    -> r)
-> (forall u.
    (forall d. Data d => d -> u)
    -> HookChecksPullRequestRepository -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> HookChecksPullRequestRepository
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequestRepository
    -> m HookChecksPullRequestRepository)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequestRepository
    -> m HookChecksPullRequestRepository)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequestRepository
    -> m HookChecksPullRequestRepository)
-> Data HookChecksPullRequestRepository
HookChecksPullRequestRepository -> DataType
HookChecksPullRequestRepository -> Constr
(forall b. Data b => b -> b)
-> HookChecksPullRequestRepository
-> HookChecksPullRequestRepository
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestRepository
-> c HookChecksPullRequestRepository
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookChecksPullRequestRepository
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u)
-> HookChecksPullRequestRepository
-> u
forall u.
(forall d. Data d => d -> u)
-> HookChecksPullRequestRepository -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestRepository
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestRepository
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookChecksPullRequestRepository
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestRepository
-> c HookChecksPullRequestRepository
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookChecksPullRequestRepository)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequestRepository)
$cHookChecksPullRequestRepository :: Constr
$tHookChecksPullRequestRepository :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
gmapMp :: (forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
gmapM :: (forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestRepository
-> m HookChecksPullRequestRepository
gmapQi :: Int
-> (forall d. Data d => d -> u)
-> HookChecksPullRequestRepository
-> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u)
-> HookChecksPullRequestRepository
-> u
gmapQ :: (forall d. Data d => d -> u)
-> HookChecksPullRequestRepository -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u)
-> HookChecksPullRequestRepository -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestRepository
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestRepository
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestRepository
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestRepository
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookChecksPullRequestRepository
-> HookChecksPullRequestRepository
$cgmapT :: (forall b. Data b => b -> b)
-> HookChecksPullRequestRepository
-> HookChecksPullRequestRepository
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequestRepository)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequestRepository)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookChecksPullRequestRepository)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookChecksPullRequestRepository)
dataTypeOf :: HookChecksPullRequestRepository -> DataType
$cdataTypeOf :: HookChecksPullRequestRepository -> DataType
toConstr :: HookChecksPullRequestRepository -> Constr
$ctoConstr :: HookChecksPullRequestRepository -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookChecksPullRequestRepository
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c HookChecksPullRequestRepository
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestRepository
-> c HookChecksPullRequestRepository
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestRepository
-> c HookChecksPullRequestRepository
$cp1Data :: Typeable HookChecksPullRequestRepository
Data, (forall x.
 HookChecksPullRequestRepository
 -> Rep HookChecksPullRequestRepository x)
-> (forall x.
    Rep HookChecksPullRequestRepository x
    -> HookChecksPullRequestRepository)
-> Generic HookChecksPullRequestRepository
forall x.
Rep HookChecksPullRequestRepository x
-> HookChecksPullRequestRepository
forall x.
HookChecksPullRequestRepository
-> Rep HookChecksPullRequestRepository x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookChecksPullRequestRepository x
-> HookChecksPullRequestRepository
$cfrom :: forall x.
HookChecksPullRequestRepository
-> Rep HookChecksPullRequestRepository x
Generic)

instance NFData HookChecksPullRequestRepository where rnf :: HookChecksPullRequestRepository -> ()
rnf = HookChecksPullRequestRepository -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the repo targets in

--  the checks pull requests repository payloads.

data  HookChecksPullRequestTarget = HookChecksPullRequestTarget
    { HookChecksPullRequestTarget -> Text
whChecksPullRequestTargetSha  :: !Text
    , HookChecksPullRequestTarget -> Text
whChecksPullRequestTargetRef  :: !Text -- ex "somebranch"

    , HookChecksPullRequestTarget -> HookChecksPullRequestRepository
whChecksPullRequestTargetRepo :: !HookChecksPullRequestRepository
    }
    deriving (HookChecksPullRequestTarget -> HookChecksPullRequestTarget -> Bool
(HookChecksPullRequestTarget
 -> HookChecksPullRequestTarget -> Bool)
-> (HookChecksPullRequestTarget
    -> HookChecksPullRequestTarget -> Bool)
-> Eq HookChecksPullRequestTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookChecksPullRequestTarget -> HookChecksPullRequestTarget -> Bool
$c/= :: HookChecksPullRequestTarget -> HookChecksPullRequestTarget -> Bool
== :: HookChecksPullRequestTarget -> HookChecksPullRequestTarget -> Bool
$c== :: HookChecksPullRequestTarget -> HookChecksPullRequestTarget -> Bool
Eq, Int -> HookChecksPullRequestTarget -> ShowS
[HookChecksPullRequestTarget] -> ShowS
HookChecksPullRequestTarget -> String
(Int -> HookChecksPullRequestTarget -> ShowS)
-> (HookChecksPullRequestTarget -> String)
-> ([HookChecksPullRequestTarget] -> ShowS)
-> Show HookChecksPullRequestTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookChecksPullRequestTarget] -> ShowS
$cshowList :: [HookChecksPullRequestTarget] -> ShowS
show :: HookChecksPullRequestTarget -> String
$cshow :: HookChecksPullRequestTarget -> String
showsPrec :: Int -> HookChecksPullRequestTarget -> ShowS
$cshowsPrec :: Int -> HookChecksPullRequestTarget -> ShowS
Show, Typeable, Typeable HookChecksPullRequestTarget
DataType
Constr
Typeable HookChecksPullRequestTarget
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookChecksPullRequestTarget
    -> c HookChecksPullRequestTarget)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookChecksPullRequestTarget)
-> (HookChecksPullRequestTarget -> Constr)
-> (HookChecksPullRequestTarget -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookChecksPullRequestTarget))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookChecksPullRequestTarget))
-> ((forall b. Data b => b -> b)
    -> HookChecksPullRequestTarget -> HookChecksPullRequestTarget)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksPullRequestTarget
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookChecksPullRequestTarget
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> HookChecksPullRequestTarget
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget)
-> Data HookChecksPullRequestTarget
HookChecksPullRequestTarget -> DataType
HookChecksPullRequestTarget -> Constr
(forall b. Data b => b -> b)
-> HookChecksPullRequestTarget -> HookChecksPullRequestTarget
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestTarget
-> c HookChecksPullRequestTarget
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequestTarget
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> u
forall u.
(forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestTarget
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestTarget
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequestTarget
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestTarget
-> c HookChecksPullRequestTarget
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookChecksPullRequestTarget)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequestTarget)
$cHookChecksPullRequestTarget :: Constr
$tHookChecksPullRequestTarget :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
gmapMp :: (forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
gmapM :: (forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookChecksPullRequestTarget -> m HookChecksPullRequestTarget
gmapQi :: Int
-> (forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> u
gmapQ :: (forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookChecksPullRequestTarget -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestTarget
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestTarget
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestTarget
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookChecksPullRequestTarget
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookChecksPullRequestTarget -> HookChecksPullRequestTarget
$cgmapT :: (forall b. Data b => b -> b)
-> HookChecksPullRequestTarget -> HookChecksPullRequestTarget
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequestTarget)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookChecksPullRequestTarget)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookChecksPullRequestTarget)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookChecksPullRequestTarget)
dataTypeOf :: HookChecksPullRequestTarget -> DataType
$cdataTypeOf :: HookChecksPullRequestTarget -> DataType
toConstr :: HookChecksPullRequestTarget -> Constr
$ctoConstr :: HookChecksPullRequestTarget -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequestTarget
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookChecksPullRequestTarget
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestTarget
-> c HookChecksPullRequestTarget
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookChecksPullRequestTarget
-> c HookChecksPullRequestTarget
$cp1Data :: Typeable HookChecksPullRequestTarget
Data, (forall x.
 HookChecksPullRequestTarget -> Rep HookChecksPullRequestTarget x)
-> (forall x.
    Rep HookChecksPullRequestTarget x -> HookChecksPullRequestTarget)
-> Generic HookChecksPullRequestTarget
forall x.
Rep HookChecksPullRequestTarget x -> HookChecksPullRequestTarget
forall x.
HookChecksPullRequestTarget -> Rep HookChecksPullRequestTarget x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookChecksPullRequestTarget x -> HookChecksPullRequestTarget
$cfrom :: forall x.
HookChecksPullRequestTarget -> Rep HookChecksPullRequestTarget x
Generic)

instance NFData HookChecksPullRequestTarget where rnf :: HookChecksPullRequestTarget -> ()
rnf = HookChecksPullRequestTarget -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

--- FIXME: Missing nested metadata that provides commit description

--- FIXME: Missing property "parent" (no examples provided)

data HookCommit = HookCommit
    { HookCommit -> Text
whCommitSha               :: !Text          -- ^ Sometimes called the commit 'id'.

    , HookCommit -> URL
whCommitUrl               :: !URL
    , HookCommit -> Maybe URL
whCommitHtmlUrl           :: !(Maybe URL)   -- ^ Not always sent.

    , HookCommit -> Maybe URL
whCommitCommentsUrl       :: !(Maybe URL)   -- ^ Not always sent.

    , HookCommit -> Either HookSimpleUser HookUser
whCommitAuthor            :: !(Either HookSimpleUser HookUser)
    , HookCommit -> Either HookSimpleUser HookUser
whCommitCommitter         :: !(Either HookSimpleUser HookUser)
    }
    deriving (HookCommit -> HookCommit -> Bool
(HookCommit -> HookCommit -> Bool)
-> (HookCommit -> HookCommit -> Bool) -> Eq HookCommit
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCommit -> HookCommit -> Bool
$c/= :: HookCommit -> HookCommit -> Bool
== :: HookCommit -> HookCommit -> Bool
$c== :: HookCommit -> HookCommit -> Bool
Eq, Int -> HookCommit -> ShowS
[HookCommit] -> ShowS
HookCommit -> String
(Int -> HookCommit -> ShowS)
-> (HookCommit -> String)
-> ([HookCommit] -> ShowS)
-> Show HookCommit
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCommit] -> ShowS
$cshowList :: [HookCommit] -> ShowS
show :: HookCommit -> String
$cshow :: HookCommit -> String
showsPrec :: Int -> HookCommit -> ShowS
$cshowsPrec :: Int -> HookCommit -> ShowS
Show, Typeable, Typeable HookCommit
DataType
Constr
Typeable HookCommit
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookCommit -> c HookCommit)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCommit)
-> (HookCommit -> Constr)
-> (HookCommit -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCommit))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCommit))
-> ((forall b. Data b => b -> b) -> HookCommit -> HookCommit)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCommit -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCommit -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookCommit -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCommit -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookCommit -> m HookCommit)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookCommit -> m HookCommit)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookCommit -> m HookCommit)
-> Data HookCommit
HookCommit -> DataType
HookCommit -> Constr
(forall b. Data b => b -> b) -> HookCommit -> HookCommit
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommit -> c HookCommit
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommit
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookCommit -> u
forall u. (forall d. Data d => d -> u) -> HookCommit -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommit -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommit -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommit
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommit -> c HookCommit
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCommit)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookCommit)
$cHookCommit :: Constr
$tHookCommit :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
gmapMp :: (forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
gmapM :: (forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookCommit -> m HookCommit
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCommit -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookCommit -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCommit -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookCommit -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommit -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommit -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommit -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommit -> r
gmapT :: (forall b. Data b => b -> b) -> HookCommit -> HookCommit
$cgmapT :: (forall b. Data b => b -> b) -> HookCommit -> HookCommit
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookCommit)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c HookCommit)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCommit)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCommit)
dataTypeOf :: HookCommit -> DataType
$cdataTypeOf :: HookCommit -> DataType
toConstr :: HookCommit -> Constr
$ctoConstr :: HookCommit -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommit
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommit
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommit -> c HookCommit
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommit -> c HookCommit
$cp1Data :: Typeable HookCommit
Data, (forall x. HookCommit -> Rep HookCommit x)
-> (forall x. Rep HookCommit x -> HookCommit) -> Generic HookCommit
forall x. Rep HookCommit x -> HookCommit
forall x. HookCommit -> Rep HookCommit x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCommit x -> HookCommit
$cfrom :: forall x. HookCommit -> Rep HookCommit x
Generic)

instance NFData HookCommit where rnf :: HookCommit -> ()
rnf = HookCommit -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- FIXME: Missing property "assets" (no examples provided)

data HookRelease = HookRelease
    { HookRelease -> URL
whReleaseUrl              :: !URL
    , HookRelease -> URL
whReleaseAssetsUrl        :: !URL
    , HookRelease -> URL
whReleaseUploadUrl        :: !URL
    , HookRelease -> URL
whReleaseHtmlUrl          :: !URL
    , HookRelease -> Int
whReleaseId               :: !Int
    , HookRelease -> Text
whReleaseNodeId           :: !Text
    , HookRelease -> Text
whReleaseTagName          :: !Text
    , HookRelease -> Text
whReleaseTargetCommitish  :: !Text
    , HookRelease -> Maybe Text
whReleaseName             :: !(Maybe Text)
    , HookRelease -> Bool
whReleaseIsDraft          :: !Bool
    , HookRelease -> HookUser
whReleaseAuthor           :: !HookUser
    , HookRelease -> Bool
whReleaseIsPreRelease     :: !Bool
    , HookRelease -> UTCTime
whReleaseCreatedAt        :: !UTCTime
    , HookRelease -> Maybe UTCTime
whReleasePublishedAt      :: !(Maybe UTCTime)
    , HookRelease -> URL
whReleaseTarballUrl       :: !URL
    , HookRelease -> URL
whReleaseZipballUrl       :: !URL
    , HookRelease -> Maybe Text
whReleaseBody             :: !(Maybe Text)
    }
    deriving (HookRelease -> HookRelease -> Bool
(HookRelease -> HookRelease -> Bool)
-> (HookRelease -> HookRelease -> Bool) -> Eq HookRelease
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookRelease -> HookRelease -> Bool
$c/= :: HookRelease -> HookRelease -> Bool
== :: HookRelease -> HookRelease -> Bool
$c== :: HookRelease -> HookRelease -> Bool
Eq, Int -> HookRelease -> ShowS
[HookRelease] -> ShowS
HookRelease -> String
(Int -> HookRelease -> ShowS)
-> (HookRelease -> String)
-> ([HookRelease] -> ShowS)
-> Show HookRelease
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookRelease] -> ShowS
$cshowList :: [HookRelease] -> ShowS
show :: HookRelease -> String
$cshow :: HookRelease -> String
showsPrec :: Int -> HookRelease -> ShowS
$cshowsPrec :: Int -> HookRelease -> ShowS
Show, Typeable, Typeable HookRelease
DataType
Constr
Typeable HookRelease
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookRelease -> c HookRelease)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookRelease)
-> (HookRelease -> Constr)
-> (HookRelease -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookRelease))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookRelease))
-> ((forall b. Data b => b -> b) -> HookRelease -> HookRelease)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRelease -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookRelease -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookRelease -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookRelease -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookRelease -> m HookRelease)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookRelease -> m HookRelease)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookRelease -> m HookRelease)
-> Data HookRelease
HookRelease -> DataType
HookRelease -> Constr
(forall b. Data b => b -> b) -> HookRelease -> HookRelease
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRelease -> c HookRelease
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRelease
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookRelease -> u
forall u. (forall d. Data d => d -> u) -> HookRelease -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRelease -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRelease -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRelease
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRelease -> c HookRelease
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRelease)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRelease)
$cHookRelease :: Constr
$tHookRelease :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
gmapMp :: (forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
gmapM :: (forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookRelease -> m HookRelease
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookRelease -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookRelease -> u
gmapQ :: (forall d. Data d => d -> u) -> HookRelease -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookRelease -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRelease -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookRelease -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRelease -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookRelease -> r
gmapT :: (forall b. Data b => b -> b) -> HookRelease -> HookRelease
$cgmapT :: (forall b. Data b => b -> b) -> HookRelease -> HookRelease
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRelease)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookRelease)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookRelease)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookRelease)
dataTypeOf :: HookRelease -> DataType
$cdataTypeOf :: HookRelease -> DataType
toConstr :: HookRelease -> Constr
$ctoConstr :: HookRelease -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRelease
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookRelease
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRelease -> c HookRelease
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookRelease -> c HookRelease
$cp1Data :: Typeable HookRelease
Data, (forall x. HookRelease -> Rep HookRelease x)
-> (forall x. Rep HookRelease x -> HookRelease)
-> Generic HookRelease
forall x. Rep HookRelease x -> HookRelease
forall x. HookRelease -> Rep HookRelease x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookRelease x -> HookRelease
$cfrom :: forall x. HookRelease -> Rep HookRelease x
Generic)

instance NFData HookRelease where rnf :: HookRelease -> ()
rnf = HookRelease -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

data HookPullRequest = HookPullRequest
    { HookPullRequest -> URL
whPullReqUrl              :: !URL
    , HookPullRequest -> Int
whPullReqId               :: !Int
    , HookPullRequest -> Text
whPullReqNodeId           :: !Text
    , HookPullRequest -> URL
whPullReqHtmlUrl          :: !URL
    , HookPullRequest -> URL
whPullReqDiffUrl          :: !URL
    , HookPullRequest -> URL
whPullReqPatchUrl         :: !URL
    , HookPullRequest -> URL
whPullReqIssueUrl         :: !URL
    , HookPullRequest -> Int
whPullReqNumber           :: !Int
    , HookPullRequest -> Text
whPullReqState            :: !Text -- FIXME: Smart constructor?

    , HookPullRequest -> Bool
whPullReqIsLocked         :: !Bool
    , HookPullRequest -> Text
whPullReqTitle            :: !Text
    , HookPullRequest -> HookUser
whPullReqUser             :: !HookUser
    , HookPullRequest -> Text
whPullReqBody             :: !Text
    , HookPullRequest -> UTCTime
whPullReqCreatedAt        :: !UTCTime
    , HookPullRequest -> UTCTime
whPullReqUpdatedAt        :: !UTCTime
    , HookPullRequest -> Maybe UTCTime
whPullReqClosedAt         :: !(Maybe UTCTime)
    , HookPullRequest -> Maybe UTCTime
whPullReqMergedAt         :: !(Maybe UTCTime)
    , HookPullRequest -> Maybe Text
whPullReqMergeCommitSha   :: !(Maybe Text)
    , HookPullRequest -> Maybe HookUser
whPullReqAssignee         :: !(Maybe HookUser)
    , HookPullRequest -> Maybe HookMilestone
whPullReqMilestone        :: !(Maybe HookMilestone)
    , HookPullRequest -> URL
whPullReqCommitsUrl       :: !URL
    , HookPullRequest -> URL
whPullReqRevCommentsUrl   :: !URL
    , HookPullRequest -> URL
whPullReqRevCommentUrl    :: !URL
    , HookPullRequest -> URL
whPullReqCommentsUrl      :: !URL
    , HookPullRequest -> URL
whPullReqStatusesUrl      :: !URL
    , HookPullRequest -> PullRequestTarget
whPullReqBase             :: !PullRequestTarget
    , HookPullRequest -> PullRequestTarget
whPullReqHead             :: !PullRequestTarget
    -- , whPullReqIsMerged         :: !Bool

    -- , whPullReqIsMergeable      :: !Bool

    , HookPullRequest -> Maybe Text
whPullReqMergeableState   :: !(Maybe Text)              -- ^ Not sent with all events.

    -- , whPullReqMergedBy         :: !(Maybe HookUser)

    , HookPullRequest -> Maybe Int
whPullReqCommentCount     :: !(Maybe Int)               -- ^ Not sent with all events.

    , HookPullRequest -> Maybe Int
whPullReqRevCommentCount  :: !(Maybe Int)               -- ^ Not sent with all events.

    , HookPullRequest -> Maybe Int
whPullReqCommitCount      :: !(Maybe Int)               -- ^ Not sent with all events.

    , HookPullRequest -> Maybe Int
whPullReqAdditionsCount   :: !(Maybe Int)               -- ^ Not sent with all events.

    , HookPullRequest -> Maybe Int
whPullReqDeletionsCount   :: !(Maybe Int)               -- ^ Not sent with all events.

    , HookPullRequest -> Maybe Int
whPullReqFileChangeCount  :: !(Maybe Int)               -- ^ Not sent with all events.

    }
    deriving (HookPullRequest -> HookPullRequest -> Bool
(HookPullRequest -> HookPullRequest -> Bool)
-> (HookPullRequest -> HookPullRequest -> Bool)
-> Eq HookPullRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookPullRequest -> HookPullRequest -> Bool
$c/= :: HookPullRequest -> HookPullRequest -> Bool
== :: HookPullRequest -> HookPullRequest -> Bool
$c== :: HookPullRequest -> HookPullRequest -> Bool
Eq, Int -> HookPullRequest -> ShowS
[HookPullRequest] -> ShowS
HookPullRequest -> String
(Int -> HookPullRequest -> ShowS)
-> (HookPullRequest -> String)
-> ([HookPullRequest] -> ShowS)
-> Show HookPullRequest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookPullRequest] -> ShowS
$cshowList :: [HookPullRequest] -> ShowS
show :: HookPullRequest -> String
$cshow :: HookPullRequest -> String
showsPrec :: Int -> HookPullRequest -> ShowS
$cshowsPrec :: Int -> HookPullRequest -> ShowS
Show, Typeable, Typeable HookPullRequest
DataType
Constr
Typeable HookPullRequest
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookPullRequest -> c HookPullRequest)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookPullRequest)
-> (HookPullRequest -> Constr)
-> (HookPullRequest -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookPullRequest))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookPullRequest))
-> ((forall b. Data b => b -> b)
    -> HookPullRequest -> HookPullRequest)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookPullRequest -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookPullRequest -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequest -> m HookPullRequest)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequest -> m HookPullRequest)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequest -> m HookPullRequest)
-> Data HookPullRequest
HookPullRequest -> DataType
HookPullRequest -> Constr
(forall b. Data b => b -> b) -> HookPullRequest -> HookPullRequest
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookPullRequest -> c HookPullRequest
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequest
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookPullRequest -> u
forall u. (forall d. Data d => d -> u) -> HookPullRequest -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequest
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookPullRequest -> c HookPullRequest
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookPullRequest)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequest)
$cHookPullRequest :: Constr
$tHookPullRequest :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
gmapMp :: (forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
gmapM :: (forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPullRequest -> m HookPullRequest
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookPullRequest -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookPullRequest -> u
gmapQ :: (forall d. Data d => d -> u) -> HookPullRequest -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookPullRequest -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequest -> r
gmapT :: (forall b. Data b => b -> b) -> HookPullRequest -> HookPullRequest
$cgmapT :: (forall b. Data b => b -> b) -> HookPullRequest -> HookPullRequest
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequest)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequest)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookPullRequest)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookPullRequest)
dataTypeOf :: HookPullRequest -> DataType
$cdataTypeOf :: HookPullRequest -> DataType
toConstr :: HookPullRequest -> Constr
$ctoConstr :: HookPullRequest -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequest
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequest
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookPullRequest -> c HookPullRequest
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookPullRequest -> c HookPullRequest
$cp1Data :: Typeable HookPullRequest
Data, (forall x. HookPullRequest -> Rep HookPullRequest x)
-> (forall x. Rep HookPullRequest x -> HookPullRequest)
-> Generic HookPullRequest
forall x. Rep HookPullRequest x -> HookPullRequest
forall x. HookPullRequest -> Rep HookPullRequest x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookPullRequest x -> HookPullRequest
$cfrom :: forall x. HookPullRequest -> Rep HookPullRequest x
Generic)

instance NFData HookPullRequest where rnf :: HookPullRequest -> ()
rnf = HookPullRequest -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

data PullRequestTarget = PullRequestTarget
    { PullRequestTarget -> Text
whPullReqTargetSha :: !Text
    , PullRequestTarget -> HookUser
whPullReqTargetUser :: !HookUser
    , PullRequestTarget -> Maybe HookRepository
whPullReqTargetRepo :: !(Maybe HookRepository) -- maybe null, see #47

    , PullRequestTarget -> Text
whPullReqTargetLabel :: !Text -- ex "user:branch"

    , PullRequestTarget -> Text
whPullReqTargetRef :: !Text -- ex "somebranch"

    }
    deriving (PullRequestTarget -> PullRequestTarget -> Bool
(PullRequestTarget -> PullRequestTarget -> Bool)
-> (PullRequestTarget -> PullRequestTarget -> Bool)
-> Eq PullRequestTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PullRequestTarget -> PullRequestTarget -> Bool
$c/= :: PullRequestTarget -> PullRequestTarget -> Bool
== :: PullRequestTarget -> PullRequestTarget -> Bool
$c== :: PullRequestTarget -> PullRequestTarget -> Bool
Eq, Int -> PullRequestTarget -> ShowS
[PullRequestTarget] -> ShowS
PullRequestTarget -> String
(Int -> PullRequestTarget -> ShowS)
-> (PullRequestTarget -> String)
-> ([PullRequestTarget] -> ShowS)
-> Show PullRequestTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PullRequestTarget] -> ShowS
$cshowList :: [PullRequestTarget] -> ShowS
show :: PullRequestTarget -> String
$cshow :: PullRequestTarget -> String
showsPrec :: Int -> PullRequestTarget -> ShowS
$cshowsPrec :: Int -> PullRequestTarget -> ShowS
Show, Typeable, Typeable PullRequestTarget
DataType
Constr
Typeable PullRequestTarget
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> PullRequestTarget
    -> c PullRequestTarget)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c PullRequestTarget)
-> (PullRequestTarget -> Constr)
-> (PullRequestTarget -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c PullRequestTarget))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c PullRequestTarget))
-> ((forall b. Data b => b -> b)
    -> PullRequestTarget -> PullRequestTarget)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> PullRequestTarget -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> PullRequestTarget -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> PullRequestTarget -> m PullRequestTarget)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> PullRequestTarget -> m PullRequestTarget)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> PullRequestTarget -> m PullRequestTarget)
-> Data PullRequestTarget
PullRequestTarget -> DataType
PullRequestTarget -> Constr
(forall b. Data b => b -> b)
-> PullRequestTarget -> PullRequestTarget
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> PullRequestTarget -> c PullRequestTarget
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c PullRequestTarget
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> PullRequestTarget -> u
forall u. (forall d. Data d => d -> u) -> PullRequestTarget -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c PullRequestTarget
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> PullRequestTarget -> c PullRequestTarget
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c PullRequestTarget)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c PullRequestTarget)
$cPullRequestTarget :: Constr
$tPullRequestTarget :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
gmapMp :: (forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
gmapM :: (forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> PullRequestTarget -> m PullRequestTarget
gmapQi :: Int -> (forall d. Data d => d -> u) -> PullRequestTarget -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> PullRequestTarget -> u
gmapQ :: (forall d. Data d => d -> u) -> PullRequestTarget -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> PullRequestTarget -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> PullRequestTarget -> r
gmapT :: (forall b. Data b => b -> b)
-> PullRequestTarget -> PullRequestTarget
$cgmapT :: (forall b. Data b => b -> b)
-> PullRequestTarget -> PullRequestTarget
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c PullRequestTarget)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c PullRequestTarget)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c PullRequestTarget)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c PullRequestTarget)
dataTypeOf :: PullRequestTarget -> DataType
$cdataTypeOf :: PullRequestTarget -> DataType
toConstr :: PullRequestTarget -> Constr
$ctoConstr :: PullRequestTarget -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c PullRequestTarget
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c PullRequestTarget
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> PullRequestTarget -> c PullRequestTarget
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> PullRequestTarget -> c PullRequestTarget
$cp1Data :: Typeable PullRequestTarget
Data, (forall x. PullRequestTarget -> Rep PullRequestTarget x)
-> (forall x. Rep PullRequestTarget x -> PullRequestTarget)
-> Generic PullRequestTarget
forall x. Rep PullRequestTarget x -> PullRequestTarget
forall x. PullRequestTarget -> Rep PullRequestTarget x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PullRequestTarget x -> PullRequestTarget
$cfrom :: forall x. PullRequestTarget -> Rep PullRequestTarget x
Generic)

instance NFData PullRequestTarget where rnf :: PullRequestTarget -> ()
rnf = PullRequestTarget -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "pull_request" field in the 'PullRequestReviewEvent' payload.

data HookPullRequestReview = HookPullRequestReview
    { HookPullRequestReview -> Int
whPullReqReviewId         :: !Int
    , HookPullRequestReview -> Text
whPullReqReviewNodeId     :: !Text
    , HookPullRequestReview -> HookUser
whPullReqReviewUser       :: !HookUser
    , HookPullRequestReview -> Text
whPullReqReviewBody       :: !Text
    , HookPullRequestReview -> UTCTime
whPullReqReviewSubmittedAt :: !UTCTime
    , HookPullRequestReview -> Text
whPullReqReviewState      :: !Text
    , HookPullRequestReview -> URL
whPullReqReviewHtmlUrl    :: !URL
    , HookPullRequestReview -> URL
whPullReqReviewPullUrl    :: !URL
    }
    deriving (HookPullRequestReview -> HookPullRequestReview -> Bool
(HookPullRequestReview -> HookPullRequestReview -> Bool)
-> (HookPullRequestReview -> HookPullRequestReview -> Bool)
-> Eq HookPullRequestReview
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookPullRequestReview -> HookPullRequestReview -> Bool
$c/= :: HookPullRequestReview -> HookPullRequestReview -> Bool
== :: HookPullRequestReview -> HookPullRequestReview -> Bool
$c== :: HookPullRequestReview -> HookPullRequestReview -> Bool
Eq, Int -> HookPullRequestReview -> ShowS
[HookPullRequestReview] -> ShowS
HookPullRequestReview -> String
(Int -> HookPullRequestReview -> ShowS)
-> (HookPullRequestReview -> String)
-> ([HookPullRequestReview] -> ShowS)
-> Show HookPullRequestReview
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookPullRequestReview] -> ShowS
$cshowList :: [HookPullRequestReview] -> ShowS
show :: HookPullRequestReview -> String
$cshow :: HookPullRequestReview -> String
showsPrec :: Int -> HookPullRequestReview -> ShowS
$cshowsPrec :: Int -> HookPullRequestReview -> ShowS
Show, Typeable, Typeable HookPullRequestReview
DataType
Constr
Typeable HookPullRequestReview
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookPullRequestReview
    -> c HookPullRequestReview)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookPullRequestReview)
-> (HookPullRequestReview -> Constr)
-> (HookPullRequestReview -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookPullRequestReview))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookPullRequestReview))
-> ((forall b. Data b => b -> b)
    -> HookPullRequestReview -> HookPullRequestReview)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookPullRequestReview
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookPullRequestReview
    -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookPullRequestReview -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookPullRequestReview -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequestReview -> m HookPullRequestReview)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequestReview -> m HookPullRequestReview)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequestReview -> m HookPullRequestReview)
-> Data HookPullRequestReview
HookPullRequestReview -> DataType
HookPullRequestReview -> Constr
(forall b. Data b => b -> b)
-> HookPullRequestReview -> HookPullRequestReview
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReview
-> c HookPullRequestReview
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReview
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookPullRequestReview -> u
forall u.
(forall d. Data d => d -> u) -> HookPullRequestReview -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequestReview -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequestReview -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReview
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReview
-> c HookPullRequestReview
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookPullRequestReview)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequestReview)
$cHookPullRequestReview :: Constr
$tHookPullRequestReview :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
gmapMp :: (forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
gmapM :: (forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReview -> m HookPullRequestReview
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookPullRequestReview -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookPullRequestReview -> u
gmapQ :: (forall d. Data d => d -> u) -> HookPullRequestReview -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookPullRequestReview -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequestReview -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequestReview -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequestReview -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPullRequestReview -> r
gmapT :: (forall b. Data b => b -> b)
-> HookPullRequestReview -> HookPullRequestReview
$cgmapT :: (forall b. Data b => b -> b)
-> HookPullRequestReview -> HookPullRequestReview
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequestReview)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequestReview)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookPullRequestReview)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookPullRequestReview)
dataTypeOf :: HookPullRequestReview -> DataType
$cdataTypeOf :: HookPullRequestReview -> DataType
toConstr :: HookPullRequestReview -> Constr
$ctoConstr :: HookPullRequestReview -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReview
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReview
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReview
-> c HookPullRequestReview
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReview
-> c HookPullRequestReview
$cp1Data :: Typeable HookPullRequestReview
Data, (forall x. HookPullRequestReview -> Rep HookPullRequestReview x)
-> (forall x. Rep HookPullRequestReview x -> HookPullRequestReview)
-> Generic HookPullRequestReview
forall x. Rep HookPullRequestReview x -> HookPullRequestReview
forall x. HookPullRequestReview -> Rep HookPullRequestReview x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookPullRequestReview x -> HookPullRequestReview
$cfrom :: forall x. HookPullRequestReview -> Rep HookPullRequestReview x
Generic)

instance NFData HookPullRequestReview where rnf :: HookPullRequestReview -> ()
rnf = HookPullRequestReview -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "installation" field in the 'InstallationEvent' payload.

data HookInstallation = HookInstallation
    { HookInstallation -> Int
whInstallationId          :: !Int
    , HookInstallation -> HookUser
whInstallationAccount     :: !HookUser
    , HookInstallation -> Text
whInstallationRepoSel     :: !Text
    , HookInstallation -> URL
whInstallationTokenUrl    :: !URL
    , HookInstallation -> URL
whInstallationRepoUrl     :: !URL
    }
    deriving (HookInstallation -> HookInstallation -> Bool
(HookInstallation -> HookInstallation -> Bool)
-> (HookInstallation -> HookInstallation -> Bool)
-> Eq HookInstallation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookInstallation -> HookInstallation -> Bool
$c/= :: HookInstallation -> HookInstallation -> Bool
== :: HookInstallation -> HookInstallation -> Bool
$c== :: HookInstallation -> HookInstallation -> Bool
Eq, Int -> HookInstallation -> ShowS
[HookInstallation] -> ShowS
HookInstallation -> String
(Int -> HookInstallation -> ShowS)
-> (HookInstallation -> String)
-> ([HookInstallation] -> ShowS)
-> Show HookInstallation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookInstallation] -> ShowS
$cshowList :: [HookInstallation] -> ShowS
show :: HookInstallation -> String
$cshow :: HookInstallation -> String
showsPrec :: Int -> HookInstallation -> ShowS
$cshowsPrec :: Int -> HookInstallation -> ShowS
Show, Typeable, Typeable HookInstallation
DataType
Constr
Typeable HookInstallation
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookInstallation -> c HookInstallation)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookInstallation)
-> (HookInstallation -> Constr)
-> (HookInstallation -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookInstallation))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookInstallation))
-> ((forall b. Data b => b -> b)
    -> HookInstallation -> HookInstallation)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookInstallation -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookInstallation -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookInstallation -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookInstallation -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookInstallation -> m HookInstallation)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookInstallation -> m HookInstallation)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookInstallation -> m HookInstallation)
-> Data HookInstallation
HookInstallation -> DataType
HookInstallation -> Constr
(forall b. Data b => b -> b)
-> HookInstallation -> HookInstallation
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookInstallation -> c HookInstallation
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookInstallation
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookInstallation -> u
forall u. (forall d. Data d => d -> u) -> HookInstallation -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookInstallation -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookInstallation -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookInstallation
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookInstallation -> c HookInstallation
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookInstallation)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookInstallation)
$cHookInstallation :: Constr
$tHookInstallation :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
gmapMp :: (forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
gmapM :: (forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookInstallation -> m HookInstallation
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookInstallation -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookInstallation -> u
gmapQ :: (forall d. Data d => d -> u) -> HookInstallation -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookInstallation -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookInstallation -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookInstallation -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookInstallation -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookInstallation -> r
gmapT :: (forall b. Data b => b -> b)
-> HookInstallation -> HookInstallation
$cgmapT :: (forall b. Data b => b -> b)
-> HookInstallation -> HookInstallation
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookInstallation)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookInstallation)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookInstallation)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookInstallation)
dataTypeOf :: HookInstallation -> DataType
$cdataTypeOf :: HookInstallation -> DataType
toConstr :: HookInstallation -> Constr
$ctoConstr :: HookInstallation -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookInstallation
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookInstallation
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookInstallation -> c HookInstallation
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookInstallation -> c HookInstallation
$cp1Data :: Typeable HookInstallation
Data, (forall x. HookInstallation -> Rep HookInstallation x)
-> (forall x. Rep HookInstallation x -> HookInstallation)
-> Generic HookInstallation
forall x. Rep HookInstallation x -> HookInstallation
forall x. HookInstallation -> Rep HookInstallation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookInstallation x -> HookInstallation
$cfrom :: forall x. HookInstallation -> Rep HookInstallation x
Generic)

instance NFData HookInstallation where rnf :: HookInstallation -> ()
rnf = HookInstallation -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "deployment" field in the

-- 'DeploymentEvent' and 'DeploymentStatusEvent' payload.

data HookDeployment = HookDeployment
    { HookDeployment -> URL
whDeploymentUrl           :: !URL
    , HookDeployment -> Int
whDeploymentId            :: !Int
    , HookDeployment -> Text
whDeploymentNodeId        :: !Text
    , HookDeployment -> Text
whDeploymentSha           :: !Text
    , HookDeployment -> Text
whDeploymentRef           :: !Text
    , HookDeployment -> Text
whDeploymentTask          :: !Text
    -- , whDeploymentPayload

    , HookDeployment -> Text
whDeploymentEnv           :: !Text
    , HookDeployment -> Maybe Text
whDeploymentDescription   :: !(Maybe Text)
    , HookDeployment -> HookUser
whDeploymentCreator       :: !HookUser
    , HookDeployment -> UTCTime
whDeploymentCreatedAt     :: !UTCTime
    , HookDeployment -> UTCTime
whDeploymentUpdatedAt     :: !UTCTime
    , HookDeployment -> URL
whDeploymentStatusesUrl   :: !URL
    , HookDeployment -> URL
whDeploymentRepoUrl       :: !URL
    }
    deriving (HookDeployment -> HookDeployment -> Bool
(HookDeployment -> HookDeployment -> Bool)
-> (HookDeployment -> HookDeployment -> Bool) -> Eq HookDeployment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookDeployment -> HookDeployment -> Bool
$c/= :: HookDeployment -> HookDeployment -> Bool
== :: HookDeployment -> HookDeployment -> Bool
$c== :: HookDeployment -> HookDeployment -> Bool
Eq, Int -> HookDeployment -> ShowS
[HookDeployment] -> ShowS
HookDeployment -> String
(Int -> HookDeployment -> ShowS)
-> (HookDeployment -> String)
-> ([HookDeployment] -> ShowS)
-> Show HookDeployment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookDeployment] -> ShowS
$cshowList :: [HookDeployment] -> ShowS
show :: HookDeployment -> String
$cshow :: HookDeployment -> String
showsPrec :: Int -> HookDeployment -> ShowS
$cshowsPrec :: Int -> HookDeployment -> ShowS
Show, Typeable, Typeable HookDeployment
DataType
Constr
Typeable HookDeployment
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookDeployment -> c HookDeployment)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookDeployment)
-> (HookDeployment -> Constr)
-> (HookDeployment -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookDeployment))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookDeployment))
-> ((forall b. Data b => b -> b)
    -> HookDeployment -> HookDeployment)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookDeployment -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookDeployment -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookDeployment -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookDeployment -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookDeployment -> m HookDeployment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookDeployment -> m HookDeployment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookDeployment -> m HookDeployment)
-> Data HookDeployment
HookDeployment -> DataType
HookDeployment -> Constr
(forall b. Data b => b -> b) -> HookDeployment -> HookDeployment
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookDeployment -> c HookDeployment
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeployment
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookDeployment -> u
forall u. (forall d. Data d => d -> u) -> HookDeployment -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeployment -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeployment -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeployment
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookDeployment -> c HookDeployment
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookDeployment)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookDeployment)
$cHookDeployment :: Constr
$tHookDeployment :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
gmapMp :: (forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
gmapM :: (forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookDeployment -> m HookDeployment
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookDeployment -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookDeployment -> u
gmapQ :: (forall d. Data d => d -> u) -> HookDeployment -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookDeployment -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeployment -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeployment -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeployment -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeployment -> r
gmapT :: (forall b. Data b => b -> b) -> HookDeployment -> HookDeployment
$cgmapT :: (forall b. Data b => b -> b) -> HookDeployment -> HookDeployment
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookDeployment)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookDeployment)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookDeployment)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookDeployment)
dataTypeOf :: HookDeployment -> DataType
$cdataTypeOf :: HookDeployment -> DataType
toConstr :: HookDeployment -> Constr
$ctoConstr :: HookDeployment -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeployment
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeployment
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookDeployment -> c HookDeployment
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookDeployment -> c HookDeployment
$cp1Data :: Typeable HookDeployment
Data, (forall x. HookDeployment -> Rep HookDeployment x)
-> (forall x. Rep HookDeployment x -> HookDeployment)
-> Generic HookDeployment
forall x. Rep HookDeployment x -> HookDeployment
forall x. HookDeployment -> Rep HookDeployment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookDeployment x -> HookDeployment
$cfrom :: forall x. HookDeployment -> Rep HookDeployment x
Generic)

instance NFData HookDeployment where rnf :: HookDeployment -> ()
rnf = HookDeployment -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "deployment_status" field in the

-- 'DeploymentStatusEvent' payload.

data HookDeploymentStatus = HookDeploymentStatus
    { HookDeploymentStatus -> URL
whDeploymentStatusUrl     :: !URL
    , HookDeploymentStatus -> Int
whDeploymentStatusId      :: !Int
    , HookDeploymentStatus -> Text
whDeploymentStatusNodeId  :: !Text
    , HookDeploymentStatus -> Text
whDeploymentStatusState   :: !Text
    , HookDeploymentStatus -> HookUser
whDeploymentStatusCreator :: !HookUser
    , HookDeploymentStatus -> Maybe Text
whDeploymentStatusDesc    :: !(Maybe Text)
    , HookDeploymentStatus -> Maybe URL
whDeploymentStatusTargetUrl :: !(Maybe URL)
    , HookDeploymentStatus -> UTCTime
whDeploymentStatusCreatedAt :: !UTCTime
    , HookDeploymentStatus -> UTCTime
whDeploymentStatusUpdatedAt :: !UTCTime
    , HookDeploymentStatus -> URL
whDeploymentStatusDeplUrl   :: !URL
    , HookDeploymentStatus -> URL
whDeploymentStatusRepoUrl   :: !URL
    }
    deriving (HookDeploymentStatus -> HookDeploymentStatus -> Bool
(HookDeploymentStatus -> HookDeploymentStatus -> Bool)
-> (HookDeploymentStatus -> HookDeploymentStatus -> Bool)
-> Eq HookDeploymentStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookDeploymentStatus -> HookDeploymentStatus -> Bool
$c/= :: HookDeploymentStatus -> HookDeploymentStatus -> Bool
== :: HookDeploymentStatus -> HookDeploymentStatus -> Bool
$c== :: HookDeploymentStatus -> HookDeploymentStatus -> Bool
Eq, Int -> HookDeploymentStatus -> ShowS
[HookDeploymentStatus] -> ShowS
HookDeploymentStatus -> String
(Int -> HookDeploymentStatus -> ShowS)
-> (HookDeploymentStatus -> String)
-> ([HookDeploymentStatus] -> ShowS)
-> Show HookDeploymentStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookDeploymentStatus] -> ShowS
$cshowList :: [HookDeploymentStatus] -> ShowS
show :: HookDeploymentStatus -> String
$cshow :: HookDeploymentStatus -> String
showsPrec :: Int -> HookDeploymentStatus -> ShowS
$cshowsPrec :: Int -> HookDeploymentStatus -> ShowS
Show, Typeable, Typeable HookDeploymentStatus
DataType
Constr
Typeable HookDeploymentStatus
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookDeploymentStatus
    -> c HookDeploymentStatus)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookDeploymentStatus)
-> (HookDeploymentStatus -> Constr)
-> (HookDeploymentStatus -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookDeploymentStatus))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookDeploymentStatus))
-> ((forall b. Data b => b -> b)
    -> HookDeploymentStatus -> HookDeploymentStatus)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookDeploymentStatus -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookDeploymentStatus -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookDeploymentStatus -> m HookDeploymentStatus)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookDeploymentStatus -> m HookDeploymentStatus)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookDeploymentStatus -> m HookDeploymentStatus)
-> Data HookDeploymentStatus
HookDeploymentStatus -> DataType
HookDeploymentStatus -> Constr
(forall b. Data b => b -> b)
-> HookDeploymentStatus -> HookDeploymentStatus
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookDeploymentStatus
-> c HookDeploymentStatus
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeploymentStatus
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookDeploymentStatus -> u
forall u.
(forall d. Data d => d -> u) -> HookDeploymentStatus -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeploymentStatus
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookDeploymentStatus
-> c HookDeploymentStatus
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookDeploymentStatus)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookDeploymentStatus)
$cHookDeploymentStatus :: Constr
$tHookDeploymentStatus :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
gmapMp :: (forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
gmapM :: (forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookDeploymentStatus -> m HookDeploymentStatus
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookDeploymentStatus -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookDeploymentStatus -> u
gmapQ :: (forall d. Data d => d -> u) -> HookDeploymentStatus -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookDeploymentStatus -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookDeploymentStatus -> r
gmapT :: (forall b. Data b => b -> b)
-> HookDeploymentStatus -> HookDeploymentStatus
$cgmapT :: (forall b. Data b => b -> b)
-> HookDeploymentStatus -> HookDeploymentStatus
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookDeploymentStatus)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookDeploymentStatus)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookDeploymentStatus)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookDeploymentStatus)
dataTypeOf :: HookDeploymentStatus -> DataType
$cdataTypeOf :: HookDeploymentStatus -> DataType
toConstr :: HookDeploymentStatus -> Constr
$ctoConstr :: HookDeploymentStatus -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeploymentStatus
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookDeploymentStatus
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookDeploymentStatus
-> c HookDeploymentStatus
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookDeploymentStatus
-> c HookDeploymentStatus
$cp1Data :: Typeable HookDeploymentStatus
Data, (forall x. HookDeploymentStatus -> Rep HookDeploymentStatus x)
-> (forall x. Rep HookDeploymentStatus x -> HookDeploymentStatus)
-> Generic HookDeploymentStatus
forall x. Rep HookDeploymentStatus x -> HookDeploymentStatus
forall x. HookDeploymentStatus -> Rep HookDeploymentStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookDeploymentStatus x -> HookDeploymentStatus
$cfrom :: forall x. HookDeploymentStatus -> Rep HookDeploymentStatus x
Generic)

instance NFData HookDeploymentStatus where rnf :: HookDeploymentStatus -> ()
rnf = HookDeploymentStatus -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "pages" field in the 'GollumEvent' payload.

data HookWikiPage = HookWikiPage
    { HookWikiPage -> Text
whWikiPageName            :: !Text
    , HookWikiPage -> Text
whWikiPageTitle           :: !Text
    , HookWikiPage -> Maybe Text
whWikiPageSummary         :: !(Maybe Text)
    , HookWikiPage -> Text
wkWikiPageAction          :: !Text
    , HookWikiPage -> Text
whWikiPageSha             :: !Text
    , HookWikiPage -> URL
whWikiPageHtmlUrl         :: URL
    }
    deriving (HookWikiPage -> HookWikiPage -> Bool
(HookWikiPage -> HookWikiPage -> Bool)
-> (HookWikiPage -> HookWikiPage -> Bool) -> Eq HookWikiPage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookWikiPage -> HookWikiPage -> Bool
$c/= :: HookWikiPage -> HookWikiPage -> Bool
== :: HookWikiPage -> HookWikiPage -> Bool
$c== :: HookWikiPage -> HookWikiPage -> Bool
Eq, Int -> HookWikiPage -> ShowS
[HookWikiPage] -> ShowS
HookWikiPage -> String
(Int -> HookWikiPage -> ShowS)
-> (HookWikiPage -> String)
-> ([HookWikiPage] -> ShowS)
-> Show HookWikiPage
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookWikiPage] -> ShowS
$cshowList :: [HookWikiPage] -> ShowS
show :: HookWikiPage -> String
$cshow :: HookWikiPage -> String
showsPrec :: Int -> HookWikiPage -> ShowS
$cshowsPrec :: Int -> HookWikiPage -> ShowS
Show, Typeable, Typeable HookWikiPage
DataType
Constr
Typeable HookWikiPage
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookWikiPage -> c HookWikiPage)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookWikiPage)
-> (HookWikiPage -> Constr)
-> (HookWikiPage -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookWikiPage))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookWikiPage))
-> ((forall b. Data b => b -> b) -> HookWikiPage -> HookWikiPage)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r)
-> (forall u. (forall d. Data d => d -> u) -> HookWikiPage -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookWikiPage -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage)
-> Data HookWikiPage
HookWikiPage -> DataType
HookWikiPage -> Constr
(forall b. Data b => b -> b) -> HookWikiPage -> HookWikiPage
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookWikiPage -> c HookWikiPage
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookWikiPage
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> HookWikiPage -> u
forall u. (forall d. Data d => d -> u) -> HookWikiPage -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookWikiPage
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookWikiPage -> c HookWikiPage
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookWikiPage)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookWikiPage)
$cHookWikiPage :: Constr
$tHookWikiPage :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
gmapMp :: (forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
gmapM :: (forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> HookWikiPage -> m HookWikiPage
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookWikiPage -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> HookWikiPage -> u
gmapQ :: (forall d. Data d => d -> u) -> HookWikiPage -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookWikiPage -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookWikiPage -> r
gmapT :: (forall b. Data b => b -> b) -> HookWikiPage -> HookWikiPage
$cgmapT :: (forall b. Data b => b -> b) -> HookWikiPage -> HookWikiPage
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookWikiPage)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookWikiPage)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookWikiPage)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookWikiPage)
dataTypeOf :: HookWikiPage -> DataType
$cdataTypeOf :: HookWikiPage -> DataType
toConstr :: HookWikiPage -> Constr
$ctoConstr :: HookWikiPage -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookWikiPage
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookWikiPage
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookWikiPage -> c HookWikiPage
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookWikiPage -> c HookWikiPage
$cp1Data :: Typeable HookWikiPage
Data, (forall x. HookWikiPage -> Rep HookWikiPage x)
-> (forall x. Rep HookWikiPage x -> HookWikiPage)
-> Generic HookWikiPage
forall x. Rep HookWikiPage x -> HookWikiPage
forall x. HookWikiPage -> Rep HookWikiPage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookWikiPage x -> HookWikiPage
$cfrom :: forall x. HookWikiPage -> Rep HookWikiPage x
Generic)

instance NFData HookWikiPage where rnf :: HookWikiPage -> ()
rnf = HookWikiPage -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "build" field in the 'PageBuildEvent' payload.

data HookPageBuildResult = HookPageBuildResult
    { HookPageBuildResult -> URL
whPageBuildUrl            :: !URL
    , HookPageBuildResult -> Text
whPageBuildStatus         :: !Text
    , HookPageBuildResult -> Maybe Text
whPageBuildError          :: !(Maybe Text)
    , HookPageBuildResult -> HookUser
whPageBuildPusher         :: !HookUser
    , HookPageBuildResult -> Text
whPageBuildCommitSha      :: !Text
    , HookPageBuildResult -> Int
whPageBuildDuration       :: !Int
    , HookPageBuildResult -> UTCTime
whPageBuildCreatedAt      :: !UTCTime
    , HookPageBuildResult -> UTCTime
whPageBuildUpdatedAt      :: !UTCTime
    }
    deriving (HookPageBuildResult -> HookPageBuildResult -> Bool
(HookPageBuildResult -> HookPageBuildResult -> Bool)
-> (HookPageBuildResult -> HookPageBuildResult -> Bool)
-> Eq HookPageBuildResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookPageBuildResult -> HookPageBuildResult -> Bool
$c/= :: HookPageBuildResult -> HookPageBuildResult -> Bool
== :: HookPageBuildResult -> HookPageBuildResult -> Bool
$c== :: HookPageBuildResult -> HookPageBuildResult -> Bool
Eq, Int -> HookPageBuildResult -> ShowS
[HookPageBuildResult] -> ShowS
HookPageBuildResult -> String
(Int -> HookPageBuildResult -> ShowS)
-> (HookPageBuildResult -> String)
-> ([HookPageBuildResult] -> ShowS)
-> Show HookPageBuildResult
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookPageBuildResult] -> ShowS
$cshowList :: [HookPageBuildResult] -> ShowS
show :: HookPageBuildResult -> String
$cshow :: HookPageBuildResult -> String
showsPrec :: Int -> HookPageBuildResult -> ShowS
$cshowsPrec :: Int -> HookPageBuildResult -> ShowS
Show, Typeable, Typeable HookPageBuildResult
DataType
Constr
Typeable HookPageBuildResult
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookPageBuildResult
    -> c HookPageBuildResult)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookPageBuildResult)
-> (HookPageBuildResult -> Constr)
-> (HookPageBuildResult -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookPageBuildResult))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookPageBuildResult))
-> ((forall b. Data b => b -> b)
    -> HookPageBuildResult -> HookPageBuildResult)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookPageBuildResult -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookPageBuildResult -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookPageBuildResult -> m HookPageBuildResult)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPageBuildResult -> m HookPageBuildResult)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPageBuildResult -> m HookPageBuildResult)
-> Data HookPageBuildResult
HookPageBuildResult -> DataType
HookPageBuildResult -> Constr
(forall b. Data b => b -> b)
-> HookPageBuildResult -> HookPageBuildResult
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPageBuildResult
-> c HookPageBuildResult
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPageBuildResult
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookPageBuildResult -> u
forall u.
(forall d. Data d => d -> u) -> HookPageBuildResult -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPageBuildResult
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPageBuildResult
-> c HookPageBuildResult
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookPageBuildResult)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPageBuildResult)
$cHookPageBuildResult :: Constr
$tHookPageBuildResult :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
gmapMp :: (forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
gmapM :: (forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPageBuildResult -> m HookPageBuildResult
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookPageBuildResult -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookPageBuildResult -> u
gmapQ :: (forall d. Data d => d -> u) -> HookPageBuildResult -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookPageBuildResult -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookPageBuildResult -> r
gmapT :: (forall b. Data b => b -> b)
-> HookPageBuildResult -> HookPageBuildResult
$cgmapT :: (forall b. Data b => b -> b)
-> HookPageBuildResult -> HookPageBuildResult
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPageBuildResult)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPageBuildResult)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookPageBuildResult)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookPageBuildResult)
dataTypeOf :: HookPageBuildResult -> DataType
$cdataTypeOf :: HookPageBuildResult -> DataType
toConstr :: HookPageBuildResult -> Constr
$ctoConstr :: HookPageBuildResult -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPageBuildResult
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPageBuildResult
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPageBuildResult
-> c HookPageBuildResult
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPageBuildResult
-> c HookPageBuildResult
$cp1Data :: Typeable HookPageBuildResult
Data, (forall x. HookPageBuildResult -> Rep HookPageBuildResult x)
-> (forall x. Rep HookPageBuildResult x -> HookPageBuildResult)
-> Generic HookPageBuildResult
forall x. Rep HookPageBuildResult x -> HookPageBuildResult
forall x. HookPageBuildResult -> Rep HookPageBuildResult x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookPageBuildResult x -> HookPageBuildResult
$cfrom :: forall x. HookPageBuildResult -> Rep HookPageBuildResult x
Generic)

instance NFData HookPageBuildResult where rnf :: HookPageBuildResult -> ()
rnf = HookPageBuildResult -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "issue" field in 'IssueComentEvent' payload.

data HookIssueComment = HookIssueComment
    { HookIssueComment -> URL
whIssueCommentUrl         :: !URL
    , HookIssueComment -> URL
whIssueCommentHtmlUrl     :: !URL
    , HookIssueComment -> URL
whIssueCommentIssueUrl    :: !URL
    , HookIssueComment -> Int
whIssueCommentId          :: !Int
    , HookIssueComment -> Text
whIssueCommentNodeId      :: !Text
    , HookIssueComment -> HookUser
whIssueCommentUser        :: !HookUser
    , HookIssueComment -> UTCTime
whIssueCommentCreatedAt   :: !UTCTime
    , HookIssueComment -> UTCTime
whIssueCommentUpdatedAt   :: !UTCTime
    , HookIssueComment -> Text
whIssueCommentBody        :: !Text
    }
    deriving (HookIssueComment -> HookIssueComment -> Bool
(HookIssueComment -> HookIssueComment -> Bool)
-> (HookIssueComment -> HookIssueComment -> Bool)
-> Eq HookIssueComment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookIssueComment -> HookIssueComment -> Bool
$c/= :: HookIssueComment -> HookIssueComment -> Bool
== :: HookIssueComment -> HookIssueComment -> Bool
$c== :: HookIssueComment -> HookIssueComment -> Bool
Eq, Int -> HookIssueComment -> ShowS
[HookIssueComment] -> ShowS
HookIssueComment -> String
(Int -> HookIssueComment -> ShowS)
-> (HookIssueComment -> String)
-> ([HookIssueComment] -> ShowS)
-> Show HookIssueComment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookIssueComment] -> ShowS
$cshowList :: [HookIssueComment] -> ShowS
show :: HookIssueComment -> String
$cshow :: HookIssueComment -> String
showsPrec :: Int -> HookIssueComment -> ShowS
$cshowsPrec :: Int -> HookIssueComment -> ShowS
Show, Typeable, Typeable HookIssueComment
DataType
Constr
Typeable HookIssueComment
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> HookIssueComment -> c HookIssueComment)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookIssueComment)
-> (HookIssueComment -> Constr)
-> (HookIssueComment -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookIssueComment))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookIssueComment))
-> ((forall b. Data b => b -> b)
    -> HookIssueComment -> HookIssueComment)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookIssueComment -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookIssueComment -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookIssueComment -> m HookIssueComment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookIssueComment -> m HookIssueComment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookIssueComment -> m HookIssueComment)
-> Data HookIssueComment
HookIssueComment -> DataType
HookIssueComment -> Constr
(forall b. Data b => b -> b)
-> HookIssueComment -> HookIssueComment
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueComment -> c HookIssueComment
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueComment
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookIssueComment -> u
forall u. (forall d. Data d => d -> u) -> HookIssueComment -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueComment
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueComment -> c HookIssueComment
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookIssueComment)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookIssueComment)
$cHookIssueComment :: Constr
$tHookIssueComment :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
gmapMp :: (forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
gmapM :: (forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookIssueComment -> m HookIssueComment
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookIssueComment -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookIssueComment -> u
gmapQ :: (forall d. Data d => d -> u) -> HookIssueComment -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookIssueComment -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookIssueComment -> r
gmapT :: (forall b. Data b => b -> b)
-> HookIssueComment -> HookIssueComment
$cgmapT :: (forall b. Data b => b -> b)
-> HookIssueComment -> HookIssueComment
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookIssueComment)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookIssueComment)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookIssueComment)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookIssueComment)
dataTypeOf :: HookIssueComment -> DataType
$cdataTypeOf :: HookIssueComment -> DataType
toConstr :: HookIssueComment -> Constr
$ctoConstr :: HookIssueComment -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueComment
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookIssueComment
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueComment -> c HookIssueComment
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookIssueComment -> c HookIssueComment
$cp1Data :: Typeable HookIssueComment
Data, (forall x. HookIssueComment -> Rep HookIssueComment x)
-> (forall x. Rep HookIssueComment x -> HookIssueComment)
-> Generic HookIssueComment
forall x. Rep HookIssueComment x -> HookIssueComment
forall x. HookIssueComment -> Rep HookIssueComment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookIssueComment x -> HookIssueComment
$cfrom :: forall x. HookIssueComment -> Rep HookIssueComment x
Generic)

instance NFData HookIssueComment where rnf :: HookIssueComment -> ()
rnf = HookIssueComment -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "comment" field in the 'CommitCommentEvent' payload.

data HookCommitComment = HookCommitComment
    { HookCommitComment -> URL
whCommitCommentUrl        :: !URL
    , HookCommitComment -> URL
whCommitCommentHtmlUrl    :: !URL
    , HookCommitComment -> Int
whCommitCommentId         :: !Int
    , HookCommitComment -> Text
whCommitCommentNodeId     :: !Text
    , HookCommitComment -> HookUser
whCommitCommentUser       :: !HookUser
    , HookCommitComment -> Maybe Int
whCommitCommentPos        :: !(Maybe Int)
    , HookCommitComment -> Maybe Int
whCommitCommentLine       :: !(Maybe Int)
    , HookCommitComment -> Maybe Text
whCommitCommentPath       :: !(Maybe Text)
    , HookCommitComment -> Text
whCommitCommentCommitSha  :: !Text
    , HookCommitComment -> UTCTime
whCommitCommentCreatedAt  :: !UTCTime
    , HookCommitComment -> UTCTime
whCommitCommentUpdatedAt  :: !UTCTime
    , HookCommitComment -> Text
whCommitCommentBody       :: !Text
    }
    deriving (HookCommitComment -> HookCommitComment -> Bool
(HookCommitComment -> HookCommitComment -> Bool)
-> (HookCommitComment -> HookCommitComment -> Bool)
-> Eq HookCommitComment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookCommitComment -> HookCommitComment -> Bool
$c/= :: HookCommitComment -> HookCommitComment -> Bool
== :: HookCommitComment -> HookCommitComment -> Bool
$c== :: HookCommitComment -> HookCommitComment -> Bool
Eq, Int -> HookCommitComment -> ShowS
[HookCommitComment] -> ShowS
HookCommitComment -> String
(Int -> HookCommitComment -> ShowS)
-> (HookCommitComment -> String)
-> ([HookCommitComment] -> ShowS)
-> Show HookCommitComment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookCommitComment] -> ShowS
$cshowList :: [HookCommitComment] -> ShowS
show :: HookCommitComment -> String
$cshow :: HookCommitComment -> String
showsPrec :: Int -> HookCommitComment -> ShowS
$cshowsPrec :: Int -> HookCommitComment -> ShowS
Show, Typeable, Typeable HookCommitComment
DataType
Constr
Typeable HookCommitComment
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookCommitComment
    -> c HookCommitComment)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c HookCommitComment)
-> (HookCommitComment -> Constr)
-> (HookCommitComment -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c HookCommitComment))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookCommitComment))
-> ((forall b. Data b => b -> b)
    -> HookCommitComment -> HookCommitComment)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r)
-> (forall u.
    (forall d. Data d => d -> u) -> HookCommitComment -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> HookCommitComment -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookCommitComment -> m HookCommitComment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCommitComment -> m HookCommitComment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookCommitComment -> m HookCommitComment)
-> Data HookCommitComment
HookCommitComment -> DataType
HookCommitComment -> Constr
(forall b. Data b => b -> b)
-> HookCommitComment -> HookCommitComment
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommitComment -> c HookCommitComment
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommitComment
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int -> (forall d. Data d => d -> u) -> HookCommitComment -> u
forall u. (forall d. Data d => d -> u) -> HookCommitComment -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommitComment
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommitComment -> c HookCommitComment
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCommitComment)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCommitComment)
$cHookCommitComment :: Constr
$tHookCommitComment :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
gmapMp :: (forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
gmapM :: (forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookCommitComment -> m HookCommitComment
gmapQi :: Int -> (forall d. Data d => d -> u) -> HookCommitComment -> u
$cgmapQi :: forall u.
Int -> (forall d. Data d => d -> u) -> HookCommitComment -> u
gmapQ :: (forall d. Data d => d -> u) -> HookCommitComment -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> HookCommitComment -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> HookCommitComment -> r
gmapT :: (forall b. Data b => b -> b)
-> HookCommitComment -> HookCommitComment
$cgmapT :: (forall b. Data b => b -> b)
-> HookCommitComment -> HookCommitComment
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCommitComment)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookCommitComment)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c HookCommitComment)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c HookCommitComment)
dataTypeOf :: HookCommitComment -> DataType
$cdataTypeOf :: HookCommitComment -> DataType
toConstr :: HookCommitComment -> Constr
$ctoConstr :: HookCommitComment -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommitComment
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookCommitComment
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommitComment -> c HookCommitComment
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> HookCommitComment -> c HookCommitComment
$cp1Data :: Typeable HookCommitComment
Data, (forall x. HookCommitComment -> Rep HookCommitComment x)
-> (forall x. Rep HookCommitComment x -> HookCommitComment)
-> Generic HookCommitComment
forall x. Rep HookCommitComment x -> HookCommitComment
forall x. HookCommitComment -> Rep HookCommitComment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HookCommitComment x -> HookCommitComment
$cfrom :: forall x. HookCommitComment -> Rep HookCommitComment x
Generic)

instance NFData HookCommitComment where rnf :: HookCommitComment -> ()
rnf = HookCommitComment -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf

-- | Represents the "pull_request" field in the

-- 'PullRequestReviewCommentEvent' payload.

data HookPullRequestReviewComment = HookPullRequestReviewComment
    { HookPullRequestReviewComment -> URL
whPullReqRevComUrl        :: !URL
    , HookPullRequestReviewComment -> Int
whPullReqRevComId         :: !Int
    , HookPullRequestReviewComment -> Text
whPullReqRevComNodeId     :: !Text
    , HookPullRequestReviewComment -> Text
whPullReqRevComDiffHunk   :: !Text
    , HookPullRequestReviewComment -> Text
whPullReqRevComPath       :: !Text
    , HookPullRequestReviewComment -> Int
whPullReqRevComPos        :: !Int
    , HookPullRequestReviewComment -> Int
whPullReqRevComOrigPos    :: !Int
    , HookPullRequestReviewComment -> Text
whPullReqRevComCommitSha  :: !Text
    , HookPullRequestReviewComment -> Text
whPullReqRevComOrigSha    :: !Text
    , HookPullRequestReviewComment -> HookUser
whPullReqRevComUser       :: !HookUser
    , HookPullRequestReviewComment -> Text
whPullReqRevComBody       :: !Text
    , HookPullRequestReviewComment -> UTCTime
whPullReqRevComCreatedAt  :: !UTCTime
    , HookPullRequestReviewComment -> UTCTime
whPullReqRevComUpdatedAt  :: !UTCTime
    , HookPullRequestReviewComment -> URL
whPullReqRevComHtmlUrl    :: !URL
    , HookPullRequestReviewComment -> URL
whPullReqRevComPullReqUrl :: !URL
    }
    deriving (HookPullRequestReviewComment
-> HookPullRequestReviewComment -> Bool
(HookPullRequestReviewComment
 -> HookPullRequestReviewComment -> Bool)
-> (HookPullRequestReviewComment
    -> HookPullRequestReviewComment -> Bool)
-> Eq HookPullRequestReviewComment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HookPullRequestReviewComment
-> HookPullRequestReviewComment -> Bool
$c/= :: HookPullRequestReviewComment
-> HookPullRequestReviewComment -> Bool
== :: HookPullRequestReviewComment
-> HookPullRequestReviewComment -> Bool
$c== :: HookPullRequestReviewComment
-> HookPullRequestReviewComment -> Bool
Eq, Int -> HookPullRequestReviewComment -> ShowS
[HookPullRequestReviewComment] -> ShowS
HookPullRequestReviewComment -> String
(Int -> HookPullRequestReviewComment -> ShowS)
-> (HookPullRequestReviewComment -> String)
-> ([HookPullRequestReviewComment] -> ShowS)
-> Show HookPullRequestReviewComment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HookPullRequestReviewComment] -> ShowS
$cshowList :: [HookPullRequestReviewComment] -> ShowS
show :: HookPullRequestReviewComment -> String
$cshow :: HookPullRequestReviewComment -> String
showsPrec :: Int -> HookPullRequestReviewComment -> ShowS
$cshowsPrec :: Int -> HookPullRequestReviewComment -> ShowS
Show, Typeable, Typeable HookPullRequestReviewComment
DataType
Constr
Typeable HookPullRequestReviewComment
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> HookPullRequestReviewComment
    -> c HookPullRequestReviewComment)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r)
    -> Constr
    -> c HookPullRequestReviewComment)
-> (HookPullRequestReviewComment -> Constr)
-> (HookPullRequestReviewComment -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c HookPullRequestReviewComment))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c HookPullRequestReviewComment))
-> ((forall b. Data b => b -> b)
    -> HookPullRequestReviewComment -> HookPullRequestReviewComment)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookPullRequestReviewComment
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> HookPullRequestReviewComment
    -> r)
-> (forall u.
    (forall d. Data d => d -> u)
    -> HookPullRequestReviewComment -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> HookPullRequestReviewComment
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequestReviewComment -> m HookPullRequestReviewComment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequestReviewComment -> m HookPullRequestReviewComment)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> HookPullRequestReviewComment -> m HookPullRequestReviewComment)
-> Data HookPullRequestReviewComment
HookPullRequestReviewComment -> DataType
HookPullRequestReviewComment -> Constr
(forall b. Data b => b -> b)
-> HookPullRequestReviewComment -> HookPullRequestReviewComment
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReviewComment
-> c HookPullRequestReviewComment
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReviewComment
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u.
Int
-> (forall d. Data d => d -> u)
-> HookPullRequestReviewComment
-> u
forall u.
(forall d. Data d => d -> u) -> HookPullRequestReviewComment -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookPullRequestReviewComment
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookPullRequestReviewComment
-> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReviewComment
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReviewComment
-> c HookPullRequestReviewComment
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookPullRequestReviewComment)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequestReviewComment)
$cHookPullRequestReviewComment :: Constr
$tHookPullRequestReviewComment :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
gmapMp :: (forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
gmapM :: (forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> HookPullRequestReviewComment -> m HookPullRequestReviewComment
gmapQi :: Int
-> (forall d. Data d => d -> u)
-> HookPullRequestReviewComment
-> u
$cgmapQi :: forall u.
Int
-> (forall d. Data d => d -> u)
-> HookPullRequestReviewComment
-> u
gmapQ :: (forall d. Data d => d -> u) -> HookPullRequestReviewComment -> [u]
$cgmapQ :: forall u.
(forall d. Data d => d -> u) -> HookPullRequestReviewComment -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookPullRequestReviewComment
-> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookPullRequestReviewComment
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookPullRequestReviewComment
-> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> HookPullRequestReviewComment
-> r
gmapT :: (forall b. Data b => b -> b)
-> HookPullRequestReviewComment -> HookPullRequestReviewComment
$cgmapT :: (forall b. Data b => b -> b)
-> HookPullRequestReviewComment -> HookPullRequestReviewComment
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequestReviewComment)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c HookPullRequestReviewComment)
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c HookPullRequestReviewComment)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c HookPullRequestReviewComment)
dataTypeOf :: HookPullRequestReviewComment -> DataType
$cdataTypeOf :: HookPullRequestReviewComment -> DataType
toConstr :: HookPullRequestReviewComment -> Constr
$ctoConstr :: HookPullRequestReviewComment -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReviewComment
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c HookPullRequestReviewComment
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReviewComment
-> c HookPullRequestReviewComment
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> HookPullRequestReviewComment
-> c HookPullRequestReviewComment
$cp1Data :: Typeable HookPullRequestReviewComment
Data, (forall x.
 HookPullRequestReviewComment -> Rep HookPullRequestReviewComment x)
-> (forall x.
    Rep HookPullRequestReviewComment x -> HookPullRequestReviewComment)
-> Generic HookPullRequestReviewComment
forall x.
Rep HookPullRequestReviewComment x -> HookPullRequestReviewComment
forall x.
HookPullRequestReviewComment -> Rep HookPullRequestReviewComment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep HookPullRequestReviewComment x -> HookPullRequestReviewComment
$cfrom :: forall x.
HookPullRequestReviewComment -> Rep HookPullRequestReviewComment x
Generic)

instance NFData HookPullRequestReviewComment where rnf :: HookPullRequestReviewComment -> ()
rnf = HookPullRequestReviewComment -> ()
forall a. (Generic a, GNFData (Rep a)) => a -> ()
genericRnf


-- Aeson Instances


instance FromJSON HookIssue where
  parseJSON :: Value -> Parser HookIssue
parseJSON = String -> (Object -> Parser HookIssue) -> Value -> Parser HookIssue
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookIssue" ((Object -> Parser HookIssue) -> Value -> Parser HookIssue)
-> (Object -> Parser HookIssue) -> Value -> Parser HookIssue
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> URL
-> URL
-> URL
-> Int
-> Text
-> Int
-> Text
-> HookUser
-> Vector HookIssueLabels
-> Text
-> Bool
-> Maybe HookUser
-> Maybe HookMilestone
-> Int
-> UTCTime
-> UTCTime
-> Maybe UTCTime
-> Text
-> HookIssue
HookIssue
      (URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> Int
 -> Text
 -> HookUser
 -> Vector HookIssueLabels
 -> Text
 -> Bool
 -> Maybe HookUser
 -> Maybe HookMilestone
 -> Int
 -> UTCTime
 -> UTCTime
 -> Maybe UTCTime
 -> Text
 -> HookIssue)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"labels_url"
      Parser
  (URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"comments_url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"events_url"
      Parser
  (URL
   -> Int
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (Int
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser Int
-> Parser
     (Text
      -> Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser Text
-> Parser
     (Int
      -> Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Int
   -> Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser Int
-> Parser
     (Text
      -> HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"number"
      Parser
  (Text
   -> HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser Text
-> Parser
     (HookUser
      -> Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"title"
      Parser
  (HookUser
   -> Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser HookUser
-> Parser
     (Vector HookIssueLabels
      -> Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser
  (Vector HookIssueLabels
   -> Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser (Vector HookIssueLabels)
-> Parser
     (Text
      -> Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Vector HookIssueLabels)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"labels"
      Parser
  (Text
   -> Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser Text
-> Parser
     (Bool
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser
  (Bool
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser Bool
-> Parser
     (Maybe HookUser
      -> Maybe HookMilestone
      -> Int
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Text
      -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"locked"
      Parser
  (Maybe HookUser
   -> Maybe HookMilestone
   -> Int
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Text
   -> HookIssue)
-> Parser (Maybe HookUser)
-> Parser
     (Maybe HookMilestone
      -> Int -> UTCTime -> UTCTime -> Maybe UTCTime -> Text -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookUser)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"assignee"
      Parser
  (Maybe HookMilestone
   -> Int -> UTCTime -> UTCTime -> Maybe UTCTime -> Text -> HookIssue)
-> Parser (Maybe HookMilestone)
-> Parser
     (Int -> UTCTime -> UTCTime -> Maybe UTCTime -> Text -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookMilestone)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"milestone"
      Parser
  (Int -> UTCTime -> UTCTime -> Maybe UTCTime -> Text -> HookIssue)
-> Parser Int
-> Parser
     (UTCTime -> UTCTime -> Maybe UTCTime -> Text -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"comments"
      Parser (UTCTime -> UTCTime -> Maybe UTCTime -> Text -> HookIssue)
-> Parser UTCTime
-> Parser (UTCTime -> Maybe UTCTime -> Text -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> Maybe UTCTime -> Text -> HookIssue)
-> Parser UTCTime -> Parser (Maybe UTCTime -> Text -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (Maybe UTCTime -> Text -> HookIssue)
-> Parser (Maybe UTCTime) -> Parser (Text -> HookIssue)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"closed_at"
      Parser (Text -> HookIssue) -> Parser Text -> Parser HookIssue
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"body" Parser (Maybe Text) -> Text -> Parser Text
forall a. Parser (Maybe a) -> a -> Parser a
.!= Text
""

instance FromJSON HookRepository where
  parseJSON :: Value -> Parser HookRepository
parseJSON = String
-> (Object -> Parser HookRepository)
-> Value
-> Parser HookRepository
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookRepository" ((Object -> Parser HookRepository)
 -> Value -> Parser HookRepository)
-> (Object -> Parser HookRepository)
-> Value
-> Parser HookRepository
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int
-> Text
-> Text
-> Text
-> Either HookSimpleUser HookUser
-> Bool
-> URL
-> Text
-> Bool
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> UTCTime
-> UTCTime
-> UTCTime
-> URL
-> URL
-> URL
-> URL
-> Maybe URL
-> Int
-> Int
-> Int
-> Maybe Text
-> Bool
-> Bool
-> Bool
-> Bool
-> Int
-> Maybe URL
-> Int
-> Text
-> HookRepository
HookRepository
      (Int
 -> Text
 -> Text
 -> Text
 -> Either HookSimpleUser HookUser
 -> Bool
 -> URL
 -> Text
 -> Bool
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> UTCTime
 -> UTCTime
 -> UTCTime
 -> URL
 -> URL
 -> URL
 -> URL
 -> Maybe URL
 -> Int
 -> Int
 -> Int
 -> Maybe Text
 -> Bool
 -> Bool
 -> Bool
 -> Bool
 -> Int
 -> Maybe URL
 -> Int
 -> Text
 -> HookRepository)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Text
      -> Either HookSimpleUser HookUser
      -> Bool
      -> URL
      -> Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Text
   -> Either HookSimpleUser HookUser
   -> Bool
   -> URL
   -> Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Either HookSimpleUser HookUser
      -> Bool
      -> URL
      -> Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> Text
   -> Either HookSimpleUser HookUser
   -> Bool
   -> URL
   -> Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Text
-> Parser
     (Text
      -> Either HookSimpleUser HookUser
      -> Bool
      -> URL
      -> Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser
  (Text
   -> Either HookSimpleUser HookUser
   -> Bool
   -> URL
   -> Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Text
-> Parser
     (Either HookSimpleUser HookUser
      -> Bool
      -> URL
      -> Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"full_name"
      Parser
  (Either HookSimpleUser HookUser
   -> Bool
   -> URL
   -> Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser (Either HookSimpleUser HookUser)
-> Parser
     (Bool
      -> URL
      -> Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((HookUser -> Either HookSimpleUser HookUser
forall a b. b -> Either a b
Right (HookUser -> Either HookSimpleUser HookUser)
-> Parser HookUser -> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"owner") Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> (HookSimpleUser -> Either HookSimpleUser HookUser
forall a b. a -> Either a b
Left (HookSimpleUser -> Either HookSimpleUser HookUser)
-> Parser HookSimpleUser -> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookSimpleUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"owner")) -- try complex form first

      Parser
  (Bool
   -> URL
   -> Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Bool
-> Parser
     (URL
      -> Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"private"
      Parser
  (URL
   -> Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (Text
      -> Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (Text
   -> Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Text
-> Parser
     (Bool
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"description" Parser (Maybe Text) -> Text -> Parser Text
forall a. Parser (Maybe a) -> a -> Parser a
.!= Text
T.empty
      Parser
  (Bool
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Bool
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"fork"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"forks_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"keys_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"collaborators_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"teams_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"hooks_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"issue_events_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"events_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"assignees_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"branches_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"tags_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"blobs_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"git_tags_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"git_refs_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"trees_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"statuses_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"languages_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"stargazers_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"contributors_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"subscribers_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"subscription_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"commits_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"git_commits_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"comments_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"issue_comment_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"contents_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"compare_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"merges_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"archive_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"downloads_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"issues_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pulls_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"milestones_url"
      Parser
  (URL
   -> URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"notifications_url"
      Parser
  (URL
   -> URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"labels_url"
      Parser
  (URL
   -> UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (UTCTime
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"releases_url"
      -- FIXME: Wrap optional number/stringified UTCTime in a helper function? See PushEvent fixture

      Parser
  (UTCTime
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser UTCTime
-> Parser
     (UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at")  Parser UTCTime -> Parser UTCTime -> Parser UTCTime
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> (POSIXTime -> UTCTime
posixSecondsToUTCTime (POSIXTime -> UTCTime)
-> (Integer -> POSIXTime) -> Integer -> UTCTime
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Integer -> POSIXTime
forall a. Num a => Integer -> a
fromInteger (Integer -> UTCTime) -> Parser Integer -> Parser UTCTime
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Integer
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"))
      Parser
  (UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser UTCTime
-> Parser
     (UTCTime
      -> URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at")  Parser UTCTime -> Parser UTCTime -> Parser UTCTime
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> (POSIXTime -> UTCTime
posixSecondsToUTCTime (POSIXTime -> UTCTime)
-> (Integer -> POSIXTime) -> Integer -> UTCTime
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Integer -> POSIXTime
forall a. Num a => Integer -> a
fromInteger (Integer -> UTCTime) -> Parser Integer -> Parser UTCTime
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Integer
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"))
      Parser
  (UTCTime
   -> URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser UTCTime
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pushed_at")   Parser UTCTime -> Parser UTCTime -> Parser UTCTime
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> (POSIXTime -> UTCTime
posixSecondsToUTCTime (POSIXTime -> UTCTime)
-> (Integer -> POSIXTime) -> Integer -> UTCTime
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Integer -> POSIXTime
forall a. Num a => Integer -> a
fromInteger (Integer -> UTCTime) -> Parser Integer -> Parser UTCTime
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Integer
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pushed_at"))
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"git_url"
      Parser
  (URL
   -> URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"ssh_url"
      Parser
  (URL
   -> URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (URL
      -> Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"clone_url"
      Parser
  (URL
   -> Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser URL
-> Parser
     (Maybe URL
      -> Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"svn_url"
      Parser
  (Maybe URL
   -> Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser (Maybe URL)
-> Parser
     (Int
      -> Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"homepage"
      Parser
  (Int
   -> Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Int
-> Parser
     (Int
      -> Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"size"
      Parser
  (Int
   -> Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Int
-> Parser
     (Int
      -> Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"stargazers_count"
      Parser
  (Int
   -> Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Int
-> Parser
     (Maybe Text
      -> Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"watchers_count"
      Parser
  (Maybe Text
   -> Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser (Maybe Text)
-> Parser
     (Bool
      -> Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"language"
      Parser
  (Bool
   -> Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Bool
-> Parser
     (Bool
      -> Bool
      -> Bool
      -> Int
      -> Maybe URL
      -> Int
      -> Text
      -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"has_issues"
      Parser
  (Bool
   -> Bool
   -> Bool
   -> Int
   -> Maybe URL
   -> Int
   -> Text
   -> HookRepository)
-> Parser Bool
-> Parser
     (Bool -> Bool -> Int -> Maybe URL -> Int -> Text -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"has_downloads"
      Parser
  (Bool -> Bool -> Int -> Maybe URL -> Int -> Text -> HookRepository)
-> Parser Bool
-> Parser
     (Bool -> Int -> Maybe URL -> Int -> Text -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"has_wiki"
      Parser (Bool -> Int -> Maybe URL -> Int -> Text -> HookRepository)
-> Parser Bool
-> Parser (Int -> Maybe URL -> Int -> Text -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"has_pages"
      Parser (Int -> Maybe URL -> Int -> Text -> HookRepository)
-> Parser Int
-> Parser (Maybe URL -> Int -> Text -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"forks_count"
      Parser (Maybe URL -> Int -> Text -> HookRepository)
-> Parser (Maybe URL) -> Parser (Int -> Text -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"mirror_url"
      Parser (Int -> Text -> HookRepository)
-> Parser Int -> Parser (Text -> HookRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"open_issues_count"
      Parser (Text -> HookRepository)
-> Parser Text -> Parser HookRepository
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"default_branch"

instance FromJSON HookRepositorySimple where
  parseJSON :: Value -> Parser HookRepositorySimple
parseJSON = String
-> (Object -> Parser HookRepositorySimple)
-> Value
-> Parser HookRepositorySimple
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookRepositorySimple" ((Object -> Parser HookRepositorySimple)
 -> Value -> Parser HookRepositorySimple)
-> (Object -> Parser HookRepositorySimple)
-> Value
-> Parser HookRepositorySimple
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int -> Text -> Text -> Text -> Bool -> HookRepositorySimple
HookRepositorySimple
      (Int -> Text -> Text -> Text -> Bool -> HookRepositorySimple)
-> Parser Int
-> Parser (Text -> Text -> Text -> Bool -> HookRepositorySimple)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (Text -> Text -> Text -> Bool -> HookRepositorySimple)
-> Parser Text
-> Parser (Text -> Text -> Bool -> HookRepositorySimple)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser (Text -> Text -> Bool -> HookRepositorySimple)
-> Parser Text -> Parser (Text -> Bool -> HookRepositorySimple)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser (Text -> Bool -> HookRepositorySimple)
-> Parser Text -> Parser (Bool -> HookRepositorySimple)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"full_name"
      Parser (Bool -> HookRepositorySimple)
-> Parser Bool -> Parser HookRepositorySimple
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"private"

instance FromJSON HookRepositoryLabel where
  parseJSON :: Value -> Parser HookRepositoryLabel
parseJSON = String
-> (Object -> Parser HookRepositoryLabel)
-> Value
-> Parser HookRepositoryLabel
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookRepositoryLabel" ((Object -> Parser HookRepositoryLabel)
 -> Value -> Parser HookRepositoryLabel)
-> (Object -> Parser HookRepositoryLabel)
-> Value
-> Parser HookRepositoryLabel
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe Text -> URL -> Text -> Text -> HookRepositoryLabel
HookRepositoryLabel
      (Maybe Text -> URL -> Text -> Text -> HookRepositoryLabel)
-> Parser (Maybe Text)
-> Parser (URL -> Text -> Text -> HookRepositoryLabel)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"node_id"
      Parser (URL -> Text -> Text -> HookRepositoryLabel)
-> Parser URL -> Parser (Text -> Text -> HookRepositoryLabel)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser (Text -> Text -> HookRepositoryLabel)
-> Parser Text -> Parser (Text -> HookRepositoryLabel)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser (Text -> HookRepositoryLabel)
-> Parser Text -> Parser HookRepositoryLabel
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"color"

instance FromJSON HookUser where
  parseJSON :: Value -> Parser HookUser
parseJSON = String -> (Object -> Parser HookUser) -> Value -> Parser HookUser
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookUser" ((Object -> Parser HookUser) -> Value -> Parser HookUser)
-> (Object -> Parser HookUser) -> Value -> Parser HookUser
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> Int
-> Text
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> URL
-> OwnerType
-> Bool
-> HookUser
HookUser
      (Text
 -> Int
 -> Text
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> OwnerType
 -> Bool
 -> HookUser)
-> Parser Text
-> Parser
     (Int
      -> Text
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"login"
      Parser
  (Int
   -> Text
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser Int
-> Parser
     (Text
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser Text
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"avatar_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"gravatar_id"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"followers_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"following_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> OwnerType
      -> Bool
      -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"gists_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> OwnerType
   -> Bool
   -> HookUser)
-> Parser URL
-> Parser
     (URL -> URL -> URL -> URL -> URL -> OwnerType -> Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"starred_url"
      Parser
  (URL -> URL -> URL -> URL -> URL -> OwnerType -> Bool -> HookUser)
-> Parser URL
-> Parser
     (URL -> URL -> URL -> URL -> OwnerType -> Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"subscriptions_url"
      Parser (URL -> URL -> URL -> URL -> OwnerType -> Bool -> HookUser)
-> Parser URL
-> Parser (URL -> URL -> URL -> OwnerType -> Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"organizations_url"
      Parser (URL -> URL -> URL -> OwnerType -> Bool -> HookUser)
-> Parser URL
-> Parser (URL -> URL -> OwnerType -> Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repos_url"
      Parser (URL -> URL -> OwnerType -> Bool -> HookUser)
-> Parser URL -> Parser (URL -> OwnerType -> Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"events_url"
      Parser (URL -> OwnerType -> Bool -> HookUser)
-> Parser URL -> Parser (OwnerType -> Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"received_events_url"
      Parser (OwnerType -> Bool -> HookUser)
-> Parser OwnerType -> Parser (Bool -> HookUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser OwnerType
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"type"
      Parser (Bool -> HookUser) -> Parser Bool -> Parser HookUser
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"site_admin"

instance FromJSON HookSimpleUser where
  parseJSON :: Value -> Parser HookSimpleUser
parseJSON = String
-> (Object -> Parser HookSimpleUser)
-> Value
-> Parser HookSimpleUser
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookSimpleUser" ((Object -> Parser HookSimpleUser)
 -> Value -> Parser HookSimpleUser)
-> (Object -> Parser HookSimpleUser)
-> Value
-> Parser HookSimpleUser
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text -> Text -> Maybe Text -> HookSimpleUser
HookSimpleUser
      (Text -> Text -> Maybe Text -> HookSimpleUser)
-> Parser Text -> Parser (Text -> Maybe Text -> HookSimpleUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser (Text -> Maybe Text -> HookSimpleUser)
-> Parser Text -> Parser (Maybe Text -> HookSimpleUser)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"email"
      Parser (Maybe Text -> HookSimpleUser)
-> Parser (Maybe Text) -> Parser HookSimpleUser
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"username"

instance FromJSON HookOrganization where
  parseJSON :: Value -> Parser HookOrganization
parseJSON = String
-> (Object -> Parser HookOrganization)
-> Value
-> Parser HookOrganization
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookOrganization" ((Object -> Parser HookOrganization)
 -> Value -> Parser HookOrganization)
-> (Object -> Parser HookOrganization)
-> Value
-> Parser HookOrganization
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> Int
-> Text
-> URL
-> URL
-> URL
-> Maybe URL
-> Maybe URL
-> URL
-> URL
-> URL
-> Text
-> HookOrganization
HookOrganization
      (Text
 -> Int
 -> Text
 -> URL
 -> URL
 -> URL
 -> Maybe URL
 -> Maybe URL
 -> URL
 -> URL
 -> URL
 -> Text
 -> HookOrganization)
-> Parser Text
-> Parser
     (Int
      -> Text
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Maybe URL
      -> URL
      -> URL
      -> URL
      -> Text
      -> HookOrganization)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"login"
      Parser
  (Int
   -> Text
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Maybe URL
   -> URL
   -> URL
   -> URL
   -> Text
   -> HookOrganization)
-> Parser Int
-> Parser
     (Text
      -> URL
      -> URL
      -> URL
      -> Maybe URL
      -> Maybe URL
      -> URL
      -> URL
      -> URL
      -> Text
      -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> URL
   -> URL
   -> URL
   -> Maybe URL
   -> Maybe URL
   -> URL
   -> URL
   -> URL
   -> Text
   -> HookOrganization)
-> Parser Text
-> Parser
     (URL
      -> URL
      -> URL
      -> Maybe URL
      -> Maybe URL
      -> URL
      -> URL
      -> URL
      -> Text
      -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (URL
   -> URL
   -> URL
   -> Maybe URL
   -> Maybe URL
   -> URL
   -> URL
   -> URL
   -> Text
   -> HookOrganization)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Maybe URL
      -> Maybe URL
      -> URL
      -> URL
      -> URL
      -> Text
      -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> Maybe URL
   -> Maybe URL
   -> URL
   -> URL
   -> URL
   -> Text
   -> HookOrganization)
-> Parser URL
-> Parser
     (URL
      -> Maybe URL
      -> Maybe URL
      -> URL
      -> URL
      -> URL
      -> Text
      -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repos_url"
      Parser
  (URL
   -> Maybe URL
   -> Maybe URL
   -> URL
   -> URL
   -> URL
   -> Text
   -> HookOrganization)
-> Parser URL
-> Parser
     (Maybe URL
      -> Maybe URL -> URL -> URL -> URL -> Text -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"events_url"
      Parser
  (Maybe URL
   -> Maybe URL -> URL -> URL -> URL -> Text -> HookOrganization)
-> Parser (Maybe URL)
-> Parser
     (Maybe URL -> URL -> URL -> URL -> Text -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"hooks_url"
      Parser (Maybe URL -> URL -> URL -> URL -> Text -> HookOrganization)
-> Parser (Maybe URL)
-> Parser (URL -> URL -> URL -> Text -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"issues_url"
      Parser (URL -> URL -> URL -> Text -> HookOrganization)
-> Parser URL -> Parser (URL -> URL -> Text -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"members_url"
      Parser (URL -> URL -> Text -> HookOrganization)
-> Parser URL -> Parser (URL -> Text -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"public_members_url"
      Parser (URL -> Text -> HookOrganization)
-> Parser URL -> Parser (Text -> HookOrganization)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"avatar_url"
      Parser (Text -> HookOrganization)
-> Parser Text -> Parser HookOrganization
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"description" Parser (Maybe Text) -> Text -> Parser Text
forall a. Parser (Maybe a) -> a -> Parser a
.!= Text
T.empty

instance FromJSON HookOrganizationInvitation where
  parseJSON :: Value -> Parser HookOrganizationInvitation
parseJSON = String
-> (Object -> Parser HookOrganizationInvitation)
-> Value
-> Parser HookOrganizationInvitation
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookOrganizationInvitation" ((Object -> Parser HookOrganizationInvitation)
 -> Value -> Parser HookOrganizationInvitation)
-> (Object -> Parser HookOrganizationInvitation)
-> Value
-> Parser HookOrganizationInvitation
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int
-> Text -> Text -> Maybe Text -> Text -> HookOrganizationInvitation
HookOrganizationInvitation
      (Int
 -> Text
 -> Text
 -> Maybe Text
 -> Text
 -> HookOrganizationInvitation)
-> Parser Int
-> Parser
     (Text -> Text -> Maybe Text -> Text -> HookOrganizationInvitation)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text -> Text -> Maybe Text -> Text -> HookOrganizationInvitation)
-> Parser Text
-> Parser
     (Text -> Maybe Text -> Text -> HookOrganizationInvitation)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser (Text -> Maybe Text -> Text -> HookOrganizationInvitation)
-> Parser Text
-> Parser (Maybe Text -> Text -> HookOrganizationInvitation)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"login"
      Parser (Maybe Text -> Text -> HookOrganizationInvitation)
-> Parser (Maybe Text)
-> Parser (Text -> HookOrganizationInvitation)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"email"
      Parser (Text -> HookOrganizationInvitation)
-> Parser Text -> Parser HookOrganizationInvitation
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"role"

instance FromJSON HookOrganizationMembership where
  parseJSON :: Value -> Parser HookOrganizationMembership
parseJSON = String
-> (Object -> Parser HookOrganizationMembership)
-> Value
-> Parser HookOrganizationMembership
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookOrganizationMembership" ((Object -> Parser HookOrganizationMembership)
 -> Value -> Parser HookOrganizationMembership)
-> (Object -> Parser HookOrganizationMembership)
-> Value
-> Parser HookOrganizationMembership
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Text -> Text -> URL -> HookUser -> HookOrganizationMembership
HookOrganizationMembership
      (URL
 -> Text -> Text -> URL -> HookUser -> HookOrganizationMembership)
-> Parser URL
-> Parser
     (Text -> Text -> URL -> HookUser -> HookOrganizationMembership)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Text -> Text -> URL -> HookUser -> HookOrganizationMembership)
-> Parser Text
-> Parser (Text -> URL -> HookUser -> HookOrganizationMembership)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser (Text -> URL -> HookUser -> HookOrganizationMembership)
-> Parser Text
-> Parser (URL -> HookUser -> HookOrganizationMembership)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"role"
      Parser (URL -> HookUser -> HookOrganizationMembership)
-> Parser URL -> Parser (HookUser -> HookOrganizationMembership)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"organization_url"
      Parser (HookUser -> HookOrganizationMembership)
-> Parser HookUser -> Parser HookOrganizationMembership
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"

instance FromJSON HookTeam where
  parseJSON :: Value -> Parser HookTeam
parseJSON = String -> (Object -> Parser HookTeam) -> Value -> Parser HookTeam
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookTeam" ((Object -> Parser HookTeam) -> Value -> Parser HookTeam)
-> (Object -> Parser HookTeam) -> Value -> Parser HookTeam
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> Int -> Text -> Text -> Text -> URL -> URL -> URL -> HookTeam
HookTeam
      (Text
 -> Int -> Text -> Text -> Text -> URL -> URL -> URL -> HookTeam)
-> Parser Text
-> Parser
     (Int -> Text -> Text -> Text -> URL -> URL -> URL -> HookTeam)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser
  (Int -> Text -> Text -> Text -> URL -> URL -> URL -> HookTeam)
-> Parser Int
-> Parser (Text -> Text -> Text -> URL -> URL -> URL -> HookTeam)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (Text -> Text -> Text -> URL -> URL -> URL -> HookTeam)
-> Parser Text
-> Parser (Text -> Text -> URL -> URL -> URL -> HookTeam)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser (Text -> Text -> URL -> URL -> URL -> HookTeam)
-> Parser Text -> Parser (Text -> URL -> URL -> URL -> HookTeam)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"slug"
      Parser (Text -> URL -> URL -> URL -> HookTeam)
-> Parser Text -> Parser (URL -> URL -> URL -> HookTeam)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"permission"
      Parser (URL -> URL -> URL -> HookTeam)
-> Parser URL -> Parser (URL -> URL -> HookTeam)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser (URL -> URL -> HookTeam)
-> Parser URL -> Parser (URL -> HookTeam)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"members_url"
      Parser (URL -> HookTeam) -> Parser URL -> Parser HookTeam
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repositories_url"

instance FromJSON HookMarketplacePurchase where
  parseJSON :: Value -> Parser HookMarketplacePurchase
parseJSON = String
-> (Object -> Parser HookMarketplacePurchase)
-> Value
-> Parser HookMarketplacePurchase
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookMarketplacePurchase" ((Object -> Parser HookMarketplacePurchase)
 -> Value -> Parser HookMarketplacePurchase)
-> (Object -> Parser HookMarketplacePurchase)
-> Value
-> Parser HookMarketplacePurchase
forall a b. (a -> b) -> a -> b
$ \Object
o -> HookMarketplaceAccount
-> Maybe HookMarketplaceBillingCycle
-> Int
-> Bool
-> Maybe UTCTime
-> Maybe UTCTime
-> HookMarketplacePlan
-> HookMarketplacePurchase
HookMarketplacePurchase
      (HookMarketplaceAccount
 -> Maybe HookMarketplaceBillingCycle
 -> Int
 -> Bool
 -> Maybe UTCTime
 -> Maybe UTCTime
 -> HookMarketplacePlan
 -> HookMarketplacePurchase)
-> Parser HookMarketplaceAccount
-> Parser
     (Maybe HookMarketplaceBillingCycle
      -> Int
      -> Bool
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMarketplacePlan
      -> HookMarketplacePurchase)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookMarketplaceAccount
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"account"
      Parser
  (Maybe HookMarketplaceBillingCycle
   -> Int
   -> Bool
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMarketplacePlan
   -> HookMarketplacePurchase)
-> Parser (Maybe HookMarketplaceBillingCycle)
-> Parser
     (Int
      -> Bool
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMarketplacePlan
      -> HookMarketplacePurchase)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookMarketplaceBillingCycle)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"billing_cycle"
      Parser
  (Int
   -> Bool
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMarketplacePlan
   -> HookMarketplacePurchase)
-> Parser Int
-> Parser
     (Bool
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMarketplacePlan
      -> HookMarketplacePurchase)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"unit_count"
      Parser
  (Bool
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMarketplacePlan
   -> HookMarketplacePurchase)
-> Parser Bool
-> Parser
     (Maybe UTCTime
      -> Maybe UTCTime -> HookMarketplacePlan -> HookMarketplacePurchase)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"on_free_trial"
      Parser
  (Maybe UTCTime
   -> Maybe UTCTime -> HookMarketplacePlan -> HookMarketplacePurchase)
-> Parser (Maybe UTCTime)
-> Parser
     (Maybe UTCTime -> HookMarketplacePlan -> HookMarketplacePurchase)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((ZonedTime -> UTCTime) -> Maybe ZonedTime -> Maybe UTCTime
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap ZonedTime -> UTCTime
zonedTimeToUTC (Maybe ZonedTime -> Maybe UTCTime)
-> Parser (Maybe ZonedTime) -> Parser (Maybe UTCTime)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser (Maybe ZonedTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"free_trial_ends_on")
      Parser
  (Maybe UTCTime -> HookMarketplacePlan -> HookMarketplacePurchase)
-> Parser (Maybe UTCTime)
-> Parser (HookMarketplacePlan -> HookMarketplacePurchase)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((ZonedTime -> UTCTime) -> Maybe ZonedTime -> Maybe UTCTime
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap ZonedTime -> UTCTime
zonedTimeToUTC (Maybe ZonedTime -> Maybe UTCTime)
-> Parser (Maybe ZonedTime) -> Parser (Maybe UTCTime)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser (Maybe ZonedTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"next_billing_date")
      Parser (HookMarketplacePlan -> HookMarketplacePurchase)
-> Parser HookMarketplacePlan -> Parser HookMarketplacePurchase
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookMarketplacePlan
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"plan"

instance FromJSON HookMarketplaceAccount where
  parseJSON :: Value -> Parser HookMarketplaceAccount
parseJSON = String
-> (Object -> Parser HookMarketplaceAccount)
-> Value
-> Parser HookMarketplaceAccount
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookMarketplaceAccount" ((Object -> Parser HookMarketplaceAccount)
 -> Value -> Parser HookMarketplaceAccount)
-> (Object -> Parser HookMarketplaceAccount)
-> Value
-> Parser HookMarketplaceAccount
forall a b. (a -> b) -> a -> b
$ \Object
o -> OwnerType
-> Int -> Text -> Text -> Maybe Text -> HookMarketplaceAccount
HookMarketplaceAccount
      (OwnerType
 -> Int -> Text -> Text -> Maybe Text -> HookMarketplaceAccount)
-> Parser OwnerType
-> Parser
     (Int -> Text -> Text -> Maybe Text -> HookMarketplaceAccount)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser OwnerType
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"type"
      Parser
  (Int -> Text -> Text -> Maybe Text -> HookMarketplaceAccount)
-> Parser Int
-> Parser (Text -> Text -> Maybe Text -> HookMarketplaceAccount)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (Text -> Text -> Maybe Text -> HookMarketplaceAccount)
-> Parser Text
-> Parser (Text -> Maybe Text -> HookMarketplaceAccount)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser (Text -> Maybe Text -> HookMarketplaceAccount)
-> Parser Text -> Parser (Maybe Text -> HookMarketplaceAccount)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"login"
      Parser (Maybe Text -> HookMarketplaceAccount)
-> Parser (Maybe Text) -> Parser HookMarketplaceAccount
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"organization_billing_email"

instance FromJSON HookMarketplacePlan where
  parseJSON :: Value -> Parser HookMarketplacePlan
parseJSON = String
-> (Object -> Parser HookMarketplacePlan)
-> Value
-> Parser HookMarketplacePlan
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookMarketplacePlan" ((Object -> Parser HookMarketplacePlan)
 -> Value -> Parser HookMarketplacePlan)
-> (Object -> Parser HookMarketplacePlan)
-> Value
-> Parser HookMarketplacePlan
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int
-> Text
-> Text
-> Int
-> Int
-> HookMarketplacePlanPriceModel
-> Bool
-> Maybe Text
-> Vector Text
-> HookMarketplacePlan
HookMarketplacePlan
      (Int
 -> Text
 -> Text
 -> Int
 -> Int
 -> HookMarketplacePlanPriceModel
 -> Bool
 -> Maybe Text
 -> Vector Text
 -> HookMarketplacePlan)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Int
      -> Int
      -> HookMarketplacePlanPriceModel
      -> Bool
      -> Maybe Text
      -> Vector Text
      -> HookMarketplacePlan)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Int
   -> Int
   -> HookMarketplacePlanPriceModel
   -> Bool
   -> Maybe Text
   -> Vector Text
   -> HookMarketplacePlan)
-> Parser Text
-> Parser
     (Text
      -> Int
      -> Int
      -> HookMarketplacePlanPriceModel
      -> Bool
      -> Maybe Text
      -> Vector Text
      -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser
  (Text
   -> Int
   -> Int
   -> HookMarketplacePlanPriceModel
   -> Bool
   -> Maybe Text
   -> Vector Text
   -> HookMarketplacePlan)
-> Parser Text
-> Parser
     (Int
      -> Int
      -> HookMarketplacePlanPriceModel
      -> Bool
      -> Maybe Text
      -> Vector Text
      -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"description"
      Parser
  (Int
   -> Int
   -> HookMarketplacePlanPriceModel
   -> Bool
   -> Maybe Text
   -> Vector Text
   -> HookMarketplacePlan)
-> Parser Int
-> Parser
     (Int
      -> HookMarketplacePlanPriceModel
      -> Bool
      -> Maybe Text
      -> Vector Text
      -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"monthly_price_in_cents"
      Parser
  (Int
   -> HookMarketplacePlanPriceModel
   -> Bool
   -> Maybe Text
   -> Vector Text
   -> HookMarketplacePlan)
-> Parser Int
-> Parser
     (HookMarketplacePlanPriceModel
      -> Bool -> Maybe Text -> Vector Text -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"yearly_price_in_cents"
      Parser
  (HookMarketplacePlanPriceModel
   -> Bool -> Maybe Text -> Vector Text -> HookMarketplacePlan)
-> Parser HookMarketplacePlanPriceModel
-> Parser
     (Bool -> Maybe Text -> Vector Text -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookMarketplacePlanPriceModel
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"price_model"
      Parser (Bool -> Maybe Text -> Vector Text -> HookMarketplacePlan)
-> Parser Bool
-> Parser (Maybe Text -> Vector Text -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"has_free_trial"
      Parser (Maybe Text -> Vector Text -> HookMarketplacePlan)
-> Parser (Maybe Text)
-> Parser (Vector Text -> HookMarketplacePlan)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"unit_name"
      Parser (Vector Text -> HookMarketplacePlan)
-> Parser (Vector Text) -> Parser HookMarketplacePlan
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Vector Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"bullets"

instance FromJSON HookMilestone where
  parseJSON :: Value -> Parser HookMilestone
parseJSON = String
-> (Object -> Parser HookMilestone)
-> Value
-> Parser HookMilestone
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookMilestone" ((Object -> Parser HookMilestone) -> Value -> Parser HookMilestone)
-> (Object -> Parser HookMilestone)
-> Value
-> Parser HookMilestone
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> URL
-> Int
-> Text
-> Int
-> Text
-> Maybe Text
-> HookUser
-> Int
-> Int
-> Text
-> UTCTime
-> UTCTime
-> Maybe UTCTime
-> Maybe UTCTime
-> HookMilestone
HookMilestone
      (URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> Int
 -> Text
 -> Maybe Text
 -> HookUser
 -> Int
 -> Int
 -> Text
 -> UTCTime
 -> UTCTime
 -> Maybe UTCTime
 -> Maybe UTCTime
 -> HookMilestone)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (URL
   -> Int
   -> Text
   -> Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"labels_url"
      Parser
  (Int
   -> Text
   -> Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Int
-> Parser
     (Text
      -> Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Text
-> Parser
     (Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Int
-> Parser
     (Text
      -> Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"number"
      Parser
  (Text
   -> Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Text
-> Parser
     (Maybe Text
      -> HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"title"
      Parser
  (Maybe Text
   -> HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser (Maybe Text)
-> Parser
     (HookUser
      -> Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"description"
      Parser
  (HookUser
   -> Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser HookUser
-> Parser
     (Int
      -> Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"creator"
      Parser
  (Int
   -> Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Int
-> Parser
     (Int
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"open_issues"
      Parser
  (Int
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Int
-> Parser
     (Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"closed_issues"
      Parser
  (Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> HookMilestone)
-> Parser Text
-> Parser
     (UTCTime
      -> UTCTime -> Maybe UTCTime -> Maybe UTCTime -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser
  (UTCTime
   -> UTCTime -> Maybe UTCTime -> Maybe UTCTime -> HookMilestone)
-> Parser UTCTime
-> Parser
     (UTCTime -> Maybe UTCTime -> Maybe UTCTime -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> Maybe UTCTime -> Maybe UTCTime -> HookMilestone)
-> Parser UTCTime
-> Parser (Maybe UTCTime -> Maybe UTCTime -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (Maybe UTCTime -> Maybe UTCTime -> HookMilestone)
-> Parser (Maybe UTCTime)
-> Parser (Maybe UTCTime -> HookMilestone)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"due_on"
      Parser (Maybe UTCTime -> HookMilestone)
-> Parser (Maybe UTCTime) -> Parser HookMilestone
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"closed_at"

instance FromJSON HookMembership where
  parseJSON :: Value -> Parser HookMembership
parseJSON = String
-> (Object -> Parser HookMembership)
-> Value
-> Parser HookMembership
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookMembership" ((Object -> Parser HookMembership)
 -> Value -> Parser HookMembership)
-> (Object -> Parser HookMembership)
-> Value
-> Parser HookMembership
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL -> Text -> Text -> URL -> HookUser -> HookMembership
HookMembership
      (URL -> Text -> Text -> URL -> HookUser -> HookMembership)
-> Parser URL
-> Parser (Text -> Text -> URL -> HookUser -> HookMembership)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser (Text -> Text -> URL -> HookUser -> HookMembership)
-> Parser Text
-> Parser (Text -> URL -> HookUser -> HookMembership)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser (Text -> URL -> HookUser -> HookMembership)
-> Parser Text -> Parser (URL -> HookUser -> HookMembership)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"role"
      Parser (URL -> HookUser -> HookMembership)
-> Parser URL -> Parser (HookUser -> HookMembership)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"organization_url"
      Parser (HookUser -> HookMembership)
-> Parser HookUser -> Parser HookMembership
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"

instance FromJSON HookProject where
  parseJSON :: Value -> Parser HookProject
parseJSON = String
-> (Object -> Parser HookProject) -> Value -> Parser HookProject
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookProject" ((Object -> Parser HookProject) -> Value -> Parser HookProject)
-> (Object -> Parser HookProject) -> Value -> Parser HookProject
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> URL
-> Int
-> Text
-> Text
-> Text
-> Int
-> Text
-> HookUser
-> UTCTime
-> UTCTime
-> HookProject
HookProject
      (URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> Text
 -> Text
 -> Int
 -> Text
 -> HookUser
 -> UTCTime
 -> UTCTime
 -> HookProject)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> Text
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> HookProject)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"owner_url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> Text
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> HookProject)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> Text
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> Int
   -> Text
   -> Text
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> HookProject)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Text
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"columns_url"
      Parser
  (Int
   -> Text
   -> Text
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> HookProject)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> HookProject)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> Text
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> HookProject)
-> Parser Text
-> Parser
     (Text
      -> Int -> Text -> HookUser -> UTCTime -> UTCTime -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser
  (Text
   -> Int -> Text -> HookUser -> UTCTime -> UTCTime -> HookProject)
-> Parser Text
-> Parser
     (Int -> Text -> HookUser -> UTCTime -> UTCTime -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"body"
      Parser
  (Int -> Text -> HookUser -> UTCTime -> UTCTime -> HookProject)
-> Parser Int
-> Parser (Text -> HookUser -> UTCTime -> UTCTime -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"number"
      Parser (Text -> HookUser -> UTCTime -> UTCTime -> HookProject)
-> Parser Text
-> Parser (HookUser -> UTCTime -> UTCTime -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser (HookUser -> UTCTime -> UTCTime -> HookProject)
-> Parser HookUser -> Parser (UTCTime -> UTCTime -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"creator"
      Parser (UTCTime -> UTCTime -> HookProject)
-> Parser UTCTime -> Parser (UTCTime -> HookProject)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> HookProject)
-> Parser UTCTime -> Parser HookProject
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"

instance FromJSON HookProjectCard where
  parseJSON :: Value -> Parser HookProjectCard
parseJSON = String
-> (Object -> Parser HookProjectCard)
-> Value
-> Parser HookProjectCard
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookProjectCard" ((Object -> Parser HookProjectCard)
 -> Value -> Parser HookProjectCard)
-> (Object -> Parser HookProjectCard)
-> Value
-> Parser HookProjectCard
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> Int
-> Int
-> Text
-> Maybe Text
-> HookUser
-> UTCTime
-> UTCTime
-> URL
-> HookProjectCard
HookProjectCard
      (URL
 -> URL
 -> Int
 -> Int
 -> Text
 -> Maybe Text
 -> HookUser
 -> UTCTime
 -> UTCTime
 -> URL
 -> HookProjectCard)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> HookProjectCard)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> Int
   -> Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> HookProjectCard)
-> Parser URL
-> Parser
     (Int
      -> Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"column_url"
      Parser
  (Int
   -> Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> HookProjectCard)
-> Parser Int
-> Parser
     (Int
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"column_id"
      Parser
  (Int
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> HookProjectCard)
-> Parser Int
-> Parser
     (Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> HookProjectCard)
-> Parser Text
-> Parser
     (Maybe Text
      -> HookUser -> UTCTime -> UTCTime -> URL -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Maybe Text
   -> HookUser -> UTCTime -> UTCTime -> URL -> HookProjectCard)
-> Parser (Maybe Text)
-> Parser
     (HookUser -> UTCTime -> UTCTime -> URL -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"note"
      Parser (HookUser -> UTCTime -> UTCTime -> URL -> HookProjectCard)
-> Parser HookUser
-> Parser (UTCTime -> UTCTime -> URL -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"creator"
      Parser (UTCTime -> UTCTime -> URL -> HookProjectCard)
-> Parser UTCTime -> Parser (UTCTime -> URL -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> URL -> HookProjectCard)
-> Parser UTCTime -> Parser (URL -> HookProjectCard)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (URL -> HookProjectCard)
-> Parser URL -> Parser HookProjectCard
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"content_url"

instance FromJSON HookProjectColumn where
  parseJSON :: Value -> Parser HookProjectColumn
parseJSON = String
-> (Object -> Parser HookProjectColumn)
-> Value
-> Parser HookProjectColumn
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookProjectColumn" ((Object -> Parser HookProjectColumn)
 -> Value -> Parser HookProjectColumn)
-> (Object -> Parser HookProjectColumn)
-> Value
-> Parser HookProjectColumn
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> URL
-> Int
-> Text
-> Text
-> UTCTime
-> UTCTime
-> HookProjectColumn
HookProjectColumn
      (URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> Text
 -> UTCTime
 -> UTCTime
 -> HookProjectColumn)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> HookProjectColumn)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> HookProjectColumn)
-> Parser URL
-> Parser
     (URL
      -> Int -> Text -> Text -> UTCTime -> UTCTime -> HookProjectColumn)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"project_url"
      Parser
  (URL
   -> Int -> Text -> Text -> UTCTime -> UTCTime -> HookProjectColumn)
-> Parser URL
-> Parser
     (Int -> Text -> Text -> UTCTime -> UTCTime -> HookProjectColumn)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"cards_url"
      Parser
  (Int -> Text -> Text -> UTCTime -> UTCTime -> HookProjectColumn)
-> Parser Int
-> Parser (Text -> Text -> UTCTime -> UTCTime -> HookProjectColumn)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (Text -> Text -> UTCTime -> UTCTime -> HookProjectColumn)
-> Parser Text
-> Parser (Text -> UTCTime -> UTCTime -> HookProjectColumn)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser (Text -> UTCTime -> UTCTime -> HookProjectColumn)
-> Parser Text -> Parser (UTCTime -> UTCTime -> HookProjectColumn)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser (UTCTime -> UTCTime -> HookProjectColumn)
-> Parser UTCTime -> Parser (UTCTime -> HookProjectColumn)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> HookProjectColumn)
-> Parser UTCTime -> Parser HookProjectColumn
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"

instance FromJSON HookIssueLabels where
  parseJSON :: Value -> Parser HookIssueLabels
parseJSON = String
-> (Object -> Parser HookIssueLabels)
-> Value
-> Parser HookIssueLabels
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookIssueLabels" ((Object -> Parser HookIssueLabels)
 -> Value -> Parser HookIssueLabels)
-> (Object -> Parser HookIssueLabels)
-> Value
-> Parser HookIssueLabels
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe Int
-> Maybe Text -> URL -> Text -> Text -> Bool -> HookIssueLabels
HookIssueLabels
      (Maybe Int
 -> Maybe Text -> URL -> Text -> Text -> Bool -> HookIssueLabels)
-> Parser (Maybe Int)
-> Parser
     (Maybe Text -> URL -> Text -> Text -> Bool -> HookIssueLabels)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"id"
      Parser
  (Maybe Text -> URL -> Text -> Text -> Bool -> HookIssueLabels)
-> Parser (Maybe Text)
-> Parser (URL -> Text -> Text -> Bool -> HookIssueLabels)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"node_id"
      Parser (URL -> Text -> Text -> Bool -> HookIssueLabels)
-> Parser URL -> Parser (Text -> Text -> Bool -> HookIssueLabels)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser (Text -> Text -> Bool -> HookIssueLabels)
-> Parser Text -> Parser (Text -> Bool -> HookIssueLabels)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser (Text -> Bool -> HookIssueLabels)
-> Parser Text -> Parser (Bool -> HookIssueLabels)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"color"
      Parser (Bool -> HookIssueLabels)
-> Parser Bool -> Parser HookIssueLabels
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"default" Parser (Maybe Bool) -> Bool -> Parser Bool
forall a. Parser (Maybe a) -> a -> Parser a
.!= Bool
False

instance FromJSON HookCheckSuite where
  parseJSON :: Value -> Parser HookCheckSuite
parseJSON = String
-> (Object -> Parser HookCheckSuite)
-> Value
-> Parser HookCheckSuite
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCheckSuite" ((Object -> Parser HookCheckSuite)
 -> Value -> Parser HookCheckSuite)
-> (Object -> Parser HookCheckSuite)
-> Value
-> Parser HookCheckSuite
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int
-> Text
-> Maybe Text
-> Text
-> HookCheckSuiteStatus
-> Maybe HookCheckSuiteConclusion
-> URL
-> Maybe Text
-> Maybe Text
-> Vector HookChecksPullRequest
-> UTCTime
-> UTCTime
-> Maybe Int
-> Maybe URL
-> Maybe HookCheckSuiteCommit
-> HookCheckSuite
HookCheckSuite
      (Int
 -> Text
 -> Maybe Text
 -> Text
 -> HookCheckSuiteStatus
 -> Maybe HookCheckSuiteConclusion
 -> URL
 -> Maybe Text
 -> Maybe Text
 -> Vector HookChecksPullRequest
 -> UTCTime
 -> UTCTime
 -> Maybe Int
 -> Maybe URL
 -> Maybe HookCheckSuiteCommit
 -> HookCheckSuite)
-> Parser Int
-> Parser
     (Text
      -> Maybe Text
      -> Text
      -> HookCheckSuiteStatus
      -> Maybe HookCheckSuiteConclusion
      -> URL
      -> Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Maybe Text
   -> Text
   -> HookCheckSuiteStatus
   -> Maybe HookCheckSuiteConclusion
   -> URL
   -> Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser Text
-> Parser
     (Maybe Text
      -> Text
      -> HookCheckSuiteStatus
      -> Maybe HookCheckSuiteConclusion
      -> URL
      -> Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Maybe Text
   -> Text
   -> HookCheckSuiteStatus
   -> Maybe HookCheckSuiteConclusion
   -> URL
   -> Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser (Maybe Text)
-> Parser
     (Text
      -> HookCheckSuiteStatus
      -> Maybe HookCheckSuiteConclusion
      -> URL
      -> Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"head_branch"
      Parser
  (Text
   -> HookCheckSuiteStatus
   -> Maybe HookCheckSuiteConclusion
   -> URL
   -> Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser Text
-> Parser
     (HookCheckSuiteStatus
      -> Maybe HookCheckSuiteConclusion
      -> URL
      -> Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"head_sha"
      Parser
  (HookCheckSuiteStatus
   -> Maybe HookCheckSuiteConclusion
   -> URL
   -> Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser HookCheckSuiteStatus
-> Parser
     (Maybe HookCheckSuiteConclusion
      -> URL
      -> Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookCheckSuiteStatus
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"status"
      Parser
  (Maybe HookCheckSuiteConclusion
   -> URL
   -> Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser (Maybe HookCheckSuiteConclusion)
-> Parser
     (URL
      -> Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookCheckSuiteConclusion)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"conclusion"
      Parser
  (URL
   -> Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser URL
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Maybe Text
   -> Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"before"
      Parser
  (Maybe Text
   -> Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser (Maybe Text)
-> Parser
     (Vector HookChecksPullRequest
      -> UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"after"
      Parser
  (Vector HookChecksPullRequest
   -> UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser (Vector HookChecksPullRequest)
-> Parser
     (UTCTime
      -> UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Vector HookChecksPullRequest)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pull_requests"
      Parser
  (UTCTime
   -> UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser UTCTime
-> Parser
     (UTCTime
      -> Maybe Int
      -> Maybe URL
      -> Maybe HookCheckSuiteCommit
      -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser
  (UTCTime
   -> Maybe Int
   -> Maybe URL
   -> Maybe HookCheckSuiteCommit
   -> HookCheckSuite)
-> Parser UTCTime
-> Parser
     (Maybe Int
      -> Maybe URL -> Maybe HookCheckSuiteCommit -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser
  (Maybe Int
   -> Maybe URL -> Maybe HookCheckSuiteCommit -> HookCheckSuite)
-> Parser (Maybe Int)
-> Parser
     (Maybe URL -> Maybe HookCheckSuiteCommit -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"latest_check_runs_count"
      Parser (Maybe URL -> Maybe HookCheckSuiteCommit -> HookCheckSuite)
-> Parser (Maybe URL)
-> Parser (Maybe HookCheckSuiteCommit -> HookCheckSuite)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"check_runs_url"
      Parser (Maybe HookCheckSuiteCommit -> HookCheckSuite)
-> Parser (Maybe HookCheckSuiteCommit) -> Parser HookCheckSuite
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookCheckSuiteCommit)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"head_commit"

instance FromJSON HookCheckSuiteCommit where
  parseJSON :: Value -> Parser HookCheckSuiteCommit
parseJSON = String
-> (Object -> Parser HookCheckSuiteCommit)
-> Value
-> Parser HookCheckSuiteCommit
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCheckSuiteCommit" ((Object -> Parser HookCheckSuiteCommit)
 -> Value -> Parser HookCheckSuiteCommit)
-> (Object -> Parser HookCheckSuiteCommit)
-> Value
-> Parser HookCheckSuiteCommit
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text -> HookSimpleUser -> HookSimpleUser -> HookCheckSuiteCommit
HookCheckSuiteCommit
      (Text -> HookSimpleUser -> HookSimpleUser -> HookCheckSuiteCommit)
-> Parser Text
-> Parser
     (HookSimpleUser -> HookSimpleUser -> HookCheckSuiteCommit)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (HookSimpleUser -> HookSimpleUser -> HookCheckSuiteCommit)
-> Parser HookSimpleUser
-> Parser (HookSimpleUser -> HookCheckSuiteCommit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookSimpleUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"author"
      Parser (HookSimpleUser -> HookCheckSuiteCommit)
-> Parser HookSimpleUser -> Parser HookCheckSuiteCommit
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookSimpleUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"committer"

instance FromJSON HookCheckRun where
  parseJSON :: Value -> Parser HookCheckRun
parseJSON = String
-> (Object -> Parser HookCheckRun) -> Value -> Parser HookCheckRun
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCheckRun" ((Object -> Parser HookCheckRun) -> Value -> Parser HookCheckRun)
-> (Object -> Parser HookCheckRun) -> Value -> Parser HookCheckRun
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int
-> Text
-> Text
-> Text
-> URL
-> URL
-> URL
-> HookCheckRunStatus
-> Maybe HookCheckRunConclusion
-> UTCTime
-> Maybe UTCTime
-> HookCheckRunOutput
-> Text
-> HookCheckSuite
-> Vector HookChecksPullRequest
-> HookCheckRun
HookCheckRun
      (Int
 -> Text
 -> Text
 -> Text
 -> URL
 -> URL
 -> URL
 -> HookCheckRunStatus
 -> Maybe HookCheckRunConclusion
 -> UTCTime
 -> Maybe UTCTime
 -> HookCheckRunOutput
 -> Text
 -> HookCheckSuite
 -> Vector HookChecksPullRequest
 -> HookCheckRun)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Text
      -> URL
      -> URL
      -> URL
      -> HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Text
   -> URL
   -> URL
   -> URL
   -> HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> URL
      -> URL
      -> URL
      -> HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> Text
   -> URL
   -> URL
   -> URL
   -> HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser Text
-> Parser
     (Text
      -> URL
      -> URL
      -> URL
      -> HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"head_sha"
      Parser
  (Text
   -> URL
   -> URL
   -> URL
   -> HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser Text
-> Parser
     (URL
      -> URL
      -> URL
      -> HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"external_id"
      Parser
  (URL
   -> URL
   -> URL
   -> HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser URL
-> Parser
     (URL
      -> HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (URL
   -> HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser URL
-> Parser
     (HookCheckRunStatus
      -> Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"details_url"
      Parser
  (HookCheckRunStatus
   -> Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser HookCheckRunStatus
-> Parser
     (Maybe HookCheckRunConclusion
      -> UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookCheckRunStatus
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"status"
      Parser
  (Maybe HookCheckRunConclusion
   -> UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser (Maybe HookCheckRunConclusion)
-> Parser
     (UTCTime
      -> Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookCheckRunConclusion)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"conclusion"
      Parser
  (UTCTime
   -> Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser UTCTime
-> Parser
     (Maybe UTCTime
      -> HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"started_at"
      Parser
  (Maybe UTCTime
   -> HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser (Maybe UTCTime)
-> Parser
     (HookCheckRunOutput
      -> Text
      -> HookCheckSuite
      -> Vector HookChecksPullRequest
      -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"completed_at"
      Parser
  (HookCheckRunOutput
   -> Text
   -> HookCheckSuite
   -> Vector HookChecksPullRequest
   -> HookCheckRun)
-> Parser HookCheckRunOutput
-> Parser
     (Text
      -> HookCheckSuite -> Vector HookChecksPullRequest -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookCheckRunOutput
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"output"
      Parser
  (Text
   -> HookCheckSuite -> Vector HookChecksPullRequest -> HookCheckRun)
-> Parser Text
-> Parser
     (HookCheckSuite -> Vector HookChecksPullRequest -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"
      Parser
  (HookCheckSuite -> Vector HookChecksPullRequest -> HookCheckRun)
-> Parser HookCheckSuite
-> Parser (Vector HookChecksPullRequest -> HookCheckRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookCheckSuite
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"check_suite"
      Parser (Vector HookChecksPullRequest -> HookCheckRun)
-> Parser (Vector HookChecksPullRequest) -> Parser HookCheckRun
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Vector HookChecksPullRequest)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pull_requests"

instance FromJSON HookCheckRunOutput where
  parseJSON :: Value -> Parser HookCheckRunOutput
parseJSON = String
-> (Object -> Parser HookCheckRunOutput)
-> Value
-> Parser HookCheckRunOutput
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCheckRunOutput" ((Object -> Parser HookCheckRunOutput)
 -> Value -> Parser HookCheckRunOutput)
-> (Object -> Parser HookCheckRunOutput)
-> Value
-> Parser HookCheckRunOutput
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe Text
-> Maybe Text -> Maybe Text -> Int -> URL -> HookCheckRunOutput
HookCheckRunOutput
      (Maybe Text
 -> Maybe Text -> Maybe Text -> Int -> URL -> HookCheckRunOutput)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> Maybe Text -> Int -> URL -> HookCheckRunOutput)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"title"
      Parser
  (Maybe Text -> Maybe Text -> Int -> URL -> HookCheckRunOutput)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Int -> URL -> HookCheckRunOutput)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"summary"
      Parser (Maybe Text -> Int -> URL -> HookCheckRunOutput)
-> Parser (Maybe Text) -> Parser (Int -> URL -> HookCheckRunOutput)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"text"
      Parser (Int -> URL -> HookCheckRunOutput)
-> Parser Int -> Parser (URL -> HookCheckRunOutput)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"annotations_count"
      Parser (URL -> HookCheckRunOutput)
-> Parser URL -> Parser HookCheckRunOutput
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"annotations_url"

instance FromJSON HookCheckRunRequestedAction where
  parseJSON :: Value -> Parser HookCheckRunRequestedAction
parseJSON = String
-> (Object -> Parser HookCheckRunRequestedAction)
-> Value
-> Parser HookCheckRunRequestedAction
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCheckRunRequestedAction" ((Object -> Parser HookCheckRunRequestedAction)
 -> Value -> Parser HookCheckRunRequestedAction)
-> (Object -> Parser HookCheckRunRequestedAction)
-> Value
-> Parser HookCheckRunRequestedAction
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text -> HookCheckRunRequestedAction
HookCheckRunRequestedAction
      (Text -> HookCheckRunRequestedAction)
-> Parser Text -> Parser HookCheckRunRequestedAction
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"identifier"

instance FromJSON HookChecksInstallation where
  parseJSON :: Value -> Parser HookChecksInstallation
parseJSON = String
-> (Object -> Parser HookChecksInstallation)
-> Value
-> Parser HookChecksInstallation
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookChecksInstallation" ((Object -> Parser HookChecksInstallation)
 -> Value -> Parser HookChecksInstallation)
-> (Object -> Parser HookChecksInstallation)
-> Value
-> Parser HookChecksInstallation
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int -> Text -> HookChecksInstallation
HookChecksInstallation
      (Int -> Text -> HookChecksInstallation)
-> Parser Int -> Parser (Text -> HookChecksInstallation)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (Text -> HookChecksInstallation)
-> Parser Text -> Parser HookChecksInstallation
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"

instance FromJSON HookChecksPullRequest where
  parseJSON :: Value -> Parser HookChecksPullRequest
parseJSON = String
-> (Object -> Parser HookChecksPullRequest)
-> Value
-> Parser HookChecksPullRequest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookChecksPullRequest" ((Object -> Parser HookChecksPullRequest)
 -> Value -> Parser HookChecksPullRequest)
-> (Object -> Parser HookChecksPullRequest)
-> Value
-> Parser HookChecksPullRequest
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Int
-> Int
-> HookChecksPullRequestTarget
-> HookChecksPullRequestTarget
-> HookChecksPullRequest
HookChecksPullRequest
      (URL
 -> Int
 -> Int
 -> HookChecksPullRequestTarget
 -> HookChecksPullRequestTarget
 -> HookChecksPullRequest)
-> Parser URL
-> Parser
     (Int
      -> Int
      -> HookChecksPullRequestTarget
      -> HookChecksPullRequestTarget
      -> HookChecksPullRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Int
   -> Int
   -> HookChecksPullRequestTarget
   -> HookChecksPullRequestTarget
   -> HookChecksPullRequest)
-> Parser Int
-> Parser
     (Int
      -> HookChecksPullRequestTarget
      -> HookChecksPullRequestTarget
      -> HookChecksPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Int
   -> HookChecksPullRequestTarget
   -> HookChecksPullRequestTarget
   -> HookChecksPullRequest)
-> Parser Int
-> Parser
     (HookChecksPullRequestTarget
      -> HookChecksPullRequestTarget -> HookChecksPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"number"
      Parser
  (HookChecksPullRequestTarget
   -> HookChecksPullRequestTarget -> HookChecksPullRequest)
-> Parser HookChecksPullRequestTarget
-> Parser (HookChecksPullRequestTarget -> HookChecksPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookChecksPullRequestTarget
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"head"
      Parser (HookChecksPullRequestTarget -> HookChecksPullRequest)
-> Parser HookChecksPullRequestTarget
-> Parser HookChecksPullRequest
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookChecksPullRequestTarget
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"base"

instance FromJSON HookChecksPullRequestTarget where
    parseJSON :: Value -> Parser HookChecksPullRequestTarget
parseJSON = String
-> (Object -> Parser HookChecksPullRequestTarget)
-> Value
-> Parser HookChecksPullRequestTarget
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"PullRequestTarget" ((Object -> Parser HookChecksPullRequestTarget)
 -> Value -> Parser HookChecksPullRequestTarget)
-> (Object -> Parser HookChecksPullRequestTarget)
-> Value
-> Parser HookChecksPullRequestTarget
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> Text
-> HookChecksPullRequestRepository
-> HookChecksPullRequestTarget
HookChecksPullRequestTarget
      (Text
 -> Text
 -> HookChecksPullRequestRepository
 -> HookChecksPullRequestTarget)
-> Parser Text
-> Parser
     (Text
      -> HookChecksPullRequestRepository -> HookChecksPullRequestTarget)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"sha"
      Parser
  (Text
   -> HookChecksPullRequestRepository -> HookChecksPullRequestTarget)
-> Parser Text
-> Parser
     (HookChecksPullRequestRepository -> HookChecksPullRequestTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"ref"
      Parser
  (HookChecksPullRequestRepository -> HookChecksPullRequestTarget)
-> Parser HookChecksPullRequestRepository
-> Parser HookChecksPullRequestTarget
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookChecksPullRequestRepository
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repo"

instance FromJSON HookChecksPullRequestRepository where
  parseJSON :: Value -> Parser HookChecksPullRequestRepository
parseJSON = String
-> (Object -> Parser HookChecksPullRequestRepository)
-> Value
-> Parser HookChecksPullRequestRepository
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookChecksPullRequestRepository" ((Object -> Parser HookChecksPullRequestRepository)
 -> Value -> Parser HookChecksPullRequestRepository)
-> (Object -> Parser HookChecksPullRequestRepository)
-> Value
-> Parser HookChecksPullRequestRepository
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int -> URL -> Text -> HookChecksPullRequestRepository
HookChecksPullRequestRepository
      (Int -> URL -> Text -> HookChecksPullRequestRepository)
-> Parser Int
-> Parser (URL -> Text -> HookChecksPullRequestRepository)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (URL -> Text -> HookChecksPullRequestRepository)
-> Parser URL -> Parser (Text -> HookChecksPullRequestRepository)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser (Text -> HookChecksPullRequestRepository)
-> Parser Text -> Parser HookChecksPullRequestRepository
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"name"

instance FromJSON HookCommit where
  parseJSON :: Value -> Parser HookCommit
parseJSON = String
-> (Object -> Parser HookCommit) -> Value -> Parser HookCommit
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCommit" ((Object -> Parser HookCommit) -> Value -> Parser HookCommit)
-> (Object -> Parser HookCommit) -> Value -> Parser HookCommit
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> URL
-> Maybe URL
-> Maybe URL
-> Either HookSimpleUser HookUser
-> Either HookSimpleUser HookUser
-> HookCommit
HookCommit
      (Text
 -> URL
 -> Maybe URL
 -> Maybe URL
 -> Either HookSimpleUser HookUser
 -> Either HookSimpleUser HookUser
 -> HookCommit)
-> Parser Text
-> Parser
     (URL
      -> Maybe URL
      -> Maybe URL
      -> Either HookSimpleUser HookUser
      -> Either HookSimpleUser HookUser
      -> HookCommit)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"sha" Parser Text -> Parser Text -> Parser Text
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id")
      Parser
  (URL
   -> Maybe URL
   -> Maybe URL
   -> Either HookSimpleUser HookUser
   -> Either HookSimpleUser HookUser
   -> HookCommit)
-> Parser URL
-> Parser
     (Maybe URL
      -> Maybe URL
      -> Either HookSimpleUser HookUser
      -> Either HookSimpleUser HookUser
      -> HookCommit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Maybe URL
   -> Maybe URL
   -> Either HookSimpleUser HookUser
   -> Either HookSimpleUser HookUser
   -> HookCommit)
-> Parser (Maybe URL)
-> Parser
     (Maybe URL
      -> Either HookSimpleUser HookUser
      -> Either HookSimpleUser HookUser
      -> HookCommit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"html_url"
      Parser
  (Maybe URL
   -> Either HookSimpleUser HookUser
   -> Either HookSimpleUser HookUser
   -> HookCommit)
-> Parser (Maybe URL)
-> Parser
     (Either HookSimpleUser HookUser
      -> Either HookSimpleUser HookUser -> HookCommit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"comments_url"
      Parser
  (Either HookSimpleUser HookUser
   -> Either HookSimpleUser HookUser -> HookCommit)
-> Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser -> HookCommit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((HookUser -> Either HookSimpleUser HookUser
forall a b. b -> Either a b
Right (HookUser -> Either HookSimpleUser HookUser)
-> Parser HookUser -> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"author")      Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> (HookSimpleUser -> Either HookSimpleUser HookUser
forall a b. a -> Either a b
Left (HookSimpleUser -> Either HookSimpleUser HookUser)
-> Parser HookSimpleUser -> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookSimpleUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"author"))       -- try complex form first

      Parser (Either HookSimpleUser HookUser -> HookCommit)
-> Parser (Either HookSimpleUser HookUser) -> Parser HookCommit
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((HookUser -> Either HookSimpleUser HookUser
forall a b. b -> Either a b
Right (HookUser -> Either HookSimpleUser HookUser)
-> Parser HookUser -> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"committer")   Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser)
-> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> (HookSimpleUser -> Either HookSimpleUser HookUser
forall a b. a -> Either a b
Left (HookSimpleUser -> Either HookSimpleUser HookUser)
-> Parser HookSimpleUser -> Parser (Either HookSimpleUser HookUser)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser HookSimpleUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"committer"))    -- try complex form first


instance FromJSON HookRelease where
  parseJSON :: Value -> Parser HookRelease
parseJSON = String
-> (Object -> Parser HookRelease) -> Value -> Parser HookRelease
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookRelease" ((Object -> Parser HookRelease) -> Value -> Parser HookRelease)
-> (Object -> Parser HookRelease) -> Value -> Parser HookRelease
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> URL
-> URL
-> Int
-> Text
-> Text
-> Text
-> Maybe Text
-> Bool
-> HookUser
-> Bool
-> UTCTime
-> Maybe UTCTime
-> URL
-> URL
-> Maybe Text
-> HookRelease
HookRelease
      (URL
 -> URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> Text
 -> Text
 -> Maybe Text
 -> Bool
 -> HookUser
 -> Bool
 -> UTCTime
 -> Maybe UTCTime
 -> URL
 -> URL
 -> Maybe Text
 -> HookRelease)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"assets_url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"upload_url"
      Parser
  (URL
   -> Int
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (Int
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser Text
-> Parser
     (Text
      -> Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"tag_name"
      Parser
  (Text
   -> Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser Text
-> Parser
     (Maybe Text
      -> Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"target_commitish"
      Parser
  (Maybe Text
   -> Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser (Maybe Text)
-> Parser
     (Bool
      -> HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"name"
      Parser
  (Bool
   -> HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser Bool
-> Parser
     (HookUser
      -> Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"draft"
      Parser
  (HookUser
   -> Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser HookUser
-> Parser
     (Bool
      -> UTCTime
      -> Maybe UTCTime
      -> URL
      -> URL
      -> Maybe Text
      -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"author"
      Parser
  (Bool
   -> UTCTime
   -> Maybe UTCTime
   -> URL
   -> URL
   -> Maybe Text
   -> HookRelease)
-> Parser Bool
-> Parser
     (UTCTime
      -> Maybe UTCTime -> URL -> URL -> Maybe Text -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"prerelease"
      Parser
  (UTCTime
   -> Maybe UTCTime -> URL -> URL -> Maybe Text -> HookRelease)
-> Parser UTCTime
-> Parser
     (Maybe UTCTime -> URL -> URL -> Maybe Text -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (Maybe UTCTime -> URL -> URL -> Maybe Text -> HookRelease)
-> Parser (Maybe UTCTime)
-> Parser (URL -> URL -> Maybe Text -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"published_at"
      Parser (URL -> URL -> Maybe Text -> HookRelease)
-> Parser URL -> Parser (URL -> Maybe Text -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"tarball_url"
      Parser (URL -> Maybe Text -> HookRelease)
-> Parser URL -> Parser (Maybe Text -> HookRelease)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"zipball_url"
      Parser (Maybe Text -> HookRelease)
-> Parser (Maybe Text) -> Parser HookRelease
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"body"

instance FromJSON HookPullRequest where
  parseJSON :: Value -> Parser HookPullRequest
parseJSON = String
-> (Object -> Parser HookPullRequest)
-> Value
-> Parser HookPullRequest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookPullRequest" ((Object -> Parser HookPullRequest)
 -> Value -> Parser HookPullRequest)
-> (Object -> Parser HookPullRequest)
-> Value
-> Parser HookPullRequest
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Int
-> Text
-> URL
-> URL
-> URL
-> URL
-> Int
-> Text
-> Bool
-> Text
-> HookUser
-> Text
-> UTCTime
-> UTCTime
-> Maybe UTCTime
-> Maybe UTCTime
-> Maybe Text
-> Maybe HookUser
-> Maybe HookMilestone
-> URL
-> URL
-> URL
-> URL
-> URL
-> PullRequestTarget
-> PullRequestTarget
-> Maybe Text
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> HookPullRequest
HookPullRequest
      (URL
 -> Int
 -> Text
 -> URL
 -> URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> Bool
 -> Text
 -> HookUser
 -> Text
 -> UTCTime
 -> UTCTime
 -> Maybe UTCTime
 -> Maybe UTCTime
 -> Maybe Text
 -> Maybe HookUser
 -> Maybe HookMilestone
 -> URL
 -> URL
 -> URL
 -> URL
 -> URL
 -> PullRequestTarget
 -> PullRequestTarget
 -> Maybe Text
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> HookPullRequest)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> URL
      -> URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Int
   -> Text
   -> URL
   -> URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Int
-> Parser
     (Text
      -> URL
      -> URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> URL
   -> URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Text
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (URL
   -> URL
   -> URL
   -> Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"diff_url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"patch_url"
      Parser
  (URL
   -> Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"issue_url"
      Parser
  (Int
   -> Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Int
-> Parser
     (Text
      -> Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"number"
      Parser
  (Text
   -> Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Text
-> Parser
     (Bool
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser
  (Bool
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Bool
-> Parser
     (Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Bool
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"locked"
      Parser
  (Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Text
-> Parser
     (HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"title"
      Parser
  (HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser HookUser
-> Parser
     (Text
      -> UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser
  (Text
   -> UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser Text
-> Parser
     (UTCTime
      -> UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"body" Parser (Maybe Text) -> Text -> Parser Text
forall a. Parser (Maybe a) -> a -> Parser a
.!= Text
""
      Parser
  (UTCTime
   -> UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser UTCTime
-> Parser
     (UTCTime
      -> Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser
  (UTCTime
   -> Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser UTCTime
-> Parser
     (Maybe UTCTime
      -> Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser
  (Maybe UTCTime
   -> Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe UTCTime)
-> Parser
     (Maybe UTCTime
      -> Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"closed_at"
      Parser
  (Maybe UTCTime
   -> Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe UTCTime)
-> Parser
     (Maybe Text
      -> Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe UTCTime)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"merged_at"
      Parser
  (Maybe Text
   -> Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe Text)
-> Parser
     (Maybe HookUser
      -> Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"merge_commit_sha"
      Parser
  (Maybe HookUser
   -> Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe HookUser)
-> Parser
     (Maybe HookMilestone
      -> URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookUser)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"assignee"
      Parser
  (Maybe HookMilestone
   -> URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe HookMilestone)
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookMilestone)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"milestone"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"commits_url"
      Parser
  (URL
   -> URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"review_comments_url"
      Parser
  (URL
   -> URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"review_comment_url"
      Parser
  (URL
   -> URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (URL
      -> PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"comments_url"
      Parser
  (URL
   -> PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser URL
-> Parser
     (PullRequestTarget
      -> PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"statuses_url"
      Parser
  (PullRequestTarget
   -> PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser PullRequestTarget
-> Parser
     (PullRequestTarget
      -> Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser PullRequestTarget
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"base"
      Parser
  (PullRequestTarget
   -> Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser PullRequestTarget
-> Parser
     (Maybe Text
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser PullRequestTarget
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"head"
      -- <*> o .: "merged"

      -- <*> o .: "mergeable"

      Parser
  (Maybe Text
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe Text)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"mergeable_state"
      -- <*> o .: "merged_by"

      Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"comments"
      Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> HookPullRequest)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int -> Maybe Int -> Maybe Int -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"review_comments"
      Parser
  (Maybe Int
   -> Maybe Int -> Maybe Int -> Maybe Int -> HookPullRequest)
-> Parser (Maybe Int)
-> Parser (Maybe Int -> Maybe Int -> Maybe Int -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"commits"
      Parser (Maybe Int -> Maybe Int -> Maybe Int -> HookPullRequest)
-> Parser (Maybe Int)
-> Parser (Maybe Int -> Maybe Int -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"additions"
      Parser (Maybe Int -> Maybe Int -> HookPullRequest)
-> Parser (Maybe Int) -> Parser (Maybe Int -> HookPullRequest)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"deletions"
      Parser (Maybe Int -> HookPullRequest)
-> Parser (Maybe Int) -> Parser HookPullRequest
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"changed_files"

instance FromJSON PullRequestTarget where
    parseJSON :: Value -> Parser PullRequestTarget
parseJSON = String
-> (Object -> Parser PullRequestTarget)
-> Value
-> Parser PullRequestTarget
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"PullRequestTarget" ((Object -> Parser PullRequestTarget)
 -> Value -> Parser PullRequestTarget)
-> (Object -> Parser PullRequestTarget)
-> Value
-> Parser PullRequestTarget
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> HookUser
-> Maybe HookRepository
-> Text
-> Text
-> PullRequestTarget
PullRequestTarget
      (Text
 -> HookUser
 -> Maybe HookRepository
 -> Text
 -> Text
 -> PullRequestTarget)
-> Parser Text
-> Parser
     (HookUser
      -> Maybe HookRepository -> Text -> Text -> PullRequestTarget)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"sha"
      Parser
  (HookUser
   -> Maybe HookRepository -> Text -> Text -> PullRequestTarget)
-> Parser HookUser
-> Parser
     (Maybe HookRepository -> Text -> Text -> PullRequestTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser (Maybe HookRepository -> Text -> Text -> PullRequestTarget)
-> Parser (Maybe HookRepository)
-> Parser (Text -> Text -> PullRequestTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe HookRepository)
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repo"
      Parser (Text -> Text -> PullRequestTarget)
-> Parser Text -> Parser (Text -> PullRequestTarget)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"label"
      Parser (Text -> PullRequestTarget)
-> Parser Text -> Parser PullRequestTarget
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"ref"

instance FromJSON HookPullRequestReview where
  parseJSON :: Value -> Parser HookPullRequestReview
parseJSON = String
-> (Object -> Parser HookPullRequestReview)
-> Value
-> Parser HookPullRequestReview
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookPullRequestReview" ((Object -> Parser HookPullRequestReview)
 -> Value -> Parser HookPullRequestReview)
-> (Object -> Parser HookPullRequestReview)
-> Value
-> Parser HookPullRequestReview
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int
-> Text
-> HookUser
-> Text
-> UTCTime
-> Text
-> URL
-> URL
-> HookPullRequestReview
HookPullRequestReview
      (Int
 -> Text
 -> HookUser
 -> Text
 -> UTCTime
 -> Text
 -> URL
 -> URL
 -> HookPullRequestReview)
-> Parser Int
-> Parser
     (Text
      -> HookUser
      -> Text
      -> UTCTime
      -> Text
      -> URL
      -> URL
      -> HookPullRequestReview)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> HookUser
   -> Text
   -> UTCTime
   -> Text
   -> URL
   -> URL
   -> HookPullRequestReview)
-> Parser Text
-> Parser
     (HookUser
      -> Text -> UTCTime -> Text -> URL -> URL -> HookPullRequestReview)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (HookUser
   -> Text -> UTCTime -> Text -> URL -> URL -> HookPullRequestReview)
-> Parser HookUser
-> Parser
     (Text -> UTCTime -> Text -> URL -> URL -> HookPullRequestReview)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser
  (Text -> UTCTime -> Text -> URL -> URL -> HookPullRequestReview)
-> Parser Text
-> Parser (UTCTime -> Text -> URL -> URL -> HookPullRequestReview)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"body"
      Parser (UTCTime -> Text -> URL -> URL -> HookPullRequestReview)
-> Parser UTCTime
-> Parser (Text -> URL -> URL -> HookPullRequestReview)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"submitted_at"
      Parser (Text -> URL -> URL -> HookPullRequestReview)
-> Parser Text -> Parser (URL -> URL -> HookPullRequestReview)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser (URL -> URL -> HookPullRequestReview)
-> Parser URL -> Parser (URL -> HookPullRequestReview)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser (URL -> HookPullRequestReview)
-> Parser URL -> Parser HookPullRequestReview
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pull_request_url"

instance FromJSON HookInstallation where
  parseJSON :: Value -> Parser HookInstallation
parseJSON = String
-> (Object -> Parser HookInstallation)
-> Value
-> Parser HookInstallation
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookInstallation" ((Object -> Parser HookInstallation)
 -> Value -> Parser HookInstallation)
-> (Object -> Parser HookInstallation)
-> Value
-> Parser HookInstallation
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int -> HookUser -> Text -> URL -> URL -> HookInstallation
HookInstallation
      (Int -> HookUser -> Text -> URL -> URL -> HookInstallation)
-> Parser Int
-> Parser (HookUser -> Text -> URL -> URL -> HookInstallation)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser (HookUser -> Text -> URL -> URL -> HookInstallation)
-> Parser HookUser
-> Parser (Text -> URL -> URL -> HookInstallation)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"account"
      Parser (Text -> URL -> URL -> HookInstallation)
-> Parser Text -> Parser (URL -> URL -> HookInstallation)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repository_selection"
      Parser (URL -> URL -> HookInstallation)
-> Parser URL -> Parser (URL -> HookInstallation)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"access_tokens_url"
      Parser (URL -> HookInstallation)
-> Parser URL -> Parser HookInstallation
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repositories_url"

instance FromJSON HookDeployment where
  parseJSON :: Value -> Parser HookDeployment
parseJSON = String
-> (Object -> Parser HookDeployment)
-> Value
-> Parser HookDeployment
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookDeployment" ((Object -> Parser HookDeployment)
 -> Value -> Parser HookDeployment)
-> (Object -> Parser HookDeployment)
-> Value
-> Parser HookDeployment
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Int
-> Text
-> Text
-> Text
-> Text
-> Text
-> Maybe Text
-> HookUser
-> UTCTime
-> UTCTime
-> URL
-> URL
-> HookDeployment
HookDeployment
      (URL
 -> Int
 -> Text
 -> Text
 -> Text
 -> Text
 -> Text
 -> Maybe Text
 -> HookUser
 -> UTCTime
 -> UTCTime
 -> URL
 -> URL
 -> HookDeployment)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Text
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeployment)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Int
   -> Text
   -> Text
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeployment)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeployment)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Text
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> Text
   -> Text
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeployment)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"sha"
      Parser
  (Text
   -> Text
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeployment)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"ref"
      Parser
  (Text
   -> Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeployment)
-> Parser Text
-> Parser
     (Text
      -> Maybe Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"task"
      Parser
  (Text
   -> Maybe Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeployment)
-> Parser Text
-> Parser
     (Maybe Text
      -> HookUser -> UTCTime -> UTCTime -> URL -> URL -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"environment"
      Parser
  (Maybe Text
   -> HookUser -> UTCTime -> UTCTime -> URL -> URL -> HookDeployment)
-> Parser (Maybe Text)
-> Parser
     (HookUser -> UTCTime -> UTCTime -> URL -> URL -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"description"
      Parser
  (HookUser -> UTCTime -> UTCTime -> URL -> URL -> HookDeployment)
-> Parser HookUser
-> Parser (UTCTime -> UTCTime -> URL -> URL -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"creator"
      Parser (UTCTime -> UTCTime -> URL -> URL -> HookDeployment)
-> Parser UTCTime
-> Parser (UTCTime -> URL -> URL -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> URL -> URL -> HookDeployment)
-> Parser UTCTime -> Parser (URL -> URL -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (URL -> URL -> HookDeployment)
-> Parser URL -> Parser (URL -> HookDeployment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"statuses_url"
      Parser (URL -> HookDeployment)
-> Parser URL -> Parser HookDeployment
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repository_url"

instance FromJSON HookDeploymentStatus where
  parseJSON :: Value -> Parser HookDeploymentStatus
parseJSON = String
-> (Object -> Parser HookDeploymentStatus)
-> Value
-> Parser HookDeploymentStatus
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookDeploymentStatus" ((Object -> Parser HookDeploymentStatus)
 -> Value -> Parser HookDeploymentStatus)
-> (Object -> Parser HookDeploymentStatus)
-> Value
-> Parser HookDeploymentStatus
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Int
-> Text
-> Text
-> HookUser
-> Maybe Text
-> Maybe URL
-> UTCTime
-> UTCTime
-> URL
-> URL
-> HookDeploymentStatus
HookDeploymentStatus
      (URL
 -> Int
 -> Text
 -> Text
 -> HookUser
 -> Maybe Text
 -> Maybe URL
 -> UTCTime
 -> UTCTime
 -> URL
 -> URL
 -> HookDeploymentStatus)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Text
      -> HookUser
      -> Maybe Text
      -> Maybe URL
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeploymentStatus)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Int
   -> Text
   -> Text
   -> HookUser
   -> Maybe Text
   -> Maybe URL
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeploymentStatus)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> HookUser
      -> Maybe Text
      -> Maybe URL
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> HookUser
   -> Maybe Text
   -> Maybe URL
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeploymentStatus)
-> Parser Text
-> Parser
     (Text
      -> HookUser
      -> Maybe Text
      -> Maybe URL
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> HookUser
   -> Maybe Text
   -> Maybe URL
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeploymentStatus)
-> Parser Text
-> Parser
     (HookUser
      -> Maybe Text
      -> Maybe URL
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"state"
      Parser
  (HookUser
   -> Maybe Text
   -> Maybe URL
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeploymentStatus)
-> Parser HookUser
-> Parser
     (Maybe Text
      -> Maybe URL
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"creator"
      Parser
  (Maybe Text
   -> Maybe URL
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookDeploymentStatus)
-> Parser (Maybe Text)
-> Parser
     (Maybe URL
      -> UTCTime -> UTCTime -> URL -> URL -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"description"
      Parser
  (Maybe URL
   -> UTCTime -> UTCTime -> URL -> URL -> HookDeploymentStatus)
-> Parser (Maybe URL)
-> Parser
     (UTCTime -> UTCTime -> URL -> URL -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe URL)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"target_url"
      Parser (UTCTime -> UTCTime -> URL -> URL -> HookDeploymentStatus)
-> Parser UTCTime
-> Parser (UTCTime -> URL -> URL -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> URL -> URL -> HookDeploymentStatus)
-> Parser UTCTime -> Parser (URL -> URL -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (URL -> URL -> HookDeploymentStatus)
-> Parser URL -> Parser (URL -> HookDeploymentStatus)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"deployment_url"
      Parser (URL -> HookDeploymentStatus)
-> Parser URL -> Parser HookDeploymentStatus
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"repository_url"

instance FromJSON HookWikiPage where
  parseJSON :: Value -> Parser HookWikiPage
parseJSON = String
-> (Object -> Parser HookWikiPage) -> Value -> Parser HookWikiPage
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookWikiPage" ((Object -> Parser HookWikiPage) -> Value -> Parser HookWikiPage)
-> (Object -> Parser HookWikiPage) -> Value -> Parser HookWikiPage
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text -> Text -> Maybe Text -> Text -> Text -> URL -> HookWikiPage
HookWikiPage
      (Text -> Text -> Maybe Text -> Text -> Text -> URL -> HookWikiPage)
-> Parser Text
-> Parser
     (Text -> Maybe Text -> Text -> Text -> URL -> HookWikiPage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"page_name"
      Parser (Text -> Maybe Text -> Text -> Text -> URL -> HookWikiPage)
-> Parser Text
-> Parser (Maybe Text -> Text -> Text -> URL -> HookWikiPage)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"title"
      Parser (Maybe Text -> Text -> Text -> URL -> HookWikiPage)
-> Parser (Maybe Text)
-> Parser (Text -> Text -> URL -> HookWikiPage)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"summary"
      Parser (Text -> Text -> URL -> HookWikiPage)
-> Parser Text -> Parser (Text -> URL -> HookWikiPage)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"action"
      Parser (Text -> URL -> HookWikiPage)
-> Parser Text -> Parser (URL -> HookWikiPage)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"sha"
      Parser (URL -> HookWikiPage) -> Parser URL -> Parser HookWikiPage
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"

instance FromJSON HookPageBuildResult where
  parseJSON :: Value -> Parser HookPageBuildResult
parseJSON = String
-> (Object -> Parser HookPageBuildResult)
-> Value
-> Parser HookPageBuildResult
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookPageBuildResult" ((Object -> Parser HookPageBuildResult)
 -> Value -> Parser HookPageBuildResult)
-> (Object -> Parser HookPageBuildResult)
-> Value
-> Parser HookPageBuildResult
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Text
-> Maybe Text
-> HookUser
-> Text
-> Int
-> UTCTime
-> UTCTime
-> HookPageBuildResult
HookPageBuildResult
      (URL
 -> Text
 -> Maybe Text
 -> HookUser
 -> Text
 -> Int
 -> UTCTime
 -> UTCTime
 -> HookPageBuildResult)
-> Parser URL
-> Parser
     (Text
      -> Maybe Text
      -> HookUser
      -> Text
      -> Int
      -> UTCTime
      -> UTCTime
      -> HookPageBuildResult)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Text
   -> Maybe Text
   -> HookUser
   -> Text
   -> Int
   -> UTCTime
   -> UTCTime
   -> HookPageBuildResult)
-> Parser Text
-> Parser
     (Maybe Text
      -> HookUser
      -> Text
      -> Int
      -> UTCTime
      -> UTCTime
      -> HookPageBuildResult)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"status"
      Parser
  (Maybe Text
   -> HookUser
   -> Text
   -> Int
   -> UTCTime
   -> UTCTime
   -> HookPageBuildResult)
-> Parser (Maybe Text)
-> Parser
     (HookUser
      -> Text -> Int -> UTCTime -> UTCTime -> HookPageBuildResult)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Object
o Object -> Key -> Parser Object
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"error" Parser Object
-> (Object -> Parser (Maybe Text)) -> Parser (Maybe Text)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \Object
e -> Object
e Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"message")
      Parser
  (HookUser
   -> Text -> Int -> UTCTime -> UTCTime -> HookPageBuildResult)
-> Parser HookUser
-> Parser
     (Text -> Int -> UTCTime -> UTCTime -> HookPageBuildResult)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pusher"
      Parser (Text -> Int -> UTCTime -> UTCTime -> HookPageBuildResult)
-> Parser Text
-> Parser (Int -> UTCTime -> UTCTime -> HookPageBuildResult)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"commit"
      Parser (Int -> UTCTime -> UTCTime -> HookPageBuildResult)
-> Parser Int -> Parser (UTCTime -> UTCTime -> HookPageBuildResult)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"duration"
      Parser (UTCTime -> UTCTime -> HookPageBuildResult)
-> Parser UTCTime -> Parser (UTCTime -> HookPageBuildResult)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> HookPageBuildResult)
-> Parser UTCTime -> Parser HookPageBuildResult
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"

instance FromJSON HookIssueComment where
  parseJSON :: Value -> Parser HookIssueComment
parseJSON = String
-> (Object -> Parser HookIssueComment)
-> Value
-> Parser HookIssueComment
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookIssueComment" ((Object -> Parser HookIssueComment)
 -> Value -> Parser HookIssueComment)
-> (Object -> Parser HookIssueComment)
-> Value
-> Parser HookIssueComment
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> URL
-> Int
-> Text
-> HookUser
-> UTCTime
-> UTCTime
-> Text
-> HookIssueComment
HookIssueComment
      (URL
 -> URL
 -> URL
 -> Int
 -> Text
 -> HookUser
 -> UTCTime
 -> UTCTime
 -> Text
 -> HookIssueComment)
-> Parser URL
-> Parser
     (URL
      -> URL
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookIssueComment)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> URL
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookIssueComment)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (URL
   -> Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookIssueComment)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> HookUser
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"issue_url"
      Parser
  (Int
   -> Text
   -> HookUser
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookIssueComment)
-> Parser Int
-> Parser
     (Text
      -> HookUser -> UTCTime -> UTCTime -> Text -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> HookUser -> UTCTime -> UTCTime -> Text -> HookIssueComment)
-> Parser Text
-> Parser
     (HookUser -> UTCTime -> UTCTime -> Text -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser (HookUser -> UTCTime -> UTCTime -> Text -> HookIssueComment)
-> Parser HookUser
-> Parser (UTCTime -> UTCTime -> Text -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser (UTCTime -> UTCTime -> Text -> HookIssueComment)
-> Parser UTCTime -> Parser (UTCTime -> Text -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> Text -> HookIssueComment)
-> Parser UTCTime -> Parser (Text -> HookIssueComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (Text -> HookIssueComment)
-> Parser Text -> Parser HookIssueComment
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"body"

instance FromJSON HookCommitComment where
  parseJSON :: Value -> Parser HookCommitComment
parseJSON = String
-> (Object -> Parser HookCommitComment)
-> Value
-> Parser HookCommitComment
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookCommitComment" ((Object -> Parser HookCommitComment)
 -> Value -> Parser HookCommitComment)
-> (Object -> Parser HookCommitComment)
-> Value
-> Parser HookCommitComment
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> URL
-> Int
-> Text
-> HookUser
-> Maybe Int
-> Maybe Int
-> Maybe Text
-> Text
-> UTCTime
-> UTCTime
-> Text
-> HookCommitComment
HookCommitComment
      (URL
 -> URL
 -> Int
 -> Text
 -> HookUser
 -> Maybe Int
 -> Maybe Int
 -> Maybe Text
 -> Text
 -> UTCTime
 -> UTCTime
 -> Text
 -> HookCommitComment)
-> Parser URL
-> Parser
     (URL
      -> Int
      -> Text
      -> HookUser
      -> Maybe Int
      -> Maybe Int
      -> Maybe Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookCommitComment)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (URL
   -> Int
   -> Text
   -> HookUser
   -> Maybe Int
   -> Maybe Int
   -> Maybe Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookCommitComment)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> HookUser
      -> Maybe Int
      -> Maybe Int
      -> Maybe Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser
  (Int
   -> Text
   -> HookUser
   -> Maybe Int
   -> Maybe Int
   -> Maybe Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookCommitComment)
-> Parser Int
-> Parser
     (Text
      -> HookUser
      -> Maybe Int
      -> Maybe Int
      -> Maybe Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> HookUser
   -> Maybe Int
   -> Maybe Int
   -> Maybe Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookCommitComment)
-> Parser Text
-> Parser
     (HookUser
      -> Maybe Int
      -> Maybe Int
      -> Maybe Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (HookUser
   -> Maybe Int
   -> Maybe Int
   -> Maybe Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookCommitComment)
-> Parser HookUser
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookCommitComment)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Text
      -> Text
      -> UTCTime
      -> UTCTime
      -> Text
      -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"position"
      Parser
  (Maybe Int
   -> Maybe Text
   -> Text
   -> UTCTime
   -> UTCTime
   -> Text
   -> HookCommitComment)
-> Parser (Maybe Int)
-> Parser
     (Maybe Text
      -> Text -> UTCTime -> UTCTime -> Text -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"line"
      Parser
  (Maybe Text
   -> Text -> UTCTime -> UTCTime -> Text -> HookCommitComment)
-> Parser (Maybe Text)
-> Parser (Text -> UTCTime -> UTCTime -> Text -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"path"
      Parser (Text -> UTCTime -> UTCTime -> Text -> HookCommitComment)
-> Parser Text
-> Parser (UTCTime -> UTCTime -> Text -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"commit_id"
      Parser (UTCTime -> UTCTime -> Text -> HookCommitComment)
-> Parser UTCTime -> Parser (UTCTime -> Text -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> Text -> HookCommitComment)
-> Parser UTCTime -> Parser (Text -> HookCommitComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (Text -> HookCommitComment)
-> Parser Text -> Parser HookCommitComment
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"body"

instance FromJSON HookPullRequestReviewComment where
  parseJSON :: Value -> Parser HookPullRequestReviewComment
parseJSON = String
-> (Object -> Parser HookPullRequestReviewComment)
-> Value
-> Parser HookPullRequestReviewComment
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"HookPullRequestReviewComment" ((Object -> Parser HookPullRequestReviewComment)
 -> Value -> Parser HookPullRequestReviewComment)
-> (Object -> Parser HookPullRequestReviewComment)
-> Value
-> Parser HookPullRequestReviewComment
forall a b. (a -> b) -> a -> b
$ \Object
o -> URL
-> Int
-> Text
-> Text
-> Text
-> Int
-> Int
-> Text
-> Text
-> HookUser
-> Text
-> UTCTime
-> UTCTime
-> URL
-> URL
-> HookPullRequestReviewComment
HookPullRequestReviewComment
      (URL
 -> Int
 -> Text
 -> Text
 -> Text
 -> Int
 -> Int
 -> Text
 -> Text
 -> HookUser
 -> Text
 -> UTCTime
 -> UTCTime
 -> URL
 -> URL
 -> HookPullRequestReviewComment)
-> Parser URL
-> Parser
     (Int
      -> Text
      -> Text
      -> Text
      -> Int
      -> Int
      -> Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"url"
      Parser
  (Int
   -> Text
   -> Text
   -> Text
   -> Int
   -> Int
   -> Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> Text
      -> Int
      -> Int
      -> Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      Parser
  (Text
   -> Text
   -> Text
   -> Int
   -> Int
   -> Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Text
-> Parser
     (Text
      -> Text
      -> Int
      -> Int
      -> Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"node_id"
      Parser
  (Text
   -> Text
   -> Int
   -> Int
   -> Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Text
-> Parser
     (Text
      -> Int
      -> Int
      -> Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"diff_hunk"
      Parser
  (Text
   -> Int
   -> Int
   -> Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Text
-> Parser
     (Int
      -> Int
      -> Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"path"
      Parser
  (Int
   -> Int
   -> Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Int
-> Parser
     (Int
      -> Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"position"
      Parser
  (Int
   -> Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Int
-> Parser
     (Text
      -> Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Int
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"original_position"
      Parser
  (Text
   -> Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Text
-> Parser
     (Text
      -> HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"commit_id"
      Parser
  (Text
   -> HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Text
-> Parser
     (HookUser
      -> Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"original_commit_id"
      Parser
  (HookUser
   -> Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser HookUser
-> Parser
     (Text
      -> UTCTime
      -> UTCTime
      -> URL
      -> URL
      -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser HookUser
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"
      Parser
  (Text
   -> UTCTime
   -> UTCTime
   -> URL
   -> URL
   -> HookPullRequestReviewComment)
-> Parser Text
-> Parser
     (UTCTime -> UTCTime -> URL -> URL -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"body"
      Parser
  (UTCTime -> UTCTime -> URL -> URL -> HookPullRequestReviewComment)
-> Parser UTCTime
-> Parser (UTCTime -> URL -> URL -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"created_at"
      Parser (UTCTime -> URL -> URL -> HookPullRequestReviewComment)
-> Parser UTCTime
-> Parser (URL -> URL -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser UTCTime
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"updated_at"
      Parser (URL -> URL -> HookPullRequestReviewComment)
-> Parser URL -> Parser (URL -> HookPullRequestReviewComment)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"html_url"
      Parser (URL -> HookPullRequestReviewComment)
-> Parser URL -> Parser HookPullRequestReviewComment
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Key -> Parser URL
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"pull_request_url"