{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}
module Data.Connect.Modules
( Modules(..)
, JIRAModules(..)
, emptyJIRAModules
, ConfluenceModules(..)
, emptyConfluenceModules
, JIRAWebSection(..)
, WebItem(..)
, WebItemContext(..)
, WebPanel(..)
, WebPanelLayout(..)
, JIRAPage(..)
, JIRAGenericTabPanel(..)
, JIRAProjectAdminTabPanel(..)
, JIRASearchRequestView(..)
, JIRAIssueContent(..)
, JIRAIssueContentTarget(..)
, JIRAIssueField(..)
, JiraIssueFieldExtraction(..)
, JiraIssueFieldProperty(..)
, JiraIssueFieldTemplate(..)
, JiraIssueFieldType(..)
, JiraIssueFieldPropertyType(..)
, JIRAIssueGlance(..)
, JIRAIssueGlanceContent(..)
, JIRAIssueGlanceTarget(..)
, JIRAReport(..)
, JIRAReportCategory(..)
, Target(..)
, JIRAWorkflowPostFunction(..)
, DialogOptions(..)
, InlineDialogOptions(..)
, JIRAEntityProperties(..)
, EntityType(..)
, KeyConfiguration(..)
, Extraction(..)
, ExtractionType(..)
, ModuleParams
, noParams
, Weight
) where
import Data.Aeson
import Data.Aeson.Types
import Data.Connect.AesonHelpers
import Data.Connect.BaseTypes
import Data.Connect.Conditions
import Data.Connect.Webhooks
import qualified Data.HashMap.Strict as HM
import qualified Data.Text as T
import GHC.Generics
data Modules = Modules
{ Modules -> JIRAModules
jiraModules :: JIRAModules
, Modules -> ConfluenceModules
confluenceModules :: ConfluenceModules
} deriving (Int -> Modules -> ShowS
[Modules] -> ShowS
Modules -> String
(Int -> Modules -> ShowS)
-> (Modules -> String) -> ([Modules] -> ShowS) -> Show Modules
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Modules] -> ShowS
$cshowList :: [Modules] -> ShowS
show :: Modules -> String
$cshow :: Modules -> String
showsPrec :: Int -> Modules -> ShowS
$cshowsPrec :: Int -> Modules -> ShowS
Show, (forall x. Modules -> Rep Modules x)
-> (forall x. Rep Modules x -> Modules) -> Generic Modules
forall x. Rep Modules x -> Modules
forall x. Modules -> Rep Modules x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Modules x -> Modules
$cfrom :: forall x. Modules -> Rep Modules x
Generic)
instance ToJSON Modules where
toJSON :: Modules -> Value
toJSON Modules
modules = case (Value
jm, Value
cm) of
(Object Object
jiraObject, Object Object
confluenceObject) -> Object -> Value
Object (Object -> Value) -> Object -> Value
forall a b. (a -> b) -> a -> b
$ Object -> Object -> Object
forall k v.
(Eq k, Hashable k) =>
HashMap k v -> HashMap k v -> HashMap k v
HM.union Object
jiraObject Object
confluenceObject
(Value, Value)
_ -> Value
Null
where
jm :: Value
jm = JIRAModules -> Value
forall a. ToJSON a => a -> Value
toJSON (JIRAModules -> Value)
-> (Modules -> JIRAModules) -> Modules -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Modules -> JIRAModules
jiraModules (Modules -> Value) -> Modules -> Value
forall a b. (a -> b) -> a -> b
$ Modules
modules
cm :: Value
cm = ConfluenceModules -> Value
forall a. ToJSON a => a -> Value
toJSON (ConfluenceModules -> Value)
-> (Modules -> ConfluenceModules) -> Modules -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Modules -> ConfluenceModules
confluenceModules (Modules -> Value) -> Modules -> Value
forall a b. (a -> b) -> a -> b
$ Modules
modules
data JIRAModules = JIRAModules
{ JIRAModules -> Maybe [JIRAWebSection]
jmWebSections :: Maybe [JIRAWebSection]
, JIRAModules -> Maybe [WebItem]
jmWebItems :: Maybe [WebItem]
, JIRAModules -> Maybe [WebPanel]
jmWebPanels :: Maybe [WebPanel]
, JIRAModules -> Maybe [JIRAPage]
jmGeneralPages :: Maybe [JIRAPage]
, JIRAModules -> Maybe [JIRAPage]
jmAdminPages :: Maybe [JIRAPage]
, JIRAModules -> Maybe JIRAPage
jmConfigurePage :: Maybe JIRAPage
, JIRAModules -> Maybe [JIRASearchRequestView]
jmJiraSearchRequestViews :: Maybe [JIRASearchRequestView]
, JIRAModules -> Maybe [JIRAGenericTabPanel]
jmJiraProfileTabPanels :: Maybe [JIRAGenericTabPanel]
, JIRAModules -> Maybe [JIRAGenericTabPanel]
jmJiraVersionTabPanels :: Maybe [JIRAGenericTabPanel]
, JIRAModules -> Maybe [JIRAGenericTabPanel]
jmJiraProjectTabPanels :: Maybe [JIRAGenericTabPanel]
, JIRAModules -> Maybe [JIRAProjectAdminTabPanel]
jmJiraProjectAdminTabPanels :: Maybe [JIRAProjectAdminTabPanel]
, JIRAModules -> Maybe [JIRAGenericTabPanel]
jmJiraIssueTabPanels :: Maybe [JIRAGenericTabPanel]
, JIRAModules -> Maybe [JIRAGenericTabPanel]
jmJiraComponentTabPanels :: Maybe [JIRAGenericTabPanel]
, JIRAModules -> Maybe [JIRAIssueContent]
jmJiraIssueContents :: Maybe [JIRAIssueContent]
, JIRAModules -> Maybe [JIRAIssueField]
jmJiraIssueFields :: Maybe [JIRAIssueField]
, JIRAModules -> Maybe [JIRAIssueGlance]
jmJiraIssueGlances :: Maybe [JIRAIssueGlance]
, JIRAModules -> Maybe [JIRAReport]
jmJiraReports :: Maybe [JIRAReport]
, JIRAModules -> Maybe [Webhook]
jmWebhooks :: Maybe [Webhook]
, JIRAModules -> Maybe [JIRAWorkflowPostFunction]
jmJiraWorkflowPostFunctions :: Maybe [JIRAWorkflowPostFunction]
, JIRAModules -> Maybe [JIRAEntityProperties]
jmJiraEntityProperties :: Maybe [JIRAEntityProperties]
} deriving (Int -> JIRAModules -> ShowS
[JIRAModules] -> ShowS
JIRAModules -> String
(Int -> JIRAModules -> ShowS)
-> (JIRAModules -> String)
-> ([JIRAModules] -> ShowS)
-> Show JIRAModules
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAModules] -> ShowS
$cshowList :: [JIRAModules] -> ShowS
show :: JIRAModules -> String
$cshow :: JIRAModules -> String
showsPrec :: Int -> JIRAModules -> ShowS
$cshowsPrec :: Int -> JIRAModules -> ShowS
Show, (forall x. JIRAModules -> Rep JIRAModules x)
-> (forall x. Rep JIRAModules x -> JIRAModules)
-> Generic JIRAModules
forall x. Rep JIRAModules x -> JIRAModules
forall x. JIRAModules -> Rep JIRAModules x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAModules x -> JIRAModules
$cfrom :: forall x. JIRAModules -> Rep JIRAModules x
Generic)
instance ToJSON JIRAModules where
toJSON :: JIRAModules -> Value
toJSON = Options -> JIRAModules -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jm"
}
data ConfluenceModules = ConfluenceModules
{ ConfluenceModules -> Maybe [WebPanel]
confluenceWebPanels :: Maybe [WebPanel]
, ConfluenceModules -> Maybe [WebItem]
confluenceWebItems :: Maybe [WebItem]
} deriving (Int -> ConfluenceModules -> ShowS
[ConfluenceModules] -> ShowS
ConfluenceModules -> String
(Int -> ConfluenceModules -> ShowS)
-> (ConfluenceModules -> String)
-> ([ConfluenceModules] -> ShowS)
-> Show ConfluenceModules
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfluenceModules] -> ShowS
$cshowList :: [ConfluenceModules] -> ShowS
show :: ConfluenceModules -> String
$cshow :: ConfluenceModules -> String
showsPrec :: Int -> ConfluenceModules -> ShowS
$cshowsPrec :: Int -> ConfluenceModules -> ShowS
Show, (forall x. ConfluenceModules -> Rep ConfluenceModules x)
-> (forall x. Rep ConfluenceModules x -> ConfluenceModules)
-> Generic ConfluenceModules
forall x. Rep ConfluenceModules x -> ConfluenceModules
forall x. ConfluenceModules -> Rep ConfluenceModules x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ConfluenceModules x -> ConfluenceModules
$cfrom :: forall x. ConfluenceModules -> Rep ConfluenceModules x
Generic)
instance ToJSON ConfluenceModules where
toJSON :: ConfluenceModules -> Value
toJSON = Options -> ConfluenceModules -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"confluence"
}
emptyJIRAModules :: JIRAModules
emptyJIRAModules :: JIRAModules
emptyJIRAModules
= Maybe [JIRAWebSection]
-> Maybe [WebItem]
-> Maybe [WebPanel]
-> Maybe [JIRAPage]
-> Maybe [JIRAPage]
-> Maybe JIRAPage
-> Maybe [JIRASearchRequestView]
-> Maybe [JIRAGenericTabPanel]
-> Maybe [JIRAGenericTabPanel]
-> Maybe [JIRAGenericTabPanel]
-> Maybe [JIRAProjectAdminTabPanel]
-> Maybe [JIRAGenericTabPanel]
-> Maybe [JIRAGenericTabPanel]
-> Maybe [JIRAIssueContent]
-> Maybe [JIRAIssueField]
-> Maybe [JIRAIssueGlance]
-> Maybe [JIRAReport]
-> Maybe [Webhook]
-> Maybe [JIRAWorkflowPostFunction]
-> Maybe [JIRAEntityProperties]
-> JIRAModules
JIRAModules
Maybe [JIRAWebSection]
forall a. Maybe a
Nothing
Maybe [WebItem]
forall a. Maybe a
Nothing
Maybe [WebPanel]
forall a. Maybe a
Nothing
Maybe [JIRAPage]
forall a. Maybe a
Nothing
Maybe [JIRAPage]
forall a. Maybe a
Nothing
Maybe JIRAPage
forall a. Maybe a
Nothing
Maybe [JIRASearchRequestView]
forall a. Maybe a
Nothing
Maybe [JIRAGenericTabPanel]
forall a. Maybe a
Nothing
Maybe [JIRAGenericTabPanel]
forall a. Maybe a
Nothing
Maybe [JIRAGenericTabPanel]
forall a. Maybe a
Nothing
Maybe [JIRAProjectAdminTabPanel]
forall a. Maybe a
Nothing
Maybe [JIRAGenericTabPanel]
forall a. Maybe a
Nothing
Maybe [JIRAGenericTabPanel]
forall a. Maybe a
Nothing
Maybe [JIRAIssueContent]
forall a. Maybe a
Nothing
Maybe [JIRAIssueField]
forall a. Maybe a
Nothing
Maybe [JIRAIssueGlance]
forall a. Maybe a
Nothing
Maybe [JIRAReport]
forall a. Maybe a
Nothing
Maybe [Webhook]
forall a. Maybe a
Nothing
Maybe [JIRAWorkflowPostFunction]
forall a. Maybe a
Nothing
Maybe [JIRAEntityProperties]
forall a. Maybe a
Nothing
emptyConfluenceModules :: ConfluenceModules
emptyConfluenceModules :: ConfluenceModules
emptyConfluenceModules = Maybe [WebPanel] -> Maybe [WebItem] -> ConfluenceModules
ConfluenceModules Maybe [WebPanel]
forall a. Maybe a
Nothing Maybe [WebItem]
forall a. Maybe a
Nothing
type Weight = Integer
type ModuleParams = HM.HashMap T.Text T.Text
noParams :: ModuleParams
noParams :: ModuleParams
noParams = ModuleParams
forall k v. HashMap k v
HM.empty
data JIRAWebSection = JIRAWebSection
{ JIRAWebSection -> Text
jwsKey :: T.Text
, JIRAWebSection -> I18nText
jwsName :: I18nText
, JIRAWebSection -> Text
jwsLocation :: T.Text
, JIRAWebSection -> Maybe I18nText
jwsTooltip :: Maybe I18nText
, JIRAWebSection -> [Condition]
jwsConditions :: [Condition]
, JIRAWebSection -> Maybe Weight
jwsWeight :: Maybe Weight
, JIRAWebSection -> ModuleParams
jwsParams :: ModuleParams
} deriving (Int -> JIRAWebSection -> ShowS
[JIRAWebSection] -> ShowS
JIRAWebSection -> String
(Int -> JIRAWebSection -> ShowS)
-> (JIRAWebSection -> String)
-> ([JIRAWebSection] -> ShowS)
-> Show JIRAWebSection
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAWebSection] -> ShowS
$cshowList :: [JIRAWebSection] -> ShowS
show :: JIRAWebSection -> String
$cshow :: JIRAWebSection -> String
showsPrec :: Int -> JIRAWebSection -> ShowS
$cshowsPrec :: Int -> JIRAWebSection -> ShowS
Show, (forall x. JIRAWebSection -> Rep JIRAWebSection x)
-> (forall x. Rep JIRAWebSection x -> JIRAWebSection)
-> Generic JIRAWebSection
forall x. Rep JIRAWebSection x -> JIRAWebSection
forall x. JIRAWebSection -> Rep JIRAWebSection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAWebSection x -> JIRAWebSection
$cfrom :: forall x. JIRAWebSection -> Rep JIRAWebSection x
Generic)
instance ToJSON JIRAWebSection where
toJSON :: JIRAWebSection -> Value
toJSON = Options -> JIRAWebSection -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jws"
}
data WebPanel = WebPanel
{ WebPanel -> Text
wpKey :: T.Text
, WebPanel -> I18nText
wpName :: I18nText
, WebPanel -> Text
wpUrl :: T.Text
, WebPanel -> Text
wpLocation :: T.Text
, WebPanel -> [Condition]
wpConditions :: [Condition]
, WebPanel -> Maybe I18nText
wpTooltip :: Maybe I18nText
, WebPanel -> Maybe Weight
wpWeight :: Maybe Weight
, WebPanel -> Maybe WebPanelLayout
wpLayout :: Maybe WebPanelLayout
, WebPanel -> ModuleParams
wpParams :: ModuleParams
} deriving (Int -> WebPanel -> ShowS
[WebPanel] -> ShowS
WebPanel -> String
(Int -> WebPanel -> ShowS)
-> (WebPanel -> String) -> ([WebPanel] -> ShowS) -> Show WebPanel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WebPanel] -> ShowS
$cshowList :: [WebPanel] -> ShowS
show :: WebPanel -> String
$cshow :: WebPanel -> String
showsPrec :: Int -> WebPanel -> ShowS
$cshowsPrec :: Int -> WebPanel -> ShowS
Show, (forall x. WebPanel -> Rep WebPanel x)
-> (forall x. Rep WebPanel x -> WebPanel) -> Generic WebPanel
forall x. Rep WebPanel x -> WebPanel
forall x. WebPanel -> Rep WebPanel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep WebPanel x -> WebPanel
$cfrom :: forall x. WebPanel -> Rep WebPanel x
Generic)
instance ToJSON WebPanel where
toJSON :: WebPanel -> Value
toJSON = Options -> WebPanel -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"wp"
}
data WebPanelLayout = WebPanelLayout
{ WebPanelLayout -> Length
wplWidth :: Length
, WebPanelLayout -> Length
wplHeight :: Length
} deriving (Int -> WebPanelLayout -> ShowS
[WebPanelLayout] -> ShowS
WebPanelLayout -> String
(Int -> WebPanelLayout -> ShowS)
-> (WebPanelLayout -> String)
-> ([WebPanelLayout] -> ShowS)
-> Show WebPanelLayout
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WebPanelLayout] -> ShowS
$cshowList :: [WebPanelLayout] -> ShowS
show :: WebPanelLayout -> String
$cshow :: WebPanelLayout -> String
showsPrec :: Int -> WebPanelLayout -> ShowS
$cshowsPrec :: Int -> WebPanelLayout -> ShowS
Show, (forall x. WebPanelLayout -> Rep WebPanelLayout x)
-> (forall x. Rep WebPanelLayout x -> WebPanelLayout)
-> Generic WebPanelLayout
forall x. Rep WebPanelLayout x -> WebPanelLayout
forall x. WebPanelLayout -> Rep WebPanelLayout x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep WebPanelLayout x -> WebPanelLayout
$cfrom :: forall x. WebPanelLayout -> Rep WebPanelLayout x
Generic)
instance ToJSON WebPanelLayout where
toJSON :: WebPanelLayout -> Value
toJSON = Options -> WebPanelLayout -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"wpl"
}
data WebItem = WebItem
{ WebItem -> Text
wiKey :: T.Text
, WebItem -> I18nText
wiName :: I18nText
, WebItem -> Text
wiLocation :: T.Text
, WebItem -> Text
wiUrl :: T.Text
, WebItem -> Maybe I18nText
wiTooltip :: Maybe I18nText
, WebItem -> Maybe IconDetails
wiIcon :: Maybe IconDetails
, WebItem -> Maybe Weight
wiWeight :: Maybe Weight
, WebItem -> Maybe Target
wiTarget :: Maybe Target
, WebItem -> [Text]
wiStyleClasses :: [T.Text]
, WebItem -> Maybe WebItemContext
wiContext :: Maybe WebItemContext
, WebItem -> [Condition]
wiConditions :: [Condition]
, WebItem -> ModuleParams
wiParams :: ModuleParams
} deriving (Int -> WebItem -> ShowS
[WebItem] -> ShowS
WebItem -> String
(Int -> WebItem -> ShowS)
-> (WebItem -> String) -> ([WebItem] -> ShowS) -> Show WebItem
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WebItem] -> ShowS
$cshowList :: [WebItem] -> ShowS
show :: WebItem -> String
$cshow :: WebItem -> String
showsPrec :: Int -> WebItem -> ShowS
$cshowsPrec :: Int -> WebItem -> ShowS
Show, (forall x. WebItem -> Rep WebItem x)
-> (forall x. Rep WebItem x -> WebItem) -> Generic WebItem
forall x. Rep WebItem x -> WebItem
forall x. WebItem -> Rep WebItem x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep WebItem x -> WebItem
$cfrom :: forall x. WebItem -> Rep WebItem x
Generic)
instance ToJSON WebItem where
toJSON :: WebItem -> Value
toJSON = Options -> WebItem -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = ShowS
lowerAll ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
stripFieldNamePrefix String
"wi"
}
data Target
= TargetPage
| TargetDialog (Maybe DialogOptions)
| TargetInlineDialog (Maybe InlineDialogOptions)
deriving (Int -> Target -> ShowS
[Target] -> ShowS
Target -> String
(Int -> Target -> ShowS)
-> (Target -> String) -> ([Target] -> ShowS) -> Show Target
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Target] -> ShowS
$cshowList :: [Target] -> ShowS
show :: Target -> String
$cshow :: Target -> String
showsPrec :: Int -> Target -> ShowS
$cshowsPrec :: Int -> Target -> ShowS
Show)
tp :: String -> T.Text
tp :: String -> Text
tp = String -> Text
T.pack
instance ToJSON Target where
toJSON :: Target -> Value
toJSON (Target
TargetPage) = [Pair] -> Value
object [String -> Text
tp String
"type" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> Text
tp String
"page"]
toJSON (TargetDialog Maybe DialogOptions
potentialOptions) = [Pair] -> Value
object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ String -> Text
tp String
"type" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> Text
tp String
"dialog" Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
:
case Maybe DialogOptions
potentialOptions of
Just DialogOptions
options -> [String -> Text
tp String
"options" Text -> Value -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= DialogOptions -> Value
forall a. ToJSON a => a -> Value
toJSON DialogOptions
options]
Maybe DialogOptions
Nothing -> []
toJSON (TargetInlineDialog Maybe InlineDialogOptions
potentialOptions) = [Pair] -> Value
object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ String -> Text
tp String
"type" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> Text
tp String
"inlinedialog" Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
:
case Maybe InlineDialogOptions
potentialOptions of
Just InlineDialogOptions
options -> [String -> Text
tp String
"options" Text -> Value -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= InlineDialogOptions -> Value
forall a. ToJSON a => a -> Value
toJSON InlineDialogOptions
options]
Maybe InlineDialogOptions
Nothing -> []
data DialogOptions = DialogOptions
{ DialogOptions -> Maybe Weight
doHeight :: Maybe Integer
, DialogOptions -> Maybe Weight
doWidth :: Maybe Integer
, DialogOptions -> Maybe Bool
doChrome :: Maybe Bool
} deriving (Int -> DialogOptions -> ShowS
[DialogOptions] -> ShowS
DialogOptions -> String
(Int -> DialogOptions -> ShowS)
-> (DialogOptions -> String)
-> ([DialogOptions] -> ShowS)
-> Show DialogOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DialogOptions] -> ShowS
$cshowList :: [DialogOptions] -> ShowS
show :: DialogOptions -> String
$cshow :: DialogOptions -> String
showsPrec :: Int -> DialogOptions -> ShowS
$cshowsPrec :: Int -> DialogOptions -> ShowS
Show, (forall x. DialogOptions -> Rep DialogOptions x)
-> (forall x. Rep DialogOptions x -> DialogOptions)
-> Generic DialogOptions
forall x. Rep DialogOptions x -> DialogOptions
forall x. DialogOptions -> Rep DialogOptions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DialogOptions x -> DialogOptions
$cfrom :: forall x. DialogOptions -> Rep DialogOptions x
Generic)
instance ToJSON DialogOptions where
toJSON :: DialogOptions -> Value
toJSON = Options -> DialogOptions -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = ShowS
lowerAll ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
stripFieldNamePrefix String
"do"
}
data InlineDialogOptions = InlineDialogOptions
{ InlineDialogOptions -> Maybe Text
idoWidth :: Maybe T.Text
, InlineDialogOptions -> Maybe Bool
idoOnTop :: Maybe Bool
, InlineDialogOptions -> Maybe Bool
idoIsRelativeToMouse :: Maybe Bool
, InlineDialogOptions -> Maybe Weight
idoShowDelay :: Maybe Integer
, InlineDialogOptions -> Maybe Bool
idoOnHover :: Maybe Bool
, InlineDialogOptions -> Maybe Text
idoOffsetX :: Maybe T.Text
, InlineDialogOptions -> Maybe Text
idoOffsetY :: Maybe T.Text
, InlineDialogOptions -> Maybe Bool
idoPersistent :: Maybe Bool
, InlineDialogOptions -> Maybe Bool
idoCloseOthers :: Maybe Bool
} deriving (Int -> InlineDialogOptions -> ShowS
[InlineDialogOptions] -> ShowS
InlineDialogOptions -> String
(Int -> InlineDialogOptions -> ShowS)
-> (InlineDialogOptions -> String)
-> ([InlineDialogOptions] -> ShowS)
-> Show InlineDialogOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InlineDialogOptions] -> ShowS
$cshowList :: [InlineDialogOptions] -> ShowS
show :: InlineDialogOptions -> String
$cshow :: InlineDialogOptions -> String
showsPrec :: Int -> InlineDialogOptions -> ShowS
$cshowsPrec :: Int -> InlineDialogOptions -> ShowS
Show, (forall x. InlineDialogOptions -> Rep InlineDialogOptions x)
-> (forall x. Rep InlineDialogOptions x -> InlineDialogOptions)
-> Generic InlineDialogOptions
forall x. Rep InlineDialogOptions x -> InlineDialogOptions
forall x. InlineDialogOptions -> Rep InlineDialogOptions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InlineDialogOptions x -> InlineDialogOptions
$cfrom :: forall x. InlineDialogOptions -> Rep InlineDialogOptions x
Generic)
instance ToJSON InlineDialogOptions where
toJSON :: InlineDialogOptions -> Value
toJSON = Options -> InlineDialogOptions -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = ShowS
lowerAll ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> ShowS
stripFieldNamePrefix String
"ido"
}
data WebItemContext = PageContext | AddonContext | ProductContext
deriving(Int -> WebItemContext -> ShowS
[WebItemContext] -> ShowS
WebItemContext -> String
(Int -> WebItemContext -> ShowS)
-> (WebItemContext -> String)
-> ([WebItemContext] -> ShowS)
-> Show WebItemContext
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WebItemContext] -> ShowS
$cshowList :: [WebItemContext] -> ShowS
show :: WebItemContext -> String
$cshow :: WebItemContext -> String
showsPrec :: Int -> WebItemContext -> ShowS
$cshowsPrec :: Int -> WebItemContext -> ShowS
Show, (forall x. WebItemContext -> Rep WebItemContext x)
-> (forall x. Rep WebItemContext x -> WebItemContext)
-> Generic WebItemContext
forall x. Rep WebItemContext x -> WebItemContext
forall x. WebItemContext -> Rep WebItemContext x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep WebItemContext x -> WebItemContext
$cfrom :: forall x. WebItemContext -> Rep WebItemContext x
Generic)
instance ToJSON WebItemContext where
toJSON :: WebItemContext -> Value
toJSON WebItemContext
PageContext = String -> Value
stj String
"page"
toJSON WebItemContext
AddonContext = String -> Value
stj String
"addon"
toJSON WebItemContext
ProductContext = String -> Value
stj String
"product"
stj :: String -> Value
stj :: String -> Value
stj = Text -> Value
String (Text -> Value) -> (String -> Text) -> String -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Text
T.pack
data JIRAGenericTabPanel = JIRAGenericTabPanel
{ JIRAGenericTabPanel -> Text
jtpKey :: T.Text
, JIRAGenericTabPanel -> I18nText
jtpName :: I18nText
, JIRAGenericTabPanel -> Text
jtpUrl :: T.Text
, JIRAGenericTabPanel -> [Condition]
jtpConditions :: [Condition]
, JIRAGenericTabPanel -> Maybe Weight
jtpWeight :: Maybe Weight
, JIRAGenericTabPanel -> ModuleParams
jtpParams :: ModuleParams
} deriving (Int -> JIRAGenericTabPanel -> ShowS
[JIRAGenericTabPanel] -> ShowS
JIRAGenericTabPanel -> String
(Int -> JIRAGenericTabPanel -> ShowS)
-> (JIRAGenericTabPanel -> String)
-> ([JIRAGenericTabPanel] -> ShowS)
-> Show JIRAGenericTabPanel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAGenericTabPanel] -> ShowS
$cshowList :: [JIRAGenericTabPanel] -> ShowS
show :: JIRAGenericTabPanel -> String
$cshow :: JIRAGenericTabPanel -> String
showsPrec :: Int -> JIRAGenericTabPanel -> ShowS
$cshowsPrec :: Int -> JIRAGenericTabPanel -> ShowS
Show, (forall x. JIRAGenericTabPanel -> Rep JIRAGenericTabPanel x)
-> (forall x. Rep JIRAGenericTabPanel x -> JIRAGenericTabPanel)
-> Generic JIRAGenericTabPanel
forall x. Rep JIRAGenericTabPanel x -> JIRAGenericTabPanel
forall x. JIRAGenericTabPanel -> Rep JIRAGenericTabPanel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAGenericTabPanel x -> JIRAGenericTabPanel
$cfrom :: forall x. JIRAGenericTabPanel -> Rep JIRAGenericTabPanel x
Generic)
instance ToJSON JIRAGenericTabPanel where
toJSON :: JIRAGenericTabPanel -> Value
toJSON = Options -> JIRAGenericTabPanel -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jtp"
}
data JIRAProjectAdminTabPanel = JIRAProjectAdminTabPanel
{ JIRAProjectAdminTabPanel -> Text
jpatpKey :: T.Text
, JIRAProjectAdminTabPanel -> I18nText
jpatpName :: I18nText
, JIRAProjectAdminTabPanel -> Text
jpatpUrl :: T.Text
, JIRAProjectAdminTabPanel -> Text
jpatpLocation :: T.Text
, JIRAProjectAdminTabPanel -> [Condition]
jpatpConditions :: [Condition]
, JIRAProjectAdminTabPanel -> Maybe Weight
jpatpWeight :: Maybe Weight
, JIRAProjectAdminTabPanel -> ModuleParams
jpatpParams :: ModuleParams
} deriving (Int -> JIRAProjectAdminTabPanel -> ShowS
[JIRAProjectAdminTabPanel] -> ShowS
JIRAProjectAdminTabPanel -> String
(Int -> JIRAProjectAdminTabPanel -> ShowS)
-> (JIRAProjectAdminTabPanel -> String)
-> ([JIRAProjectAdminTabPanel] -> ShowS)
-> Show JIRAProjectAdminTabPanel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAProjectAdminTabPanel] -> ShowS
$cshowList :: [JIRAProjectAdminTabPanel] -> ShowS
show :: JIRAProjectAdminTabPanel -> String
$cshow :: JIRAProjectAdminTabPanel -> String
showsPrec :: Int -> JIRAProjectAdminTabPanel -> ShowS
$cshowsPrec :: Int -> JIRAProjectAdminTabPanel -> ShowS
Show, (forall x.
JIRAProjectAdminTabPanel -> Rep JIRAProjectAdminTabPanel x)
-> (forall x.
Rep JIRAProjectAdminTabPanel x -> JIRAProjectAdminTabPanel)
-> Generic JIRAProjectAdminTabPanel
forall x.
Rep JIRAProjectAdminTabPanel x -> JIRAProjectAdminTabPanel
forall x.
JIRAProjectAdminTabPanel -> Rep JIRAProjectAdminTabPanel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep JIRAProjectAdminTabPanel x -> JIRAProjectAdminTabPanel
$cfrom :: forall x.
JIRAProjectAdminTabPanel -> Rep JIRAProjectAdminTabPanel x
Generic)
instance ToJSON JIRAProjectAdminTabPanel where
toJSON :: JIRAProjectAdminTabPanel -> Value
toJSON = Options -> JIRAProjectAdminTabPanel -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jpatp"
}
data JIRAPage = JIRAPage
{ JIRAPage -> Text
jiraPageKey :: T.Text
, JIRAPage -> I18nText
jiraPageName :: I18nText
, JIRAPage -> Text
jiraPageUrl :: T.Text
, JIRAPage -> Maybe Text
jiraPageLocation :: Maybe T.Text
, JIRAPage -> Maybe Weight
jiraPageWeight :: Maybe Weight
, JIRAPage -> Maybe IconDetails
jiraPageIcon :: Maybe IconDetails
, JIRAPage -> [Condition]
jiraPageConditions :: [Condition]
, JIRAPage -> ModuleParams
jiraPageParams :: ModuleParams
} deriving (Int -> JIRAPage -> ShowS
[JIRAPage] -> ShowS
JIRAPage -> String
(Int -> JIRAPage -> ShowS)
-> (JIRAPage -> String) -> ([JIRAPage] -> ShowS) -> Show JIRAPage
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAPage] -> ShowS
$cshowList :: [JIRAPage] -> ShowS
show :: JIRAPage -> String
$cshow :: JIRAPage -> String
showsPrec :: Int -> JIRAPage -> ShowS
$cshowsPrec :: Int -> JIRAPage -> ShowS
Show, (forall x. JIRAPage -> Rep JIRAPage x)
-> (forall x. Rep JIRAPage x -> JIRAPage) -> Generic JIRAPage
forall x. Rep JIRAPage x -> JIRAPage
forall x. JIRAPage -> Rep JIRAPage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAPage x -> JIRAPage
$cfrom :: forall x. JIRAPage -> Rep JIRAPage x
Generic)
instance ToJSON JIRAPage where
toJSON :: JIRAPage -> Value
toJSON = Options -> JIRAPage -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jiraPage"
}
data JIRAIssueField = JiraIssueField
{ JIRAIssueField -> Text
jifKey :: T.Text
, JIRAIssueField -> I18nText
jifName :: I18nText
, JIRAIssueField -> I18nText
jifDescription :: I18nText
, JIRAIssueField -> JiraIssueFieldType
jifType :: JiraIssueFieldType
, :: Maybe [JiraIssueFieldExtraction]
, JIRAIssueField -> Maybe JiraIssueFieldProperty
jifProperty :: Maybe JiraIssueFieldProperty
, JIRAIssueField -> Maybe JiraIssueFieldTemplate
jifTemplate :: Maybe JiraIssueFieldTemplate
} deriving (Int -> JIRAIssueField -> ShowS
[JIRAIssueField] -> ShowS
JIRAIssueField -> String
(Int -> JIRAIssueField -> ShowS)
-> (JIRAIssueField -> String)
-> ([JIRAIssueField] -> ShowS)
-> Show JIRAIssueField
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAIssueField] -> ShowS
$cshowList :: [JIRAIssueField] -> ShowS
show :: JIRAIssueField -> String
$cshow :: JIRAIssueField -> String
showsPrec :: Int -> JIRAIssueField -> ShowS
$cshowsPrec :: Int -> JIRAIssueField -> ShowS
Show, (forall x. JIRAIssueField -> Rep JIRAIssueField x)
-> (forall x. Rep JIRAIssueField x -> JIRAIssueField)
-> Generic JIRAIssueField
forall x. Rep JIRAIssueField x -> JIRAIssueField
forall x. JIRAIssueField -> Rep JIRAIssueField x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAIssueField x -> JIRAIssueField
$cfrom :: forall x. JIRAIssueField -> Rep JIRAIssueField x
Generic)
instance ToJSON JIRAIssueField where
toJSON :: JIRAIssueField -> Value
toJSON = Options -> JIRAIssueField -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jif"
}
data =
{ JiraIssueFieldExtraction -> Text
jifePath :: T.Text
, JiraIssueFieldExtraction -> ExtractionType
jifeType :: ExtractionType
, JiraIssueFieldExtraction -> Maybe Text
jifeName :: Maybe T.Text
} deriving (Int -> JiraIssueFieldExtraction -> ShowS
[JiraIssueFieldExtraction] -> ShowS
JiraIssueFieldExtraction -> String
(Int -> JiraIssueFieldExtraction -> ShowS)
-> (JiraIssueFieldExtraction -> String)
-> ([JiraIssueFieldExtraction] -> ShowS)
-> Show JiraIssueFieldExtraction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JiraIssueFieldExtraction] -> ShowS
$cshowList :: [JiraIssueFieldExtraction] -> ShowS
show :: JiraIssueFieldExtraction -> String
$cshow :: JiraIssueFieldExtraction -> String
showsPrec :: Int -> JiraIssueFieldExtraction -> ShowS
$cshowsPrec :: Int -> JiraIssueFieldExtraction -> ShowS
Show, (forall x.
JiraIssueFieldExtraction -> Rep JiraIssueFieldExtraction x)
-> (forall x.
Rep JiraIssueFieldExtraction x -> JiraIssueFieldExtraction)
-> Generic JiraIssueFieldExtraction
forall x.
Rep JiraIssueFieldExtraction x -> JiraIssueFieldExtraction
forall x.
JiraIssueFieldExtraction -> Rep JiraIssueFieldExtraction x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep JiraIssueFieldExtraction x -> JiraIssueFieldExtraction
$cfrom :: forall x.
JiraIssueFieldExtraction -> Rep JiraIssueFieldExtraction x
Generic)
instance ToJSON JiraIssueFieldExtraction where
toJSON :: JiraIssueFieldExtraction -> Value
toJSON = Options -> JiraIssueFieldExtraction -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jife"
}
data JiraIssueFieldProperty = JiraIssueFieldProperty
{ JiraIssueFieldProperty -> Text
jifpPath :: T.Text
, JiraIssueFieldProperty -> Text
jifpKey :: T.Text
, JiraIssueFieldProperty -> JiraIssueFieldPropertyType
jifpType :: JiraIssueFieldPropertyType
} deriving (Int -> JiraIssueFieldProperty -> ShowS
[JiraIssueFieldProperty] -> ShowS
JiraIssueFieldProperty -> String
(Int -> JiraIssueFieldProperty -> ShowS)
-> (JiraIssueFieldProperty -> String)
-> ([JiraIssueFieldProperty] -> ShowS)
-> Show JiraIssueFieldProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JiraIssueFieldProperty] -> ShowS
$cshowList :: [JiraIssueFieldProperty] -> ShowS
show :: JiraIssueFieldProperty -> String
$cshow :: JiraIssueFieldProperty -> String
showsPrec :: Int -> JiraIssueFieldProperty -> ShowS
$cshowsPrec :: Int -> JiraIssueFieldProperty -> ShowS
Show, (forall x. JiraIssueFieldProperty -> Rep JiraIssueFieldProperty x)
-> (forall x.
Rep JiraIssueFieldProperty x -> JiraIssueFieldProperty)
-> Generic JiraIssueFieldProperty
forall x. Rep JiraIssueFieldProperty x -> JiraIssueFieldProperty
forall x. JiraIssueFieldProperty -> Rep JiraIssueFieldProperty x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JiraIssueFieldProperty x -> JiraIssueFieldProperty
$cfrom :: forall x. JiraIssueFieldProperty -> Rep JiraIssueFieldProperty x
Generic)
instance ToJSON JiraIssueFieldProperty where
toJSON :: JiraIssueFieldProperty -> Value
toJSON = Options -> JiraIssueFieldProperty -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jifp"
}
data JiraIssueFieldTemplate = JiraIssueFieldTemplate
{ JiraIssueFieldTemplate -> Text
jiftType :: T.Text
, JiraIssueFieldTemplate -> Text
jiftUrl :: T.Text
} deriving (Int -> JiraIssueFieldTemplate -> ShowS
[JiraIssueFieldTemplate] -> ShowS
JiraIssueFieldTemplate -> String
(Int -> JiraIssueFieldTemplate -> ShowS)
-> (JiraIssueFieldTemplate -> String)
-> ([JiraIssueFieldTemplate] -> ShowS)
-> Show JiraIssueFieldTemplate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JiraIssueFieldTemplate] -> ShowS
$cshowList :: [JiraIssueFieldTemplate] -> ShowS
show :: JiraIssueFieldTemplate -> String
$cshow :: JiraIssueFieldTemplate -> String
showsPrec :: Int -> JiraIssueFieldTemplate -> ShowS
$cshowsPrec :: Int -> JiraIssueFieldTemplate -> ShowS
Show, (forall x. JiraIssueFieldTemplate -> Rep JiraIssueFieldTemplate x)
-> (forall x.
Rep JiraIssueFieldTemplate x -> JiraIssueFieldTemplate)
-> Generic JiraIssueFieldTemplate
forall x. Rep JiraIssueFieldTemplate x -> JiraIssueFieldTemplate
forall x. JiraIssueFieldTemplate -> Rep JiraIssueFieldTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JiraIssueFieldTemplate x -> JiraIssueFieldTemplate
$cfrom :: forall x. JiraIssueFieldTemplate -> Rep JiraIssueFieldTemplate x
Generic)
instance ToJSON JiraIssueFieldTemplate where
toJSON :: JiraIssueFieldTemplate -> Value
toJSON = Options -> JiraIssueFieldTemplate -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jift"
}
data JIRAIssueContent = JIRAIssueContent
{ JIRAIssueContent -> Text
jicKey :: T.Text
, JIRAIssueContent -> I18nText
jicName :: I18nText
, JIRAIssueContent -> I18nText
jicTooltip :: I18nText
, JIRAIssueContent -> IconDetails
jicIcon :: IconDetails
, JIRAIssueContent -> JIRAIssueContentTarget
jicTarget :: JIRAIssueContentTarget
, JIRAIssueContent -> [Condition]
jicConditions :: [Condition]
, JIRAIssueContent -> [Condition]
jicContentPresentConditions :: [Condition]
} deriving (Int -> JIRAIssueContent -> ShowS
[JIRAIssueContent] -> ShowS
JIRAIssueContent -> String
(Int -> JIRAIssueContent -> ShowS)
-> (JIRAIssueContent -> String)
-> ([JIRAIssueContent] -> ShowS)
-> Show JIRAIssueContent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAIssueContent] -> ShowS
$cshowList :: [JIRAIssueContent] -> ShowS
show :: JIRAIssueContent -> String
$cshow :: JIRAIssueContent -> String
showsPrec :: Int -> JIRAIssueContent -> ShowS
$cshowsPrec :: Int -> JIRAIssueContent -> ShowS
Show, (forall x. JIRAIssueContent -> Rep JIRAIssueContent x)
-> (forall x. Rep JIRAIssueContent x -> JIRAIssueContent)
-> Generic JIRAIssueContent
forall x. Rep JIRAIssueContent x -> JIRAIssueContent
forall x. JIRAIssueContent -> Rep JIRAIssueContent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAIssueContent x -> JIRAIssueContent
$cfrom :: forall x. JIRAIssueContent -> Rep JIRAIssueContent x
Generic)
instance ToJSON JIRAIssueContent where
toJSON :: JIRAIssueContent -> Value
toJSON = Options -> JIRAIssueContent -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jic"
}
data JIRAIssueContentTarget = JIRAIssueContentTargetWebPanel
{ JIRAIssueContentTarget -> Text
jictwpUrl :: T.Text
} deriving (Int -> JIRAIssueContentTarget -> ShowS
[JIRAIssueContentTarget] -> ShowS
JIRAIssueContentTarget -> String
(Int -> JIRAIssueContentTarget -> ShowS)
-> (JIRAIssueContentTarget -> String)
-> ([JIRAIssueContentTarget] -> ShowS)
-> Show JIRAIssueContentTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAIssueContentTarget] -> ShowS
$cshowList :: [JIRAIssueContentTarget] -> ShowS
show :: JIRAIssueContentTarget -> String
$cshow :: JIRAIssueContentTarget -> String
showsPrec :: Int -> JIRAIssueContentTarget -> ShowS
$cshowsPrec :: Int -> JIRAIssueContentTarget -> ShowS
Show)
instance ToJSON JIRAIssueContentTarget where
toJSON :: JIRAIssueContentTarget -> Value
toJSON wp :: JIRAIssueContentTarget
wp@(JIRAIssueContentTargetWebPanel {}) = [Pair] -> Value
object
[ Text
"type" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> Text
T.pack String
"web_panel"
, Text
"url" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (JIRAIssueContentTarget -> Text
jictwpUrl JIRAIssueContentTarget
wp)
]
data JIRAIssueGlance = JIRAIssueGlance
{ JIRAIssueGlance -> Text
jigKey :: T.Text
, JIRAIssueGlance -> I18nText
jigName :: I18nText
, JIRAIssueGlance -> JIRAIssueGlanceContent
jigContent :: JIRAIssueGlanceContent
, JIRAIssueGlance -> IconDetails
jigIcon :: IconDetails
, JIRAIssueGlance -> JIRAIssueGlanceTarget
jigTarget :: JIRAIssueGlanceTarget
, JIRAIssueGlance -> [Condition]
jigConditions :: [Condition]
} deriving (Int -> JIRAIssueGlance -> ShowS
[JIRAIssueGlance] -> ShowS
JIRAIssueGlance -> String
(Int -> JIRAIssueGlance -> ShowS)
-> (JIRAIssueGlance -> String)
-> ([JIRAIssueGlance] -> ShowS)
-> Show JIRAIssueGlance
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAIssueGlance] -> ShowS
$cshowList :: [JIRAIssueGlance] -> ShowS
show :: JIRAIssueGlance -> String
$cshow :: JIRAIssueGlance -> String
showsPrec :: Int -> JIRAIssueGlance -> ShowS
$cshowsPrec :: Int -> JIRAIssueGlance -> ShowS
Show, (forall x. JIRAIssueGlance -> Rep JIRAIssueGlance x)
-> (forall x. Rep JIRAIssueGlance x -> JIRAIssueGlance)
-> Generic JIRAIssueGlance
forall x. Rep JIRAIssueGlance x -> JIRAIssueGlance
forall x. JIRAIssueGlance -> Rep JIRAIssueGlance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAIssueGlance x -> JIRAIssueGlance
$cfrom :: forall x. JIRAIssueGlance -> Rep JIRAIssueGlance x
Generic)
instance ToJSON JIRAIssueGlance where
toJSON :: JIRAIssueGlance -> Value
toJSON = Options -> JIRAIssueGlance -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jig"
}
data JIRAIssueGlanceContent = JIRAIssueGlanceContentLabel
{ JIRAIssueGlanceContent -> I18nText
jigclLabel :: I18nText
} deriving (Int -> JIRAIssueGlanceContent -> ShowS
[JIRAIssueGlanceContent] -> ShowS
JIRAIssueGlanceContent -> String
(Int -> JIRAIssueGlanceContent -> ShowS)
-> (JIRAIssueGlanceContent -> String)
-> ([JIRAIssueGlanceContent] -> ShowS)
-> Show JIRAIssueGlanceContent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAIssueGlanceContent] -> ShowS
$cshowList :: [JIRAIssueGlanceContent] -> ShowS
show :: JIRAIssueGlanceContent -> String
$cshow :: JIRAIssueGlanceContent -> String
showsPrec :: Int -> JIRAIssueGlanceContent -> ShowS
$cshowsPrec :: Int -> JIRAIssueGlanceContent -> ShowS
Show)
instance ToJSON JIRAIssueGlanceContent where
toJSON :: JIRAIssueGlanceContent -> Value
toJSON label :: JIRAIssueGlanceContent
label@(JIRAIssueGlanceContentLabel {}) = [Pair] -> Value
object
[ Text
"type" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> Text
T.pack String
"label"
, Text
"label" Text -> I18nText -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (JIRAIssueGlanceContent -> I18nText
jigclLabel JIRAIssueGlanceContent
label)
]
data JIRAIssueGlanceTarget = JIRAIssueGlanceTargetWebPanel
{ JIRAIssueGlanceTarget -> Text
jigtwpUrl :: T.Text
} deriving (Int -> JIRAIssueGlanceTarget -> ShowS
[JIRAIssueGlanceTarget] -> ShowS
JIRAIssueGlanceTarget -> String
(Int -> JIRAIssueGlanceTarget -> ShowS)
-> (JIRAIssueGlanceTarget -> String)
-> ([JIRAIssueGlanceTarget] -> ShowS)
-> Show JIRAIssueGlanceTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAIssueGlanceTarget] -> ShowS
$cshowList :: [JIRAIssueGlanceTarget] -> ShowS
show :: JIRAIssueGlanceTarget -> String
$cshow :: JIRAIssueGlanceTarget -> String
showsPrec :: Int -> JIRAIssueGlanceTarget -> ShowS
$cshowsPrec :: Int -> JIRAIssueGlanceTarget -> ShowS
Show)
instance ToJSON JIRAIssueGlanceTarget where
toJSON :: JIRAIssueGlanceTarget -> Value
toJSON wp :: JIRAIssueGlanceTarget
wp@(JIRAIssueGlanceTargetWebPanel {}) = [Pair] -> Value
object
[ Text
"type" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> Text
T.pack String
"web_panel"
, Text
"url" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (JIRAIssueGlanceTarget -> Text
jigtwpUrl JIRAIssueGlanceTarget
wp)
]
data JIRASearchRequestView = JIRASearchRequestView
{ JIRASearchRequestView -> Text
jsrvKey :: T.Text
, JIRASearchRequestView -> I18nText
jsrvName :: I18nText
, JIRASearchRequestView -> Text
jsrvUrl :: T.Text
, JIRASearchRequestView -> Maybe I18nText
jsrvDescription :: Maybe I18nText
, JIRASearchRequestView -> Maybe Weight
jsrvWeight :: Maybe Weight
, JIRASearchRequestView -> [Condition]
jsrvConditions :: [Condition]
, JIRASearchRequestView -> ModuleParams
jsrvParams :: ModuleParams
} deriving (Int -> JIRASearchRequestView -> ShowS
[JIRASearchRequestView] -> ShowS
JIRASearchRequestView -> String
(Int -> JIRASearchRequestView -> ShowS)
-> (JIRASearchRequestView -> String)
-> ([JIRASearchRequestView] -> ShowS)
-> Show JIRASearchRequestView
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRASearchRequestView] -> ShowS
$cshowList :: [JIRASearchRequestView] -> ShowS
show :: JIRASearchRequestView -> String
$cshow :: JIRASearchRequestView -> String
showsPrec :: Int -> JIRASearchRequestView -> ShowS
$cshowsPrec :: Int -> JIRASearchRequestView -> ShowS
Show, (forall x. JIRASearchRequestView -> Rep JIRASearchRequestView x)
-> (forall x. Rep JIRASearchRequestView x -> JIRASearchRequestView)
-> Generic JIRASearchRequestView
forall x. Rep JIRASearchRequestView x -> JIRASearchRequestView
forall x. JIRASearchRequestView -> Rep JIRASearchRequestView x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRASearchRequestView x -> JIRASearchRequestView
$cfrom :: forall x. JIRASearchRequestView -> Rep JIRASearchRequestView x
Generic)
instance ToJSON JIRASearchRequestView where
toJSON :: JIRASearchRequestView -> Value
toJSON = Options -> JIRASearchRequestView -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jsrv"
}
data JIRAReport = JIRAReport
{ JIRAReport -> Text
jrKey :: T.Text
, JIRAReport -> I18nText
jrName :: I18nText
, JIRAReport -> Text
jrUrl :: T.Text
, JIRAReport -> I18nText
jrDescription :: I18nText
, JIRAReport -> Maybe JIRAReportCategory
jrReportCategory :: Maybe JIRAReportCategory
, JIRAReport -> Maybe Weight
jrWeight :: Maybe Weight
, JIRAReport -> Maybe Text
jrThumbnailUrl :: Maybe T.Text
} deriving (Int -> JIRAReport -> ShowS
[JIRAReport] -> ShowS
JIRAReport -> String
(Int -> JIRAReport -> ShowS)
-> (JIRAReport -> String)
-> ([JIRAReport] -> ShowS)
-> Show JIRAReport
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAReport] -> ShowS
$cshowList :: [JIRAReport] -> ShowS
show :: JIRAReport -> String
$cshow :: JIRAReport -> String
showsPrec :: Int -> JIRAReport -> ShowS
$cshowsPrec :: Int -> JIRAReport -> ShowS
Show, (forall x. JIRAReport -> Rep JIRAReport x)
-> (forall x. Rep JIRAReport x -> JIRAReport) -> Generic JIRAReport
forall x. Rep JIRAReport x -> JIRAReport
forall x. JIRAReport -> Rep JIRAReport x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAReport x -> JIRAReport
$cfrom :: forall x. JIRAReport -> Rep JIRAReport x
Generic)
instance ToJSON JIRAReport where
toJSON :: JIRAReport -> Value
toJSON = Options -> JIRAReport -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jr"
}
data JIRAReportCategory
= AgileRC
| IssueAnalysisRC
| ForecastManagementRC
| OtherRC
deriving (Int -> JIRAReportCategory -> ShowS
[JIRAReportCategory] -> ShowS
JIRAReportCategory -> String
(Int -> JIRAReportCategory -> ShowS)
-> (JIRAReportCategory -> String)
-> ([JIRAReportCategory] -> ShowS)
-> Show JIRAReportCategory
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAReportCategory] -> ShowS
$cshowList :: [JIRAReportCategory] -> ShowS
show :: JIRAReportCategory -> String
$cshow :: JIRAReportCategory -> String
showsPrec :: Int -> JIRAReportCategory -> ShowS
$cshowsPrec :: Int -> JIRAReportCategory -> ShowS
Show)
instance ToJSON JIRAReportCategory where
toJSON :: JIRAReportCategory -> Value
toJSON JIRAReportCategory
AgileRC = String -> Value
stj String
"agile"
toJSON JIRAReportCategory
IssueAnalysisRC = String -> Value
stj String
"issue_analysis"
toJSON JIRAReportCategory
ForecastManagementRC = String -> Value
stj String
"forecast_management"
toJSON JIRAReportCategory
OtherRC = String -> Value
stj String
"other"
data JIRAWorkflowPostFunction = JIRAWorkflowPostFunction
{ JIRAWorkflowPostFunction -> Text
jwpfKey :: T.Text
, JIRAWorkflowPostFunction -> I18nText
jwpfName :: I18nText
, JIRAWorkflowPostFunction -> URLBean
jwpfTriggered :: URLBean
, JIRAWorkflowPostFunction -> Maybe I18nText
jwpfDescription :: Maybe I18nText
, JIRAWorkflowPostFunction -> Maybe URLBean
jwpfCreate :: Maybe URLBean
, JIRAWorkflowPostFunction -> Maybe URLBean
jwpfEdit :: Maybe URLBean
, JIRAWorkflowPostFunction -> Maybe URLBean
jwpfView :: Maybe URLBean
} deriving (Int -> JIRAWorkflowPostFunction -> ShowS
[JIRAWorkflowPostFunction] -> ShowS
JIRAWorkflowPostFunction -> String
(Int -> JIRAWorkflowPostFunction -> ShowS)
-> (JIRAWorkflowPostFunction -> String)
-> ([JIRAWorkflowPostFunction] -> ShowS)
-> Show JIRAWorkflowPostFunction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAWorkflowPostFunction] -> ShowS
$cshowList :: [JIRAWorkflowPostFunction] -> ShowS
show :: JIRAWorkflowPostFunction -> String
$cshow :: JIRAWorkflowPostFunction -> String
showsPrec :: Int -> JIRAWorkflowPostFunction -> ShowS
$cshowsPrec :: Int -> JIRAWorkflowPostFunction -> ShowS
Show, (forall x.
JIRAWorkflowPostFunction -> Rep JIRAWorkflowPostFunction x)
-> (forall x.
Rep JIRAWorkflowPostFunction x -> JIRAWorkflowPostFunction)
-> Generic JIRAWorkflowPostFunction
forall x.
Rep JIRAWorkflowPostFunction x -> JIRAWorkflowPostFunction
forall x.
JIRAWorkflowPostFunction -> Rep JIRAWorkflowPostFunction x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep JIRAWorkflowPostFunction x -> JIRAWorkflowPostFunction
$cfrom :: forall x.
JIRAWorkflowPostFunction -> Rep JIRAWorkflowPostFunction x
Generic)
instance ToJSON JIRAWorkflowPostFunction where
toJSON :: JIRAWorkflowPostFunction -> Value
toJSON = Options -> JIRAWorkflowPostFunction -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jwpf"
}
data JIRAEntityProperties = JIRAEntityProperties
{ JIRAEntityProperties -> Text
jepKey :: T.Text
, JIRAEntityProperties -> I18nText
jepName :: I18nText
, JIRAEntityProperties -> Maybe EntityType
jepEntityType :: Maybe EntityType
, JIRAEntityProperties -> [KeyConfiguration]
jepKeyConfigurations :: [KeyConfiguration]
} deriving (Int -> JIRAEntityProperties -> ShowS
[JIRAEntityProperties] -> ShowS
JIRAEntityProperties -> String
(Int -> JIRAEntityProperties -> ShowS)
-> (JIRAEntityProperties -> String)
-> ([JIRAEntityProperties] -> ShowS)
-> Show JIRAEntityProperties
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JIRAEntityProperties] -> ShowS
$cshowList :: [JIRAEntityProperties] -> ShowS
show :: JIRAEntityProperties -> String
$cshow :: JIRAEntityProperties -> String
showsPrec :: Int -> JIRAEntityProperties -> ShowS
$cshowsPrec :: Int -> JIRAEntityProperties -> ShowS
Show, (forall x. JIRAEntityProperties -> Rep JIRAEntityProperties x)
-> (forall x. Rep JIRAEntityProperties x -> JIRAEntityProperties)
-> Generic JIRAEntityProperties
forall x. Rep JIRAEntityProperties x -> JIRAEntityProperties
forall x. JIRAEntityProperties -> Rep JIRAEntityProperties x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JIRAEntityProperties x -> JIRAEntityProperties
$cfrom :: forall x. JIRAEntityProperties -> Rep JIRAEntityProperties x
Generic)
instance ToJSON JIRAEntityProperties where
toJSON :: JIRAEntityProperties -> Value
toJSON = Options -> JIRAEntityProperties -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"jep"
}
data EntityType = IssueEntityType
deriving (Int -> EntityType -> ShowS
[EntityType] -> ShowS
EntityType -> String
(Int -> EntityType -> ShowS)
-> (EntityType -> String)
-> ([EntityType] -> ShowS)
-> Show EntityType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EntityType] -> ShowS
$cshowList :: [EntityType] -> ShowS
show :: EntityType -> String
$cshow :: EntityType -> String
showsPrec :: Int -> EntityType -> ShowS
$cshowsPrec :: Int -> EntityType -> ShowS
Show)
instance ToJSON EntityType where
toJSON :: EntityType -> Value
toJSON EntityType
IssueEntityType = String -> Value
stj String
"issue"
data KeyConfiguration = KeyConfiguration
{ KeyConfiguration -> Text
kcPropertyKey :: T.Text
, :: [Extraction]
} deriving (Int -> KeyConfiguration -> ShowS
[KeyConfiguration] -> ShowS
KeyConfiguration -> String
(Int -> KeyConfiguration -> ShowS)
-> (KeyConfiguration -> String)
-> ([KeyConfiguration] -> ShowS)
-> Show KeyConfiguration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [KeyConfiguration] -> ShowS
$cshowList :: [KeyConfiguration] -> ShowS
show :: KeyConfiguration -> String
$cshow :: KeyConfiguration -> String
showsPrec :: Int -> KeyConfiguration -> ShowS
$cshowsPrec :: Int -> KeyConfiguration -> ShowS
Show, (forall x. KeyConfiguration -> Rep KeyConfiguration x)
-> (forall x. Rep KeyConfiguration x -> KeyConfiguration)
-> Generic KeyConfiguration
forall x. Rep KeyConfiguration x -> KeyConfiguration
forall x. KeyConfiguration -> Rep KeyConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep KeyConfiguration x -> KeyConfiguration
$cfrom :: forall x. KeyConfiguration -> Rep KeyConfiguration x
Generic)
instance ToJSON KeyConfiguration where
toJSON :: KeyConfiguration -> Value
toJSON = Options -> KeyConfiguration -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"kc"
}
data =
{ :: T.Text
, :: ExtractionType
, :: Maybe T.Text
} deriving (Int -> Extraction -> ShowS
[Extraction] -> ShowS
Extraction -> String
(Int -> Extraction -> ShowS)
-> (Extraction -> String)
-> ([Extraction] -> ShowS)
-> Show Extraction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Extraction] -> ShowS
$cshowList :: [Extraction] -> ShowS
show :: Extraction -> String
$cshow :: Extraction -> String
showsPrec :: Int -> Extraction -> ShowS
$cshowsPrec :: Int -> Extraction -> ShowS
Show, (forall x. Extraction -> Rep Extraction x)
-> (forall x. Rep Extraction x -> Extraction) -> Generic Extraction
forall x. Rep Extraction x -> Extraction
forall x. Extraction -> Rep Extraction x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Extraction x -> Extraction
$cfrom :: forall x. Extraction -> Rep Extraction x
Generic)
instance ToJSON Extraction where
toJSON :: Extraction -> Value
toJSON = Options -> Extraction -> Value
forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
baseOptions
{ fieldLabelModifier :: ShowS
fieldLabelModifier = String -> ShowS
stripFieldNamePrefix String
"extraction"
}
data JiraIssueFieldType
= JiraIssueFieldTypeString
| JiraIssueFieldTypeText
| JiraIssueFieldTypeRichText
| JiraIssueFieldTypeSingleSelect
| JiraIssueFieldTypeMultiSelect
| JiraIssueFieldTypeNumber
| JiraIssueFieldTypeReadOnly
deriving (Int -> JiraIssueFieldType -> ShowS
[JiraIssueFieldType] -> ShowS
JiraIssueFieldType -> String
(Int -> JiraIssueFieldType -> ShowS)
-> (JiraIssueFieldType -> String)
-> ([JiraIssueFieldType] -> ShowS)
-> Show JiraIssueFieldType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JiraIssueFieldType] -> ShowS
$cshowList :: [JiraIssueFieldType] -> ShowS
show :: JiraIssueFieldType -> String
$cshow :: JiraIssueFieldType -> String
showsPrec :: Int -> JiraIssueFieldType -> ShowS
$cshowsPrec :: Int -> JiraIssueFieldType -> ShowS
Show)
instance ToJSON JiraIssueFieldType where
toJSON :: JiraIssueFieldType -> Value
toJSON JiraIssueFieldType
JiraIssueFieldTypeString = String -> Value
stj String
"string"
toJSON JiraIssueFieldType
JiraIssueFieldTypeText = String -> Value
stj String
"text"
toJSON JiraIssueFieldType
JiraIssueFieldTypeRichText = String -> Value
stj String
"rich_text"
toJSON JiraIssueFieldType
JiraIssueFieldTypeSingleSelect = String -> Value
stj String
"single_select"
toJSON JiraIssueFieldType
JiraIssueFieldTypeMultiSelect = String -> Value
stj String
"multi_select"
toJSON JiraIssueFieldType
JiraIssueFieldTypeNumber = String -> Value
stj String
"number"
toJSON JiraIssueFieldType
JiraIssueFieldTypeReadOnly = String -> Value
stj String
"read_only"
data JiraIssueFieldPropertyType
= JiraIssueFieldPropertyTypeNumber
| JiraIssueFieldPropertyTypeString
| JiraIssueFieldPropertyTypeDate
deriving(Int -> JiraIssueFieldPropertyType -> ShowS
[JiraIssueFieldPropertyType] -> ShowS
JiraIssueFieldPropertyType -> String
(Int -> JiraIssueFieldPropertyType -> ShowS)
-> (JiraIssueFieldPropertyType -> String)
-> ([JiraIssueFieldPropertyType] -> ShowS)
-> Show JiraIssueFieldPropertyType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JiraIssueFieldPropertyType] -> ShowS
$cshowList :: [JiraIssueFieldPropertyType] -> ShowS
show :: JiraIssueFieldPropertyType -> String
$cshow :: JiraIssueFieldPropertyType -> String
showsPrec :: Int -> JiraIssueFieldPropertyType -> ShowS
$cshowsPrec :: Int -> JiraIssueFieldPropertyType -> ShowS
Show)
instance ToJSON JiraIssueFieldPropertyType where
toJSON :: JiraIssueFieldPropertyType -> Value
toJSON JiraIssueFieldPropertyType
JiraIssueFieldPropertyTypeNumber = String -> Value
stj String
"number"
toJSON JiraIssueFieldPropertyType
JiraIssueFieldPropertyTypeString = String -> Value
stj String
"string"
toJSON JiraIssueFieldPropertyType
JiraIssueFieldPropertyTypeDate = String -> Value
stj String
"date"
data
=
|
|
|
|
deriving(Int -> ExtractionType -> ShowS
[ExtractionType] -> ShowS
ExtractionType -> String
(Int -> ExtractionType -> ShowS)
-> (ExtractionType -> String)
-> ([ExtractionType] -> ShowS)
-> Show ExtractionType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ExtractionType] -> ShowS
$cshowList :: [ExtractionType] -> ShowS
show :: ExtractionType -> String
$cshow :: ExtractionType -> String
showsPrec :: Int -> ExtractionType -> ShowS
$cshowsPrec :: Int -> ExtractionType -> ShowS
Show)
instance ToJSON ExtractionType where
toJSON :: ExtractionType -> Value
toJSON ExtractionType
ExtractionTypeNumber = String -> Value
stj String
"number"
toJSON ExtractionType
ExtractionTypeText = String -> Value
stj String
"text"
toJSON ExtractionType
ExtractionTypeString = String -> Value
stj String
"string"
toJSON ExtractionType
ExtractionTypeDate = String -> Value
stj String
"date"
toJSON ExtractionType
ExtractionTypeUser = String -> Value
stj String
"user"