Safe Haskell	None
Language	Haskell2010

Gerrit.Data

Contents

Main data types
Convenient functions

Description

This module contains the gerrit data type

Synopsis

newtype GerritVersion = GerritVersion Text
data GerritQuery
- = Status GerritChangeStatus
- | Owner Text
- | CommitMessage Text
- | Project Text
- | ChangeId Text
data GerritChangeStatus
- = NEW
- | MERGED
- | ABANDONED
- | DRAFT
data GerritChange = GerritChange {
- id :: Text
- project :: Text
- branch :: Text
- subject :: Text
- status :: GerritChangeStatus
- mergeable :: Maybe Bool
- revisions :: Map Text (Maybe GerritRevision)
- current_revision :: Maybe Text
- number :: Int
- labels :: Map Text GerritDetailedLabel
}
data GerritRevision = GerritRevision {
- ref :: Text
- kind :: GerritRevisionKind
}
newtype GerritLabel = GerritLabel (Map GerritLabelVote GerritAccount)
newtype GerritAccount = GerritAccount {
- unused_account_id :: Int
}
data GerritLabelVote
- = REJECTED
- | APPROVED
- | DISLIKED
- | RECOMMENDED
data GerritDetailedLabelVote = GerritDetailedLabelVote {
- value :: Maybe Int
- account_id :: Int
}
data GerritDetailedLabel = GerritDetailedLabel {
- all :: [GerritDetailedLabelVote]
- default_value :: Int
}
data ReviewResult = ReviewResult {
- rrLabels :: Maybe (Map Text Int)
- rrReady :: Maybe Int
}
data ReviewInput = ReviewInput {
- riMessage :: Maybe Text
- riLabels :: Maybe (Map Text Int)
}
queryText :: GerritQuery -> Text

Main data types

newtype GerritVersion Source #

Constructors

GerritVersion Text

Instances

Instances details

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

data GerritQuery Source #

Constructors

Status GerritChangeStatus
Owner Text
CommitMessage Text
Project Text
ChangeId Text

data GerritChangeStatus Source #

Constructors

NEW
MERGED
ABANDONED
DRAFT

Instances

Instances details

Eq GerritChangeStatus Source #
Instance details Defined in Gerrit.Data Methods (==) :: GerritChangeStatus -> GerritChangeStatus -> Bool # (/=) :: GerritChangeStatus -> GerritChangeStatus -> Bool #
Show GerritChangeStatus Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritChangeStatus -> ShowS # show :: GerritChangeStatus -> String # showList :: [GerritChangeStatus] -> ShowS #
Generic GerritChangeStatus Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritChangeStatus :: Type -> Type # Methods from :: GerritChangeStatus -> Rep GerritChangeStatus x # to :: Rep GerritChangeStatus x -> GerritChangeStatus #
FromJSON GerritChangeStatus Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritChangeStatus # parseJSONList :: Value -> Parser [GerritChangeStatus] #
type Rep GerritChangeStatus Source #
Instance details Defined in Gerrit.Data type Rep GerritChangeStatus = D1 ('MetaData "GerritChangeStatus" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) ((C1 ('MetaCons "NEW" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MERGED" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ABANDONED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "DRAFT" 'PrefixI 'False) (U1 :: Type -> Type)))

data GerritChange Source #

Constructors

GerritChange
Fields id :: Text project :: Text branch :: Text subject :: Text status :: GerritChangeStatus mergeable :: Maybe Bool revisions :: Map Text (Maybe GerritRevision) current_revision :: Maybe Text number :: Int labels :: Map Text GerritDetailedLabel

Instances

Instances details

Show GerritChange Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritChange -> ShowS # show :: GerritChange -> String # showList :: [GerritChange] -> ShowS #
Generic GerritChange Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritChange :: Type -> Type # Methods from :: GerritChange -> Rep GerritChange x # to :: Rep GerritChange x -> GerritChange #
FromJSON GerritChange Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritChange # parseJSONList :: Value -> Parser [GerritChange] #
type Rep GerritChange Source #
Instance details Defined in Gerrit.Data type Rep GerritChange = D1 ('MetaData "GerritChange" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) (C1 ('MetaCons "GerritChange" 'PrefixI 'True) (((S1 ('MetaSel ('Just "id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "project") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :: (S1 ('MetaSel ('Just "branch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "subject") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "status") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 GerritChangeStatus)))) :: ((S1 ('MetaSel ('Just "mergeable") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Bool)) :: S1 ('MetaSel ('Just "revisions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Map Text (Maybe GerritRevision)))) :: (S1 ('MetaSel ('Just "current_revision") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: (S1 ('MetaSel ('Just "number") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "labels") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Map Text GerritDetailedLabel)))))))

data GerritRevision Source #

Constructors

GerritRevision
Fields ref :: Text kind :: GerritRevisionKind

Instances

Instances details

Show GerritRevision Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritRevision -> ShowS # show :: GerritRevision -> String # showList :: [GerritRevision] -> ShowS #
Generic GerritRevision Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritRevision :: Type -> Type # Methods from :: GerritRevision -> Rep GerritRevision x # to :: Rep GerritRevision x -> GerritRevision #
FromJSON GerritRevision Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritRevision # parseJSONList :: Value -> Parser [GerritRevision] #
type Rep GerritRevision Source #
Instance details Defined in Gerrit.Data type Rep GerritRevision

newtype GerritLabel Source #

Constructors

GerritLabel (Map GerritLabelVote GerritAccount)

Instances

Instances details

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

newtype GerritAccount Source #

Constructors

GerritAccount
Fields unused_account_id :: Int

Instances

Instances details

Show GerritAccount Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritAccount -> ShowS # show :: GerritAccount -> String # showList :: [GerritAccount] -> ShowS #
Generic GerritAccount Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritAccount :: Type -> Type # Methods from :: GerritAccount -> Rep GerritAccount x # to :: Rep GerritAccount x -> GerritAccount #
FromJSON GerritAccount Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritAccount # parseJSONList :: Value -> Parser [GerritAccount] #
type Rep GerritAccount Source #
Instance details Defined in Gerrit.Data type Rep GerritAccount = D1 ('MetaData "GerritAccount" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'True) (C1 ('MetaCons "GerritAccount" 'PrefixI 'True) (S1 ('MetaSel ('Just "unused_account_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data GerritLabelVote Source #

Constructors

REJECTED
APPROVED
DISLIKED
RECOMMENDED

Instances

Instances details

Eq GerritLabelVote Source #
Instance details Defined in Gerrit.Data Methods (==) :: GerritLabelVote -> GerritLabelVote -> Bool # (/=) :: GerritLabelVote -> GerritLabelVote -> Bool #
Ord GerritLabelVote Source #
Instance details Defined in Gerrit.Data Methods compare :: GerritLabelVote -> GerritLabelVote -> Ordering # (<) :: GerritLabelVote -> GerritLabelVote -> Bool # (<=) :: GerritLabelVote -> GerritLabelVote -> Bool # (>) :: GerritLabelVote -> GerritLabelVote -> Bool # (>=) :: GerritLabelVote -> GerritLabelVote -> Bool # max :: GerritLabelVote -> GerritLabelVote -> GerritLabelVote # min :: GerritLabelVote -> GerritLabelVote -> GerritLabelVote #
Show GerritLabelVote Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritLabelVote -> ShowS # show :: GerritLabelVote -> String # showList :: [GerritLabelVote] -> ShowS #
Generic GerritLabelVote Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritLabelVote :: Type -> Type # Methods from :: GerritLabelVote -> Rep GerritLabelVote x # to :: Rep GerritLabelVote x -> GerritLabelVote #
FromJSON GerritLabelVote Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritLabelVote # parseJSONList :: Value -> Parser [GerritLabelVote] #
FromJSONKey GerritLabelVote Source #
Instance details Defined in Gerrit.Data Methods fromJSONKey :: FromJSONKeyFunction GerritLabelVote # fromJSONKeyList :: FromJSONKeyFunction [GerritLabelVote] #
type Rep GerritLabelVote Source #
Instance details Defined in Gerrit.Data type Rep GerritLabelVote = D1 ('MetaData "GerritLabelVote" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) ((C1 ('MetaCons "REJECTED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "APPROVED" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "DISLIKED" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "RECOMMENDED" 'PrefixI 'False) (U1 :: Type -> Type)))

data GerritDetailedLabelVote Source #

Constructors

GerritDetailedLabelVote
Fields value :: Maybe Int account_id :: Int

Instances

Instances details

Show GerritDetailedLabelVote Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritDetailedLabelVote -> ShowS # show :: GerritDetailedLabelVote -> String # showList :: [GerritDetailedLabelVote] -> ShowS #
Generic GerritDetailedLabelVote Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritDetailedLabelVote :: Type -> Type # Methods from :: GerritDetailedLabelVote -> Rep GerritDetailedLabelVote x # to :: Rep GerritDetailedLabelVote x -> GerritDetailedLabelVote #
FromJSON GerritDetailedLabelVote Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritDetailedLabelVote # parseJSONList :: Value -> Parser [GerritDetailedLabelVote] #
type Rep GerritDetailedLabelVote Source #
Instance details Defined in Gerrit.Data type Rep GerritDetailedLabelVote = D1 ('MetaData "GerritDetailedLabelVote" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) (C1 ('MetaCons "GerritDetailedLabelVote" 'PrefixI 'True) (S1 ('MetaSel ('Just "value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Int)) :*: S1 ('MetaSel ('Just "account_id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data GerritDetailedLabel Source #

Constructors

GerritDetailedLabel
Fields all :: [GerritDetailedLabelVote] default_value :: Int

Instances

Instances details

Show GerritDetailedLabel Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> GerritDetailedLabel -> ShowS # show :: GerritDetailedLabel -> String # showList :: [GerritDetailedLabel] -> ShowS #
Generic GerritDetailedLabel Source #
Instance details Defined in Gerrit.Data Associated Types type Rep GerritDetailedLabel :: Type -> Type # Methods from :: GerritDetailedLabel -> Rep GerritDetailedLabel x # to :: Rep GerritDetailedLabel x -> GerritDetailedLabel #
FromJSON GerritDetailedLabel Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser GerritDetailedLabel # parseJSONList :: Value -> Parser [GerritDetailedLabel] #
type Rep GerritDetailedLabel Source #
Instance details Defined in Gerrit.Data type Rep GerritDetailedLabel = D1 ('MetaData "GerritDetailedLabel" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) (C1 ('MetaCons "GerritDetailedLabel" 'PrefixI 'True) (S1 ('MetaSel ('Just "all") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [GerritDetailedLabelVote]) :*: S1 ('MetaSel ('Just "default_value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data ReviewResult Source #

Constructors

ReviewResult
Fields rrLabels :: Maybe (Map Text Int) rrReady :: Maybe Int

Instances

Instances details

Eq ReviewResult Source #
Instance details Defined in Gerrit.Data Methods (==) :: ReviewResult -> ReviewResult -> Bool # (/=) :: ReviewResult -> ReviewResult -> Bool #
Ord ReviewResult Source #
Instance details Defined in Gerrit.Data Methods compare :: ReviewResult -> ReviewResult -> Ordering # (<) :: ReviewResult -> ReviewResult -> Bool # (<=) :: ReviewResult -> ReviewResult -> Bool # (>) :: ReviewResult -> ReviewResult -> Bool # (>=) :: ReviewResult -> ReviewResult -> Bool # max :: ReviewResult -> ReviewResult -> ReviewResult # min :: ReviewResult -> ReviewResult -> ReviewResult #
Show ReviewResult Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> ReviewResult -> ShowS # show :: ReviewResult -> String # showList :: [ReviewResult] -> ShowS #
Generic ReviewResult Source #
Instance details Defined in Gerrit.Data Associated Types type Rep ReviewResult :: Type -> Type # Methods from :: ReviewResult -> Rep ReviewResult x # to :: Rep ReviewResult x -> ReviewResult #
ToJSON ReviewResult Source #
Instance details Defined in Gerrit.Data Methods toJSON :: ReviewResult -> Value # toEncoding :: ReviewResult -> Encoding # toJSONList :: [ReviewResult] -> Value # toEncodingList :: [ReviewResult] -> Encoding #
FromJSON ReviewResult Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser ReviewResult # parseJSONList :: Value -> Parser [ReviewResult] #
type Rep ReviewResult Source #
Instance details Defined in Gerrit.Data type Rep ReviewResult = D1 ('MetaData "ReviewResult" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) (C1 ('MetaCons "ReviewResult" 'PrefixI 'True) (S1 ('MetaSel ('Just "rrLabels") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe (Map Text Int))) :*: S1 ('MetaSel ('Just "rrReady") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Int))))

data ReviewInput Source #

Constructors

ReviewInput
Fields riMessage :: Maybe Text riLabels :: Maybe (Map Text Int)

Instances

Instances details

Eq ReviewInput Source #
Instance details Defined in Gerrit.Data Methods (==) :: ReviewInput -> ReviewInput -> Bool # (/=) :: ReviewInput -> ReviewInput -> Bool #
Ord ReviewInput Source #
Instance details Defined in Gerrit.Data Methods compare :: ReviewInput -> ReviewInput -> Ordering # (<) :: ReviewInput -> ReviewInput -> Bool # (<=) :: ReviewInput -> ReviewInput -> Bool # (>) :: ReviewInput -> ReviewInput -> Bool # (>=) :: ReviewInput -> ReviewInput -> Bool # max :: ReviewInput -> ReviewInput -> ReviewInput # min :: ReviewInput -> ReviewInput -> ReviewInput #
Show ReviewInput Source #
Instance details Defined in Gerrit.Data Methods showsPrec :: Int -> ReviewInput -> ShowS # show :: ReviewInput -> String # showList :: [ReviewInput] -> ShowS #
Generic ReviewInput Source #
Instance details Defined in Gerrit.Data Associated Types type Rep ReviewInput :: Type -> Type # Methods from :: ReviewInput -> Rep ReviewInput x # to :: Rep ReviewInput x -> ReviewInput #
ToJSON ReviewInput Source #
Instance details Defined in Gerrit.Data Methods toJSON :: ReviewInput -> Value # toEncoding :: ReviewInput -> Encoding # toJSONList :: [ReviewInput] -> Value # toEncodingList :: [ReviewInput] -> Encoding #
FromJSON ReviewInput Source #
Instance details Defined in Gerrit.Data Methods parseJSON :: Value -> Parser ReviewInput # parseJSONList :: Value -> Parser [ReviewInput] #
type Rep ReviewInput Source #
Instance details Defined in Gerrit.Data type Rep ReviewInput = D1 ('MetaData "ReviewInput" "Gerrit.Data" "gerrit-0.0.0.0-HeaHw1VGRFr3asNCEgawPp" 'False) (C1 ('MetaCons "ReviewInput" 'PrefixI 'True) (S1 ('MetaSel ('Just "riMessage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: S1 ('MetaSel ('Just "riLabels") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe (Map Text Int)))))

Convenient functions

queryText :: GerritQuery -> Text Source #

Convert a GerritQuery object to the search terms