Safe Haskell	None
Language	Haskell2010

Zuul.Status

Contents

Status data types
Convenient functions

Description

The zuul status data type

Synopsis

data Job = Job {
- jobName :: Text
- jobUuid :: Maybe Text
- jobResult :: Maybe Text
}
data Change = Change {
- changeId :: Maybe Text
- changeRef :: Text
- changeProject :: Text
- changeLive :: Bool
- changeActive :: Bool
- changeJobs :: [Job]
}
newtype Changes = Changes [Change]
data ChangeQueue = ChangeQueue {
- changeQueueName :: Text
- changeQueueHeads :: [Changes]
}
data Pipeline = Pipeline {
- pipelineName :: Text
- pipelineChangeQueues :: [ChangeQueue]
}
data Status = Status {
- statusZuulVersion :: Text
- statusPipelines :: [Pipeline]
}
pipelineChanges :: Text -> Maybe Text -> Status -> Maybe [Change]
liveChanges :: [Change] -> [Change]
changeJobUuid :: [Change] -> [Text]

Status data types

data Job Source #

Constructors

Job
Fields jobName :: Text jobUuid :: Maybe Text jobResult :: Maybe Text

Instances

Instances details

Show Job Source #
Instance details Defined in Zuul.Status Methods showsPrec :: Int -> Job -> ShowS # show :: Job -> String # showList :: [Job] -> ShowS #
Generic Job Source #
Instance details Defined in Zuul.Status Associated Types type Rep Job :: Type -> Type # Methods from :: Job -> Rep Job x # to :: Rep Job x -> Job #
FromJSON Job Source #
Instance details Defined in Zuul.Status Methods parseJSON :: Value -> Parser Job # parseJSONList :: Value -> Parser [Job] #
type Rep Job Source #
Instance details Defined in Zuul.Status type Rep Job = D1 ('MetaData "Job" "Zuul.Status" "zuul-0.0.0.0-IdeecVaPpZS5SpfMJpAFET" 'False) (C1 ('MetaCons "Job" 'PrefixI 'True) (S1 ('MetaSel ('Just "jobName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "jobUuid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "jobResult") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)))))

data Change Source #

Constructors

Change
Fields changeId :: Maybe Text changeRef :: Text changeProject :: Text changeLive :: Bool changeActive :: Bool changeJobs :: [Job]

Instances

Instances details

Show Change Source #
Instance details Defined in Zuul.Status Methods showsPrec :: Int -> Change -> ShowS # show :: Change -> String # showList :: [Change] -> ShowS #
Generic Change Source #
Instance details Defined in Zuul.Status Associated Types type Rep Change :: Type -> Type # Methods from :: Change -> Rep Change x # to :: Rep Change x -> Change #
FromJSON Change Source #
Instance details Defined in Zuul.Status Methods parseJSON :: Value -> Parser Change # parseJSONList :: Value -> Parser [Change] #
type Rep Change Source #
Instance details Defined in Zuul.Status type Rep Change = D1 ('MetaData "Change" "Zuul.Status" "zuul-0.0.0.0-IdeecVaPpZS5SpfMJpAFET" 'False) (C1 ('MetaCons "Change" 'PrefixI 'True) ((S1 ('MetaSel ('Just "changeId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: (S1 ('MetaSel ('Just "changeRef") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "changeProject") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :: (S1 ('MetaSel ('Just "changeLive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :: (S1 ('MetaSel ('Just "changeActive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "changeJobs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Job])))))

newtype Changes Source #

Constructors

Changes [Change]

Instances

Instances details

Show Changes Source #
Instance details Defined in Zuul.Status Methods showsPrec :: Int -> Changes -> ShowS # show :: Changes -> String # showList :: [Changes] -> ShowS #
Generic Changes Source #
Instance details Defined in Zuul.Status Associated Types type Rep Changes :: Type -> Type # Methods from :: Changes -> Rep Changes x # to :: Rep Changes x -> Changes #
FromJSON Changes Source #
Instance details Defined in Zuul.Status Methods parseJSON :: Value -> Parser Changes # parseJSONList :: Value -> Parser [Changes] #
type Rep Changes Source #
Instance details Defined in Zuul.Status type Rep Changes = D1 ('MetaData "Changes" "Zuul.Status" "zuul-0.0.0.0-IdeecVaPpZS5SpfMJpAFET" 'True) (C1 ('MetaCons "Changes" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Change])))

data ChangeQueue Source #

Constructors

ChangeQueue
Fields changeQueueName :: Text changeQueueHeads :: [Changes]

Instances

Instances details

Show ChangeQueue Source #
Instance details Defined in Zuul.Status Methods showsPrec :: Int -> ChangeQueue -> ShowS # show :: ChangeQueue -> String # showList :: [ChangeQueue] -> ShowS #
Generic ChangeQueue Source #
Instance details Defined in Zuul.Status Associated Types type Rep ChangeQueue :: Type -> Type # Methods from :: ChangeQueue -> Rep ChangeQueue x # to :: Rep ChangeQueue x -> ChangeQueue #
FromJSON ChangeQueue Source #
Instance details Defined in Zuul.Status Methods parseJSON :: Value -> Parser ChangeQueue # parseJSONList :: Value -> Parser [ChangeQueue] #
type Rep ChangeQueue Source #
Instance details Defined in Zuul.Status type Rep ChangeQueue = D1 ('MetaData "ChangeQueue" "Zuul.Status" "zuul-0.0.0.0-IdeecVaPpZS5SpfMJpAFET" 'False) (C1 ('MetaCons "ChangeQueue" 'PrefixI 'True) (S1 ('MetaSel ('Just "changeQueueName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "changeQueueHeads") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Changes])))

data Pipeline Source #

Constructors

Pipeline
Fields pipelineName :: Text pipelineChangeQueues :: [ChangeQueue]

Instances

Instances details

Show Pipeline Source #
Instance details Defined in Zuul.Status Methods showsPrec :: Int -> Pipeline -> ShowS # show :: Pipeline -> String # showList :: [Pipeline] -> ShowS #
Generic Pipeline Source #
Instance details Defined in Zuul.Status Associated Types type Rep Pipeline :: Type -> Type # Methods from :: Pipeline -> Rep Pipeline x # to :: Rep Pipeline x -> Pipeline #
FromJSON Pipeline Source #
Instance details Defined in Zuul.Status Methods parseJSON :: Value -> Parser Pipeline # parseJSONList :: Value -> Parser [Pipeline] #
type Rep Pipeline Source #
Instance details Defined in Zuul.Status type Rep Pipeline = D1 ('MetaData "Pipeline" "Zuul.Status" "zuul-0.0.0.0-IdeecVaPpZS5SpfMJpAFET" 'False) (C1 ('MetaCons "Pipeline" 'PrefixI 'True) (S1 ('MetaSel ('Just "pipelineName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "pipelineChangeQueues") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [ChangeQueue])))

data Status Source #

Constructors

Status
Fields statusZuulVersion :: Text statusPipelines :: [Pipeline]

Instances

Instances details

Show Status Source #
Instance details Defined in Zuul.Status Methods showsPrec :: Int -> Status -> ShowS # show :: Status -> String # showList :: [Status] -> ShowS #
Generic Status Source #
Instance details Defined in Zuul.Status Associated Types type Rep Status :: Type -> Type # Methods from :: Status -> Rep Status x # to :: Rep Status x -> Status #
FromJSON Status Source #
Instance details Defined in Zuul.Status Methods parseJSON :: Value -> Parser Status # parseJSONList :: Value -> Parser [Status] #
type Rep Status Source #
Instance details Defined in Zuul.Status type Rep Status = D1 ('MetaData "Status" "Zuul.Status" "zuul-0.0.0.0-IdeecVaPpZS5SpfMJpAFET" 'False) (C1 ('MetaCons "Status" 'PrefixI 'True) (S1 ('MetaSel ('Just "statusZuulVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "statusPipelines") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Pipeline])))

Convenient functions

pipelineChanges Source #

Arguments

:: Text	The pipeline name
-> Maybe Text	An optional queue name
-> Status	The status record
-> Maybe [Change]	Returns an optional list of changes

Get the change from a pipeline

liveChanges :: [Change] -> [Change] Source #

Filter the change that are live and active

changeJobUuid :: [Change] -> [Text] Source #

Extract the job uuids from a list of change