Safe Haskell | None |
---|---|
Language | Haskell2010 |
This module contains the zuul REST client
Synopsis
- data ZuulClient
- withClient :: Text -> (ZuulClient -> IO ()) -> IO ()
- onTenant :: ZuulClient -> Text -> ZuulClient
- getJobConfig :: ZuulClient -> Text -> IO [JobConfig]
- getJobs :: ZuulClient -> IO [Job]
- getProjectConfig :: ZuulClient -> Text -> IO ProjectConfig
- getProjects :: ZuulClient -> IO [Project]
- getStatus :: ZuulClient -> IO Status
- getTenants :: ZuulClient -> IO [Tenant]
- data Job = Job {
- jobName :: Text
- jobDescription :: Maybe Text
- data JobConfig = JobConfig {}
- data Node = Node {}
- data Nodeset = Nodeset {
- nodesetName :: Text
- nodesetNodes :: [Node]
- data ProjectPipelineJob = ProjectPipelineJob {}
- data ProjectPipelineConfig = ProjectPipelineConfig {}
- data ProjectPipeline = ProjectPipeline {
- ppName :: Text
- ppJobs :: [[ProjectPipelineJob]]
- data ProjectConfig = ProjectConfig {}
- data Project = Project {}
- data Status = Status {}
- data SourceContext = SourceContext {}
- data Tenant = Tenant {
- tenantName :: Text
- tenantProjects :: Int
- tenantQueue :: Int
Client
data ZuulClient Source #
The ZuulClient record, use withClient
to create
:: Text | The zuul api url |
-> (ZuulClient -> IO ()) | The callback |
-> IO () | withClient performs the IO |
Create the ZuulClient
onTenant :: ZuulClient -> Text -> ZuulClient Source #
Update a ZuulClient
to work on a tenant
Api
getJobConfig :: ZuulClient -> Text -> IO [JobConfig] Source #
getProjectConfig :: ZuulClient -> Text -> IO ProjectConfig Source #
getProjects :: ZuulClient -> IO [Project] Source #
getTenants :: ZuulClient -> IO [Tenant] Source #
Main data types
Instances
Eq Job Source # | |
Ord Job Source # | |
Show Job Source # | |
Generic Job Source # | |
ToJSON Job Source # | |
FromJSON Job Source # | |
type Rep Job Source # | |
Defined in Zuul.Job type Rep Job = D1 ('MetaData "Job" "Zuul.Job" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "Job" 'PrefixI 'True) (S1 ('MetaSel ('Just "jobName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "jobDescription") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)))) |
JobConfig | |
|
Instances
Eq JobConfig Source # | |
Ord JobConfig Source # | |
Defined in Zuul.JobConfig | |
Show JobConfig Source # | |
Generic JobConfig Source # | |
ToJSON JobConfig Source # | |
Defined in Zuul.JobConfig | |
FromJSON JobConfig Source # | |
type Rep JobConfig Source # | |
Defined in Zuul.JobConfig type Rep JobConfig = D1 ('MetaData "JobConfig" "Zuul.JobConfig" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "JobConfig" 'PrefixI 'True) ((S1 ('MetaSel ('Just "jcName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "jcSourceContext") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe SourceContext))) :*: (S1 ('MetaSel ('Just "jcDescription") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: S1 ('MetaSel ('Just "jcNodeset") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Nodeset))))) |
Instances
Eq Node Source # | |
Ord Node Source # | |
Show Node Source # | |
Generic Node Source # | |
ToJSON Node Source # | |
Defined in Zuul.Nodeset | |
FromJSON Node Source # | |
type Rep Node Source # | |
Defined in Zuul.Nodeset type Rep Node = D1 ('MetaData "Node" "Zuul.Nodeset" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "Node" 'PrefixI 'True) (S1 ('MetaSel ('Just "nodeName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "nodeLabel") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) |
Nodeset | |
|
Instances
Eq Nodeset Source # | |
Ord Nodeset Source # | |
Show Nodeset Source # | |
Generic Nodeset Source # | |
ToJSON Nodeset Source # | |
Defined in Zuul.Nodeset | |
FromJSON Nodeset Source # | |
type Rep Nodeset Source # | |
Defined in Zuul.Nodeset type Rep Nodeset = D1 ('MetaData "Nodeset" "Zuul.Nodeset" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "Nodeset" 'PrefixI 'True) (S1 ('MetaSel ('Just "nodesetName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "nodesetNodes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Node]))) |
data ProjectPipelineJob Source #
Instances
data ProjectPipelineConfig Source #
Instances
data ProjectPipeline Source #
ProjectPipeline | |
|
Instances
data ProjectConfig Source #
Instances
Instances
Eq Project Source # | |
Ord Project Source # | |
Show Project Source # | |
Generic Project Source # | |
ToJSON Project Source # | |
Defined in Zuul.Project | |
FromJSON Project Source # | |
type Rep Project Source # | |
Defined in Zuul.Project type Rep Project = D1 ('MetaData "Project" "Zuul.Project" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "Project" 'PrefixI 'True) ((S1 ('MetaSel ('Just "projectName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "projectType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ProjectType)) :*: (S1 ('MetaSel ('Just "projectCanonicalName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "projectConnectionName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))) |
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]))) |
data SourceContext Source #
Instances
Tenant | |
|
Instances
Eq Tenant Source # | |
Ord Tenant Source # | |
Show Tenant Source # | |
Generic Tenant Source # | |
ToJSON Tenant Source # | |
Defined in Zuul.Tenant | |
FromJSON Tenant Source # | |
type Rep Tenant Source # | |
Defined in Zuul.Tenant type Rep Tenant = D1 ('MetaData "Tenant" "Zuul.Tenant" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "Tenant" 'PrefixI 'True) (S1 ('MetaSel ('Just "tenantName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "tenantProjects") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "tenantQueue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))) |