zuul-0.1.0.0: A zuul client library
Safe HaskellNone
LanguageHaskell2010

Zuul

Description

This module contains the zuul REST client

Synopsis

Client

data ZuulClient Source #

The ZuulClient record, use withClient to create

withClient Source #

Arguments

:: 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

getStatus :: ZuulClient -> IO Status Source #

Read the status

Main data types

data Job Source #

Constructors

Job 

Instances

Instances details
Eq Job Source # 
Instance details

Defined in Zuul.Job

Methods

(==) :: Job -> Job -> Bool #

(/=) :: Job -> Job -> Bool #

Ord Job Source # 
Instance details

Defined in Zuul.Job

Methods

compare :: Job -> Job -> Ordering #

(<) :: Job -> Job -> Bool #

(<=) :: Job -> Job -> Bool #

(>) :: Job -> Job -> Bool #

(>=) :: Job -> Job -> Bool #

max :: Job -> Job -> Job #

min :: Job -> Job -> Job #

Show Job Source # 
Instance details

Defined in Zuul.Job

Methods

showsPrec :: Int -> Job -> ShowS #

show :: Job -> String #

showList :: [Job] -> ShowS #

Generic Job Source # 
Instance details

Defined in Zuul.Job

Associated Types

type Rep Job :: Type -> Type #

Methods

from :: Job -> Rep Job x #

to :: Rep Job x -> Job #

ToJSON Job Source # 
Instance details

Defined in Zuul.Job

FromJSON Job Source # 
Instance details

Defined in Zuul.Job

type Rep Job Source # 
Instance details

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))))

data JobConfig Source #

Instances

Instances details
Eq JobConfig Source # 
Instance details

Defined in Zuul.JobConfig

Ord JobConfig Source # 
Instance details

Defined in Zuul.JobConfig

Show JobConfig Source # 
Instance details

Defined in Zuul.JobConfig

Generic JobConfig Source # 
Instance details

Defined in Zuul.JobConfig

Associated Types

type Rep JobConfig :: Type -> Type #

ToJSON JobConfig Source # 
Instance details

Defined in Zuul.JobConfig

FromJSON JobConfig Source # 
Instance details

Defined in Zuul.JobConfig

type Rep JobConfig Source # 
Instance details

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)))))

data Node Source #

Constructors

Node 

Fields

Instances

Instances details
Eq Node Source # 
Instance details

Defined in Zuul.Nodeset

Methods

(==) :: Node -> Node -> Bool #

(/=) :: Node -> Node -> Bool #

Ord Node Source # 
Instance details

Defined in Zuul.Nodeset

Methods

compare :: Node -> Node -> Ordering #

(<) :: Node -> Node -> Bool #

(<=) :: Node -> Node -> Bool #

(>) :: Node -> Node -> Bool #

(>=) :: Node -> Node -> Bool #

max :: Node -> Node -> Node #

min :: Node -> Node -> Node #

Show Node Source # 
Instance details

Defined in Zuul.Nodeset

Methods

showsPrec :: Int -> Node -> ShowS #

show :: Node -> String #

showList :: [Node] -> ShowS #

Generic Node Source # 
Instance details

Defined in Zuul.Nodeset

Associated Types

type Rep Node :: Type -> Type #

Methods

from :: Node -> Rep Node x #

to :: Rep Node x -> Node #

ToJSON Node Source # 
Instance details

Defined in Zuul.Nodeset

FromJSON Node Source # 
Instance details

Defined in Zuul.Nodeset

type Rep Node Source # 
Instance details

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)))

data Nodeset Source #

Constructors

Nodeset 

Instances

Instances details
Eq Nodeset Source # 
Instance details

Defined in Zuul.Nodeset

Methods

(==) :: Nodeset -> Nodeset -> Bool #

(/=) :: Nodeset -> Nodeset -> Bool #

Ord Nodeset Source # 
Instance details

Defined in Zuul.Nodeset

Show Nodeset Source # 
Instance details

Defined in Zuul.Nodeset

Generic Nodeset Source # 
Instance details

Defined in Zuul.Nodeset

Associated Types

type Rep Nodeset :: Type -> Type #

Methods

from :: Nodeset -> Rep Nodeset x #

to :: Rep Nodeset x -> Nodeset #

ToJSON Nodeset Source # 
Instance details

Defined in Zuul.Nodeset

FromJSON Nodeset Source # 
Instance details

Defined in Zuul.Nodeset

type Rep Nodeset Source # 
Instance details

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

Instances details
Eq ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

Ord ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

Show ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

Generic ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

Associated Types

type Rep ProjectPipelineJob :: Type -> Type #

ToJSON ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

FromJSON ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectPipelineJob Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectPipelineJob = D1 ('MetaData "ProjectPipelineJob" "Zuul.ProjectConfig" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "ProjectPipelineJob" 'PrefixI 'True) (S1 ('MetaSel ('Just "ppjName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "ppjSourceContext") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SourceContext) :*: S1 ('MetaSel ('Just "ppjNodeset") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Nodeset)))))

data ProjectPipelineConfig Source #

Instances

Instances details
Eq ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Ord ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Show ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Generic ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Associated Types

type Rep ProjectPipelineConfig :: Type -> Type #

ToJSON ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

FromJSON ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectPipelineConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectPipelineConfig = D1 ('MetaData "ProjectPipelineConfig" "Zuul.ProjectConfig" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "ProjectPipelineConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "ppcDefaultBranch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: S1 ('MetaSel ('Just "ppcPipelines") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [ProjectPipeline])))

data ProjectPipeline Source #

Constructors

ProjectPipeline 

Instances

Instances details
Eq ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

Ord ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

Show ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

Generic ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

Associated Types

type Rep ProjectPipeline :: Type -> Type #

ToJSON ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

FromJSON ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectPipeline Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectPipeline = D1 ('MetaData "ProjectPipeline" "Zuul.ProjectConfig" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "ProjectPipeline" 'PrefixI 'True) (S1 ('MetaSel ('Just "ppName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ppJobs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [[ProjectPipelineJob]])))

data ProjectConfig Source #

Instances

Instances details
Eq ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Ord ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Show ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Generic ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

Associated Types

type Rep ProjectConfig :: Type -> Type #

ToJSON ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

FromJSON ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectConfig Source # 
Instance details

Defined in Zuul.ProjectConfig

type Rep ProjectConfig = D1 ('MetaData "ProjectConfig" "Zuul.ProjectConfig" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "ProjectConfig" 'PrefixI 'True) ((S1 ('MetaSel ('Just "projectConfigName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "projectConfigCanonicalName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "projectConfigConnectionName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "projectConfigConfigs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [ProjectPipelineConfig]))))

data Project Source #

Instances

Instances details
Eq Project Source # 
Instance details

Defined in Zuul.Project

Methods

(==) :: Project -> Project -> Bool #

(/=) :: Project -> Project -> Bool #

Ord Project Source # 
Instance details

Defined in Zuul.Project

Show Project Source # 
Instance details

Defined in Zuul.Project

Generic Project Source # 
Instance details

Defined in Zuul.Project

Associated Types

type Rep Project :: Type -> Type #

Methods

from :: Project -> Rep Project x #

to :: Rep Project x -> Project #

ToJSON Project Source # 
Instance details

Defined in Zuul.Project

FromJSON Project Source # 
Instance details

Defined in Zuul.Project

type Rep Project Source # 
Instance details

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))))

data Status Source #

Constructors

Status 

Instances

Instances details
Eq Status Source # 
Instance details

Defined in Zuul.Status

Methods

(==) :: Status -> Status -> Bool #

(/=) :: Status -> Status -> Bool #

Ord Status Source # 
Instance details

Defined in Zuul.Status

Show Status Source # 
Instance details

Defined in Zuul.Status

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 #

ToJSON Status Source # 
Instance details

Defined in Zuul.Status

FromJSON Status Source # 
Instance details

Defined in Zuul.Status

type Rep Status Source # 
Instance details

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 #

Constructors

SourceContext 

Fields

Instances

Instances details
Eq SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

Ord SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

Show SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

Generic SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

Associated Types

type Rep SourceContext :: Type -> Type #

ToJSON SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

FromJSON SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

type Rep SourceContext Source # 
Instance details

Defined in Zuul.SourceContext

type Rep SourceContext = D1 ('MetaData "SourceContext" "Zuul.SourceContext" "zuul-0.1.0.0-JOZTT7ADMM7gldiQJQBRN" 'False) (C1 ('MetaCons "SourceContext" 'PrefixI 'True) (S1 ('MetaSel ('Just "scBranch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "scPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "scProject") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data Tenant Source #

Constructors

Tenant 

Instances

Instances details
Eq Tenant Source # 
Instance details

Defined in Zuul.Tenant

Methods

(==) :: Tenant -> Tenant -> Bool #

(/=) :: Tenant -> Tenant -> Bool #

Ord Tenant Source # 
Instance details

Defined in Zuul.Tenant

Show Tenant Source # 
Instance details

Defined in Zuul.Tenant

Generic Tenant Source # 
Instance details

Defined in Zuul.Tenant

Associated Types

type Rep Tenant :: Type -> Type #

Methods

from :: Tenant -> Rep Tenant x #

to :: Rep Tenant x -> Tenant #

ToJSON Tenant Source # 
Instance details

Defined in Zuul.Tenant

FromJSON Tenant Source # 
Instance details

Defined in Zuul.Tenant

type Rep Tenant Source # 
Instance details

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))))