Safe Haskell | None |
---|---|
Language | Haskell2010 |
The zuul status data type
Synopsis
- data JobStatus = JobStatus {}
- data Change = Change {
- changeId :: Maybe Text
- changeRef :: Text
- changeProject :: Text
- changeLive :: Bool
- changeActive :: Bool
- changeJobs :: [JobStatus]
- newtype Changes = Changes [Change]
- data ChangeQueue = ChangeQueue {}
- data Pipeline = Pipeline {}
- data Status = Status {}
- pipelineChanges :: Text -> Maybe Text -> Status -> Maybe [Change]
- liveChanges :: [Change] -> [Change]
- changeJobUuid :: [Change] -> [Text]
Status data types
Instances
Eq JobStatus Source # | |
Ord JobStatus Source # | |
Defined in Zuul.Status | |
Show JobStatus Source # | |
Generic JobStatus Source # | |
ToJSON JobStatus Source # | |
Defined in Zuul.Status | |
FromJSON JobStatus Source # | |
type Rep JobStatus Source # | |
Defined in Zuul.Status type Rep JobStatus = D1 ('MetaData "JobStatus" "Zuul.Status" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "JobStatus" '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))))) |
Change | |
|
Instances
data ChangeQueue Source #
Instances
Instances
Eq Pipeline Source # | |
Ord Pipeline Source # | |
Defined in Zuul.Status | |
Show Pipeline Source # | |
Generic Pipeline Source # | |
ToJSON Pipeline Source # | |
Defined in Zuul.Status | |
FromJSON Pipeline Source # | |
type Rep Pipeline Source # | |
Defined in Zuul.Status type Rep Pipeline = D1 ('MetaData "Pipeline" "Zuul.Status" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "Pipeline" 'PrefixI 'True) (S1 ('MetaSel ('Just "pipelineName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "pipelineChangeQueues") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [ChangeQueue]))) |
Instances
Eq Status Source # | |
Ord Status Source # | |
Show Status Source # | |
Generic Status Source # | |
ToJSON Status Source # | |
Defined in Zuul.Status | |
FromJSON Status Source # | |
type Rep Status Source # | |
Defined in Zuul.Status type Rep Status = D1 ('MetaData "Status" "Zuul.Status" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" '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
:: 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