{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-} module GitHub.Data.Statuses where import GitHub.Data.Definitions import GitHub.Data.Name (Name) import GitHub.Data.Id (Id) import GitHub.Data.URL (URL) import GitHub.Internal.Prelude import Prelude () import GitHub.Data.GitData (Commit) import GitHub.Data.Repos (RepoRef) import qualified Data.Text as T data StatusState = StatusPending | StatusSuccess | StatusError | StatusFailure deriving (Int -> StatusState -> ShowS [StatusState] -> ShowS StatusState -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [StatusState] -> ShowS $cshowList :: [StatusState] -> ShowS show :: StatusState -> String $cshow :: StatusState -> String showsPrec :: Int -> StatusState -> ShowS $cshowsPrec :: Int -> StatusState -> ShowS Show, Typeable StatusState StatusState -> DataType StatusState -> Constr (forall b. Data b => b -> b) -> StatusState -> StatusState 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) -> StatusState -> u forall u. (forall d. Data d => d -> u) -> StatusState -> [u] forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> StatusState -> r forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> StatusState -> r forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c StatusState forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> StatusState -> c StatusState forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c StatusState) forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c StatusState) gmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState $cgmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState gmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState $cgmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState gmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState $cgmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> StatusState -> m StatusState gmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> StatusState -> u $cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> StatusState -> u gmapQ :: forall u. (forall d. Data d => d -> u) -> StatusState -> [u] $cgmapQ :: forall u. (forall d. Data d => d -> u) -> StatusState -> [u] gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> StatusState -> r $cgmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> StatusState -> r gmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> StatusState -> r $cgmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> StatusState -> r gmapT :: (forall b. Data b => b -> b) -> StatusState -> StatusState $cgmapT :: (forall b. Data b => b -> b) -> StatusState -> StatusState dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c StatusState) $cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c StatusState) dataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c StatusState) $cdataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c StatusState) dataTypeOf :: StatusState -> DataType $cdataTypeOf :: StatusState -> DataType toConstr :: StatusState -> Constr $ctoConstr :: StatusState -> Constr gunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c StatusState $cgunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c StatusState gfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> StatusState -> c StatusState $cgfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> StatusState -> c StatusState Data, Int -> StatusState StatusState -> Int StatusState -> [StatusState] StatusState -> StatusState StatusState -> StatusState -> [StatusState] StatusState -> StatusState -> StatusState -> [StatusState] 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 :: StatusState -> StatusState -> StatusState -> [StatusState] $cenumFromThenTo :: StatusState -> StatusState -> StatusState -> [StatusState] enumFromTo :: StatusState -> StatusState -> [StatusState] $cenumFromTo :: StatusState -> StatusState -> [StatusState] enumFromThen :: StatusState -> StatusState -> [StatusState] $cenumFromThen :: StatusState -> StatusState -> [StatusState] enumFrom :: StatusState -> [StatusState] $cenumFrom :: StatusState -> [StatusState] fromEnum :: StatusState -> Int $cfromEnum :: StatusState -> Int toEnum :: Int -> StatusState $ctoEnum :: Int -> StatusState pred :: StatusState -> StatusState $cpred :: StatusState -> StatusState succ :: StatusState -> StatusState $csucc :: StatusState -> StatusState Enum, StatusState forall a. a -> a -> Bounded a maxBound :: StatusState $cmaxBound :: StatusState minBound :: StatusState $cminBound :: StatusState Bounded, Typeable, StatusState -> StatusState -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: StatusState -> StatusState -> Bool $c/= :: StatusState -> StatusState -> Bool == :: StatusState -> StatusState -> Bool $c== :: StatusState -> StatusState -> Bool Eq, Eq StatusState StatusState -> StatusState -> Bool StatusState -> StatusState -> Ordering StatusState -> StatusState -> StatusState 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 :: StatusState -> StatusState -> StatusState $cmin :: StatusState -> StatusState -> StatusState max :: StatusState -> StatusState -> StatusState $cmax :: StatusState -> StatusState -> StatusState >= :: StatusState -> StatusState -> Bool $c>= :: StatusState -> StatusState -> Bool > :: StatusState -> StatusState -> Bool $c> :: StatusState -> StatusState -> Bool <= :: StatusState -> StatusState -> Bool $c<= :: StatusState -> StatusState -> Bool < :: StatusState -> StatusState -> Bool $c< :: StatusState -> StatusState -> Bool compare :: StatusState -> StatusState -> Ordering $ccompare :: StatusState -> StatusState -> Ordering Ord, forall x. Rep StatusState x -> StatusState forall x. StatusState -> Rep StatusState x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep StatusState x -> StatusState $cfrom :: forall x. StatusState -> Rep StatusState x Generic) instance NFData StatusState where rnf :: StatusState -> () rnf = forall a. (Generic a, GNFData (Rep a)) => a -> () genericRnf instance Binary StatusState instance FromJSON StatusState where parseJSON :: Value -> Parser StatusState parseJSON = forall a. String -> (Text -> Parser a) -> Value -> Parser a withText String "StatusState" forall a b. (a -> b) -> a -> b $ \Text t -> case Text -> Text T.toLower Text t of Text "pending" -> forall (f :: * -> *) a. Applicative f => a -> f a pure StatusState StatusPending Text "success" -> forall (f :: * -> *) a. Applicative f => a -> f a pure StatusState StatusSuccess Text "error" -> forall (f :: * -> *) a. Applicative f => a -> f a pure StatusState StatusError Text "failure" -> forall (f :: * -> *) a. Applicative f => a -> f a pure StatusState StatusFailure Text _ -> forall (m :: * -> *) a. MonadFail m => String -> m a fail forall a b. (a -> b) -> a -> b $ String "Unknown StatusState: " forall a. Semigroup a => a -> a -> a <> Text -> String T.unpack Text t instance ToJSON StatusState where toJSON :: StatusState -> Value toJSON StatusState StatusPending = Text -> Value String Text "pending" toJSON StatusState StatusSuccess = Text -> Value String Text "success" toJSON StatusState StatusError = Text -> Value String Text "error" toJSON StatusState StatusFailure = Text -> Value String Text "failure" data Status = Status { Status -> UTCTime statusCreatedAt :: !UTCTime , Status -> UTCTime statusUpdatedAt :: !UTCTime , Status -> StatusState statusState :: !StatusState , Status -> Maybe URL statusTargetUrl :: !(Maybe URL) , Status -> Maybe Text statusDescription :: !(Maybe Text) , Status -> Id Status statusId :: !(Id Status) , Status -> URL statusUrl :: !URL , Status -> Maybe Text statusContext :: !(Maybe Text) , Status -> Maybe SimpleUser statusCreator :: !(Maybe SimpleUser) } deriving (Int -> Status -> ShowS [Status] -> ShowS Status -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Status] -> ShowS $cshowList :: [Status] -> ShowS show :: Status -> String $cshow :: Status -> String showsPrec :: Int -> Status -> ShowS $cshowsPrec :: Int -> Status -> ShowS Show, Typeable Status Status -> DataType Status -> Constr (forall b. Data b => b -> b) -> Status -> Status 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) -> Status -> u forall u. (forall d. Data d => d -> u) -> Status -> [u] forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Status -> r forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Status -> r forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> Status -> m Status forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> Status -> m Status forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Status forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Status -> c Status forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Status) forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Status) gmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> Status -> m Status $cgmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> Status -> m Status gmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> Status -> m Status $cgmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> Status -> m Status gmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> Status -> m Status $cgmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> Status -> m Status gmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> Status -> u $cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> Status -> u gmapQ :: forall u. (forall d. Data d => d -> u) -> Status -> [u] $cgmapQ :: forall u. (forall d. Data d => d -> u) -> Status -> [u] gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Status -> r $cgmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Status -> r gmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Status -> r $cgmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Status -> r gmapT :: (forall b. Data b => b -> b) -> Status -> Status $cgmapT :: (forall b. Data b => b -> b) -> Status -> Status dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Status) $cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Status) dataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Status) $cdataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Status) dataTypeOf :: Status -> DataType $cdataTypeOf :: Status -> DataType toConstr :: Status -> Constr $ctoConstr :: Status -> Constr gunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Status $cgunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Status gfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Status -> c Status $cgfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Status -> c Status Data, Typeable, Status -> Status -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Status -> Status -> Bool $c/= :: Status -> Status -> Bool == :: Status -> Status -> Bool $c== :: Status -> Status -> Bool Eq, Eq Status Status -> Status -> Bool Status -> Status -> Ordering Status -> Status -> Status 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 :: Status -> Status -> Status $cmin :: Status -> Status -> Status max :: Status -> Status -> Status $cmax :: Status -> Status -> Status >= :: Status -> Status -> Bool $c>= :: Status -> Status -> Bool > :: Status -> Status -> Bool $c> :: Status -> Status -> Bool <= :: Status -> Status -> Bool $c<= :: Status -> Status -> Bool < :: Status -> Status -> Bool $c< :: Status -> Status -> Bool compare :: Status -> Status -> Ordering $ccompare :: Status -> Status -> Ordering Ord, forall x. Rep Status x -> Status forall x. Status -> Rep Status x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Status x -> Status $cfrom :: forall x. Status -> Rep Status x Generic) instance FromJSON Status where parseJSON :: Value -> Parser Status parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a withObject String "Status" forall a b. (a -> b) -> a -> b $ \Object o -> UTCTime -> UTCTime -> StatusState -> Maybe URL -> Maybe Text -> Id Status -> URL -> Maybe Text -> Maybe SimpleUser -> Status Status forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "created_at" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "updated_at" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "state" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser (Maybe a) .:? Key "target_url" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser (Maybe a) .:? Key "description" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "id" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "url" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser (Maybe a) .:? Key "context" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser (Maybe a) .:? Key "creator" data NewStatus = NewStatus { NewStatus -> StatusState newStatusState :: !StatusState , NewStatus -> Maybe URL newStatusTargetUrl :: !(Maybe URL) , NewStatus -> Maybe Text newStatusDescription :: !(Maybe Text) , NewStatus -> Maybe Text newStatusContext :: !(Maybe Text) } deriving (Int -> NewStatus -> ShowS [NewStatus] -> ShowS NewStatus -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [NewStatus] -> ShowS $cshowList :: [NewStatus] -> ShowS show :: NewStatus -> String $cshow :: NewStatus -> String showsPrec :: Int -> NewStatus -> ShowS $cshowsPrec :: Int -> NewStatus -> ShowS Show, Typeable NewStatus NewStatus -> DataType NewStatus -> Constr (forall b. Data b => b -> b) -> NewStatus -> NewStatus 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) -> NewStatus -> u forall u. (forall d. Data d => d -> u) -> NewStatus -> [u] forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> NewStatus -> r forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> NewStatus -> r forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c NewStatus forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> NewStatus -> c NewStatus forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c NewStatus) forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c NewStatus) gmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus $cgmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus gmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus $cgmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus gmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus $cgmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> NewStatus -> m NewStatus gmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> NewStatus -> u $cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> NewStatus -> u gmapQ :: forall u. (forall d. Data d => d -> u) -> NewStatus -> [u] $cgmapQ :: forall u. (forall d. Data d => d -> u) -> NewStatus -> [u] gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> NewStatus -> r $cgmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> NewStatus -> r gmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> NewStatus -> r $cgmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> NewStatus -> r gmapT :: (forall b. Data b => b -> b) -> NewStatus -> NewStatus $cgmapT :: (forall b. Data b => b -> b) -> NewStatus -> NewStatus dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c NewStatus) $cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c NewStatus) dataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c NewStatus) $cdataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c NewStatus) dataTypeOf :: NewStatus -> DataType $cdataTypeOf :: NewStatus -> DataType toConstr :: NewStatus -> Constr $ctoConstr :: NewStatus -> Constr gunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c NewStatus $cgunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c NewStatus gfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> NewStatus -> c NewStatus $cgfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> NewStatus -> c NewStatus Data, Typeable, NewStatus -> NewStatus -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: NewStatus -> NewStatus -> Bool $c/= :: NewStatus -> NewStatus -> Bool == :: NewStatus -> NewStatus -> Bool $c== :: NewStatus -> NewStatus -> Bool Eq, Eq NewStatus NewStatus -> NewStatus -> Bool NewStatus -> NewStatus -> Ordering NewStatus -> NewStatus -> NewStatus 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 :: NewStatus -> NewStatus -> NewStatus $cmin :: NewStatus -> NewStatus -> NewStatus max :: NewStatus -> NewStatus -> NewStatus $cmax :: NewStatus -> NewStatus -> NewStatus >= :: NewStatus -> NewStatus -> Bool $c>= :: NewStatus -> NewStatus -> Bool > :: NewStatus -> NewStatus -> Bool $c> :: NewStatus -> NewStatus -> Bool <= :: NewStatus -> NewStatus -> Bool $c<= :: NewStatus -> NewStatus -> Bool < :: NewStatus -> NewStatus -> Bool $c< :: NewStatus -> NewStatus -> Bool compare :: NewStatus -> NewStatus -> Ordering $ccompare :: NewStatus -> NewStatus -> Ordering Ord, forall x. Rep NewStatus x -> NewStatus forall x. NewStatus -> Rep NewStatus x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep NewStatus x -> NewStatus $cfrom :: forall x. NewStatus -> Rep NewStatus x Generic) instance NFData NewStatus where rnf :: NewStatus -> () rnf = forall a. (Generic a, GNFData (Rep a)) => a -> () genericRnf instance Binary NewStatus instance ToJSON NewStatus where toJSON :: NewStatus -> Value toJSON (NewStatus StatusState s Maybe URL t Maybe Text d Maybe Text c) = [Pair] -> Value object forall a b. (a -> b) -> a -> b $ forall a. (a -> Bool) -> [a] -> [a] filter forall {a}. (a, Value) -> Bool notNull forall a b. (a -> b) -> a -> b $ [ Key "state" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv .= StatusState s , Key "target_url" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv .= Maybe URL t , Key "description" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv .= Maybe Text d , Key "context" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv .= Maybe Text c ] where notNull :: (a, Value) -> Bool notNull (a _, Value Null) = Bool False notNull (a _, Value _) = Bool True data CombinedStatus = CombinedStatus { CombinedStatus -> StatusState combinedStatusState :: !StatusState , CombinedStatus -> Name Commit combinedStatusSha :: !(Name Commit) , CombinedStatus -> Int combinedStatusTotalCount :: !Int , CombinedStatus -> Vector Status combinedStatusStatuses :: !(Vector Status) , CombinedStatus -> RepoRef combinedStatusRepository :: !RepoRef , CombinedStatus -> URL combinedStatusCommitUrl :: !URL , CombinedStatus -> URL combinedStatusUrl :: !URL } deriving (Int -> CombinedStatus -> ShowS [CombinedStatus] -> ShowS CombinedStatus -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [CombinedStatus] -> ShowS $cshowList :: [CombinedStatus] -> ShowS show :: CombinedStatus -> String $cshow :: CombinedStatus -> String showsPrec :: Int -> CombinedStatus -> ShowS $cshowsPrec :: Int -> CombinedStatus -> ShowS Show, Typeable CombinedStatus CombinedStatus -> DataType CombinedStatus -> Constr (forall b. Data b => b -> b) -> CombinedStatus -> CombinedStatus 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) -> CombinedStatus -> u forall u. (forall d. Data d => d -> u) -> CombinedStatus -> [u] forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> CombinedStatus -> r forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> CombinedStatus -> r forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c CombinedStatus forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> CombinedStatus -> c CombinedStatus forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c CombinedStatus) forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c CombinedStatus) gmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus $cgmapMo :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus gmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus $cgmapMp :: forall (m :: * -> *). MonadPlus m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus gmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus $cgmapM :: forall (m :: * -> *). Monad m => (forall d. Data d => d -> m d) -> CombinedStatus -> m CombinedStatus gmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> CombinedStatus -> u $cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> CombinedStatus -> u gmapQ :: forall u. (forall d. Data d => d -> u) -> CombinedStatus -> [u] $cgmapQ :: forall u. (forall d. Data d => d -> u) -> CombinedStatus -> [u] gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> CombinedStatus -> r $cgmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> CombinedStatus -> r gmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> CombinedStatus -> r $cgmapQl :: forall r r'. (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> CombinedStatus -> r gmapT :: (forall b. Data b => b -> b) -> CombinedStatus -> CombinedStatus $cgmapT :: (forall b. Data b => b -> b) -> CombinedStatus -> CombinedStatus dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c CombinedStatus) $cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *). Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c CombinedStatus) dataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c CombinedStatus) $cdataCast1 :: forall (t :: * -> *) (c :: * -> *). Typeable t => (forall d. Data d => c (t d)) -> Maybe (c CombinedStatus) dataTypeOf :: CombinedStatus -> DataType $cdataTypeOf :: CombinedStatus -> DataType toConstr :: CombinedStatus -> Constr $ctoConstr :: CombinedStatus -> Constr gunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c CombinedStatus $cgunfold :: forall (c :: * -> *). (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c CombinedStatus gfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> CombinedStatus -> c CombinedStatus $cgfoldl :: forall (c :: * -> *). (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> CombinedStatus -> c CombinedStatus Data, Typeable, CombinedStatus -> CombinedStatus -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: CombinedStatus -> CombinedStatus -> Bool $c/= :: CombinedStatus -> CombinedStatus -> Bool == :: CombinedStatus -> CombinedStatus -> Bool $c== :: CombinedStatus -> CombinedStatus -> Bool Eq, Eq CombinedStatus CombinedStatus -> CombinedStatus -> Bool CombinedStatus -> CombinedStatus -> Ordering CombinedStatus -> CombinedStatus -> CombinedStatus 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 :: CombinedStatus -> CombinedStatus -> CombinedStatus $cmin :: CombinedStatus -> CombinedStatus -> CombinedStatus max :: CombinedStatus -> CombinedStatus -> CombinedStatus $cmax :: CombinedStatus -> CombinedStatus -> CombinedStatus >= :: CombinedStatus -> CombinedStatus -> Bool $c>= :: CombinedStatus -> CombinedStatus -> Bool > :: CombinedStatus -> CombinedStatus -> Bool $c> :: CombinedStatus -> CombinedStatus -> Bool <= :: CombinedStatus -> CombinedStatus -> Bool $c<= :: CombinedStatus -> CombinedStatus -> Bool < :: CombinedStatus -> CombinedStatus -> Bool $c< :: CombinedStatus -> CombinedStatus -> Bool compare :: CombinedStatus -> CombinedStatus -> Ordering $ccompare :: CombinedStatus -> CombinedStatus -> Ordering Ord, forall x. Rep CombinedStatus x -> CombinedStatus forall x. CombinedStatus -> Rep CombinedStatus x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep CombinedStatus x -> CombinedStatus $cfrom :: forall x. CombinedStatus -> Rep CombinedStatus x Generic) instance FromJSON CombinedStatus where parseJSON :: Value -> Parser CombinedStatus parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a withObject String "CombinedStatus" forall a b. (a -> b) -> a -> b $ \Object o -> StatusState -> Name Commit -> Int -> Vector Status -> RepoRef -> URL -> URL -> CombinedStatus CombinedStatus forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "state" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "sha" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "total_count" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "statuses" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "repository" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "commit_url" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Object o forall a. FromJSON a => Object -> Key -> Parser a .: Key "url"