{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE OverloadedStrings #-}
module Network.Mattermost.Types.Config where
import qualified Data.Aeson as A
import Data.Text (Text)
import qualified Data.Text as T
data ServerConfig = ServerConfig
{
ServerConfig -> LogSettings
configLogsettings :: LogSettings
, ServerConfig -> ComplianceSettings
configCompliancesettings :: ComplianceSettings
, ServerConfig -> EmailSettings
configEmailsettings :: EmailSettings
, ServerConfig -> NativeAppSettings
configNativeappsettings :: NativeAppSettings
, ServerConfig -> PasswordSettings
configPasswordsettings :: PasswordSettings
, ServerConfig -> TeamSettings
configTeamsettings :: TeamSettings
, ServerConfig -> SupportSettings
configSupportsettings :: SupportSettings
, ServerConfig -> MetricsSettings
configMetricssettings :: MetricsSettings
, ServerConfig -> WebrtcSettings
configWebrtcsettings :: WebrtcSettings
} deriving (ReadPrec [ServerConfig]
ReadPrec ServerConfig
Int -> ReadS ServerConfig
ReadS [ServerConfig]
(Int -> ReadS ServerConfig)
-> ReadS [ServerConfig]
-> ReadPrec ServerConfig
-> ReadPrec [ServerConfig]
-> Read ServerConfig
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ServerConfig]
$creadListPrec :: ReadPrec [ServerConfig]
readPrec :: ReadPrec ServerConfig
$creadPrec :: ReadPrec ServerConfig
readList :: ReadS [ServerConfig]
$creadList :: ReadS [ServerConfig]
readsPrec :: Int -> ReadS ServerConfig
$creadsPrec :: Int -> ReadS ServerConfig
Read, Int -> ServerConfig -> ShowS
[ServerConfig] -> ShowS
ServerConfig -> String
(Int -> ServerConfig -> ShowS)
-> (ServerConfig -> String)
-> ([ServerConfig] -> ShowS)
-> Show ServerConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ServerConfig] -> ShowS
$cshowList :: [ServerConfig] -> ShowS
show :: ServerConfig -> String
$cshow :: ServerConfig -> String
showsPrec :: Int -> ServerConfig -> ShowS
$cshowsPrec :: Int -> ServerConfig -> ShowS
Show, ServerConfig -> ServerConfig -> Bool
(ServerConfig -> ServerConfig -> Bool)
-> (ServerConfig -> ServerConfig -> Bool) -> Eq ServerConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ServerConfig -> ServerConfig -> Bool
$c/= :: ServerConfig -> ServerConfig -> Bool
== :: ServerConfig -> ServerConfig -> Bool
$c== :: ServerConfig -> ServerConfig -> Bool
Eq)
instance A.FromJSON ServerConfig where
parseJSON :: Value -> Parser ServerConfig
parseJSON = String
-> (Object -> Parser ServerConfig) -> Value -> Parser ServerConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"config" ((Object -> Parser ServerConfig) -> Value -> Parser ServerConfig)
-> (Object -> Parser ServerConfig) -> Value -> Parser ServerConfig
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
LogSettings
configLogsettings <- Object
v Object -> Text -> Parser LogSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"LogSettings"
ComplianceSettings
configCompliancesettings <- Object
v Object -> Text -> Parser ComplianceSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ComplianceSettings"
EmailSettings
configEmailsettings <- Object
v Object -> Text -> Parser EmailSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EmailSettings"
NativeAppSettings
configNativeappsettings <- Object
v Object -> Text -> Parser NativeAppSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"NativeAppSettings"
PasswordSettings
configPasswordsettings <- Object
v Object -> Text -> Parser PasswordSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PasswordSettings"
TeamSettings
configTeamsettings <- Object
v Object -> Text -> Parser TeamSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TeamSettings"
SupportSettings
configSupportsettings <- Object
v Object -> Text -> Parser SupportSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SupportSettings"
MetricsSettings
configMetricssettings <- Object
v Object -> Text -> Parser MetricsSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MetricsSettings"
WebrtcSettings
configWebrtcsettings <- Object
v Object -> Text -> Parser WebrtcSettings
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"WebrtcSettings"
ServerConfig -> Parser ServerConfig
forall (m :: * -> *) a. Monad m => a -> m a
return ServerConfig :: LogSettings
-> ComplianceSettings
-> EmailSettings
-> NativeAppSettings
-> PasswordSettings
-> TeamSettings
-> SupportSettings
-> MetricsSettings
-> WebrtcSettings
-> ServerConfig
ServerConfig { SupportSettings
ComplianceSettings
NativeAppSettings
MetricsSettings
LogSettings
PasswordSettings
WebrtcSettings
TeamSettings
EmailSettings
configWebrtcsettings :: WebrtcSettings
configMetricssettings :: MetricsSettings
configSupportsettings :: SupportSettings
configTeamsettings :: TeamSettings
configPasswordsettings :: PasswordSettings
configNativeappsettings :: NativeAppSettings
configEmailsettings :: EmailSettings
configCompliancesettings :: ComplianceSettings
configLogsettings :: LogSettings
configWebrtcsettings :: WebrtcSettings
configMetricssettings :: MetricsSettings
configSupportsettings :: SupportSettings
configTeamsettings :: TeamSettings
configPasswordsettings :: PasswordSettings
configNativeappsettings :: NativeAppSettings
configEmailsettings :: EmailSettings
configCompliancesettings :: ComplianceSettings
configLogsettings :: LogSettings
.. }
instance A.ToJSON ServerConfig where
toJSON :: ServerConfig -> Value
toJSON ServerConfig { SupportSettings
ComplianceSettings
NativeAppSettings
MetricsSettings
LogSettings
PasswordSettings
WebrtcSettings
TeamSettings
EmailSettings
configWebrtcsettings :: WebrtcSettings
configMetricssettings :: MetricsSettings
configSupportsettings :: SupportSettings
configTeamsettings :: TeamSettings
configPasswordsettings :: PasswordSettings
configNativeappsettings :: NativeAppSettings
configEmailsettings :: EmailSettings
configCompliancesettings :: ComplianceSettings
configLogsettings :: LogSettings
configWebrtcsettings :: ServerConfig -> WebrtcSettings
configMetricssettings :: ServerConfig -> MetricsSettings
configSupportsettings :: ServerConfig -> SupportSettings
configTeamsettings :: ServerConfig -> TeamSettings
configPasswordsettings :: ServerConfig -> PasswordSettings
configNativeappsettings :: ServerConfig -> NativeAppSettings
configEmailsettings :: ServerConfig -> EmailSettings
configCompliancesettings :: ServerConfig -> ComplianceSettings
configLogsettings :: ServerConfig -> LogSettings
.. } = [Pair] -> Value
A.object
[ Text
"EmailSettings" Text -> EmailSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= EmailSettings
configEmailsettings
, Text
"WebrtcSettings" Text -> WebrtcSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= WebrtcSettings
configWebrtcsettings
, Text
"PasswordSettings" Text -> PasswordSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= PasswordSettings
configPasswordsettings
, Text
"LogSettings" Text -> LogSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= LogSettings
configLogsettings
, Text
"NativeAppSettings" Text -> NativeAppSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= NativeAppSettings
configNativeappsettings
, Text
"MetricsSettings" Text -> MetricsSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= MetricsSettings
configMetricssettings
, Text
"ComplianceSettings" Text -> ComplianceSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= ComplianceSettings
configCompliancesettings
, Text
"SupportSettings" Text -> SupportSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= SupportSettings
configSupportsettings
, Text
"WebrtcSettings" Text -> WebrtcSettings -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= WebrtcSettings
configWebrtcsettings
]
data EmailSettings = EmailSettings
{ EmailSettings -> Bool
emailSettingsSendemailnotifications :: Bool
, EmailSettings -> Maybe Text
emailSettingsPasswordresetsalt :: Maybe T.Text
, EmailSettings -> Bool
emailSettingsEnablesignupwithemail :: Bool
, EmailSettings -> Text
emailSettingsSmtpusername ::T.Text
, EmailSettings -> Int
emailSettingsEmailbatchinginterval :: Int
, EmailSettings -> Text
emailSettingsFeedbackname ::T.Text
, EmailSettings -> Bool
emailSettingsRequireemailverification :: Bool
, EmailSettings -> Text
emailSettingsSmtpserver ::T.Text
, EmailSettings -> Text
emailSettingsSmtppassword ::T.Text
, EmailSettings -> Bool
emailSettingsEnablesigninwithemail :: Bool
, EmailSettings -> Text
emailSettingsPushnotificationcontents ::T.Text
, EmailSettings -> Text
emailSettingsPushnotificationserver ::T.Text
, EmailSettings -> Bool
emailSettingsEnableemailbatching :: Bool
, EmailSettings -> Int
emailSettingsEmailbatchingbuffersize :: Int
, EmailSettings -> Text
emailSettingsConnectionsecurity ::T.Text
, EmailSettings -> Text
emailSettingsSmtpport ::T.Text
, EmailSettings -> Text
emailSettingsFeedbackemail ::T.Text
, EmailSettings -> Bool
emailSettingsSendpushnotifications :: Bool
, EmailSettings -> Text
emailSettingsFeedbackorganization ::T.Text
, EmailSettings -> Text
emailSettingsInvitesalt ::T.Text
, EmailSettings -> Bool
emailSettingsEnablesigninwithusername :: Bool
} deriving (ReadPrec [EmailSettings]
ReadPrec EmailSettings
Int -> ReadS EmailSettings
ReadS [EmailSettings]
(Int -> ReadS EmailSettings)
-> ReadS [EmailSettings]
-> ReadPrec EmailSettings
-> ReadPrec [EmailSettings]
-> Read EmailSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [EmailSettings]
$creadListPrec :: ReadPrec [EmailSettings]
readPrec :: ReadPrec EmailSettings
$creadPrec :: ReadPrec EmailSettings
readList :: ReadS [EmailSettings]
$creadList :: ReadS [EmailSettings]
readsPrec :: Int -> ReadS EmailSettings
$creadsPrec :: Int -> ReadS EmailSettings
Read, Int -> EmailSettings -> ShowS
[EmailSettings] -> ShowS
EmailSettings -> String
(Int -> EmailSettings -> ShowS)
-> (EmailSettings -> String)
-> ([EmailSettings] -> ShowS)
-> Show EmailSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EmailSettings] -> ShowS
$cshowList :: [EmailSettings] -> ShowS
show :: EmailSettings -> String
$cshow :: EmailSettings -> String
showsPrec :: Int -> EmailSettings -> ShowS
$cshowsPrec :: Int -> EmailSettings -> ShowS
Show, EmailSettings -> EmailSettings -> Bool
(EmailSettings -> EmailSettings -> Bool)
-> (EmailSettings -> EmailSettings -> Bool) -> Eq EmailSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EmailSettings -> EmailSettings -> Bool
$c/= :: EmailSettings -> EmailSettings -> Bool
== :: EmailSettings -> EmailSettings -> Bool
$c== :: EmailSettings -> EmailSettings -> Bool
Eq)
instance A.FromJSON EmailSettings where
parseJSON :: Value -> Parser EmailSettings
parseJSON = String
-> (Object -> Parser EmailSettings)
-> Value
-> Parser EmailSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"emailSettings" ((Object -> Parser EmailSettings) -> Value -> Parser EmailSettings)
-> (Object -> Parser EmailSettings)
-> Value
-> Parser EmailSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Bool
emailSettingsSendemailnotifications <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SendEmailNotifications"
Maybe Text
emailSettingsPasswordresetsalt <- Object
v Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"PasswordResetSalt"
Bool
emailSettingsEnablesignupwithemail <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignUpWithEmail"
Text
emailSettingsSmtpusername <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SMTPUsername"
Int
emailSettingsEmailbatchinginterval <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EmailBatchingInterval"
Text
emailSettingsFeedbackname <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"FeedbackName"
Bool
emailSettingsRequireemailverification <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RequireEmailVerification"
Text
emailSettingsSmtpserver <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SMTPServer"
Text
emailSettingsSmtppassword <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SMTPPassword"
Bool
emailSettingsEnablesigninwithemail <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignInWithEmail"
Text
emailSettingsPushnotificationcontents <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PushNotificationContents"
Text
emailSettingsPushnotificationserver <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PushNotificationServer"
Bool
emailSettingsEnableemailbatching <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableEmailBatching"
Int
emailSettingsEmailbatchingbuffersize <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EmailBatchingBufferSize"
Text
emailSettingsConnectionsecurity <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ConnectionSecurity"
Text
emailSettingsSmtpport <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SMTPPort"
Text
emailSettingsFeedbackemail <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"FeedbackEmail"
Bool
emailSettingsSendpushnotifications <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SendPushNotifications"
Text
emailSettingsFeedbackorganization <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"FeedbackOrganization"
Text
emailSettingsInvitesalt <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"InviteSalt"
Bool
emailSettingsEnablesigninwithusername <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignInWithUsername"
EmailSettings -> Parser EmailSettings
forall (m :: * -> *) a. Monad m => a -> m a
return EmailSettings :: Bool
-> Maybe Text
-> Bool
-> Text
-> Int
-> Text
-> Bool
-> Text
-> Text
-> Bool
-> Text
-> Text
-> Bool
-> Int
-> Text
-> Text
-> Text
-> Bool
-> Text
-> Text
-> Bool
-> EmailSettings
EmailSettings { Bool
Int
Maybe Text
Text
emailSettingsEnablesigninwithusername :: Bool
emailSettingsInvitesalt :: Text
emailSettingsFeedbackorganization :: Text
emailSettingsSendpushnotifications :: Bool
emailSettingsFeedbackemail :: Text
emailSettingsSmtpport :: Text
emailSettingsConnectionsecurity :: Text
emailSettingsEmailbatchingbuffersize :: Int
emailSettingsEnableemailbatching :: Bool
emailSettingsPushnotificationserver :: Text
emailSettingsPushnotificationcontents :: Text
emailSettingsEnablesigninwithemail :: Bool
emailSettingsSmtppassword :: Text
emailSettingsSmtpserver :: Text
emailSettingsRequireemailverification :: Bool
emailSettingsFeedbackname :: Text
emailSettingsEmailbatchinginterval :: Int
emailSettingsSmtpusername :: Text
emailSettingsEnablesignupwithemail :: Bool
emailSettingsPasswordresetsalt :: Maybe Text
emailSettingsSendemailnotifications :: Bool
emailSettingsEnablesigninwithusername :: Bool
emailSettingsInvitesalt :: Text
emailSettingsFeedbackorganization :: Text
emailSettingsSendpushnotifications :: Bool
emailSettingsFeedbackemail :: Text
emailSettingsSmtpport :: Text
emailSettingsConnectionsecurity :: Text
emailSettingsEmailbatchingbuffersize :: Int
emailSettingsEnableemailbatching :: Bool
emailSettingsPushnotificationserver :: Text
emailSettingsPushnotificationcontents :: Text
emailSettingsEnablesigninwithemail :: Bool
emailSettingsSmtppassword :: Text
emailSettingsSmtpserver :: Text
emailSettingsRequireemailverification :: Bool
emailSettingsFeedbackname :: Text
emailSettingsEmailbatchinginterval :: Int
emailSettingsSmtpusername :: Text
emailSettingsEnablesignupwithemail :: Bool
emailSettingsPasswordresetsalt :: Maybe Text
emailSettingsSendemailnotifications :: Bool
.. }
instance A.ToJSON EmailSettings where
toJSON :: EmailSettings -> Value
toJSON EmailSettings { Bool
Int
Maybe Text
Text
emailSettingsEnablesigninwithusername :: Bool
emailSettingsInvitesalt :: Text
emailSettingsFeedbackorganization :: Text
emailSettingsSendpushnotifications :: Bool
emailSettingsFeedbackemail :: Text
emailSettingsSmtpport :: Text
emailSettingsConnectionsecurity :: Text
emailSettingsEmailbatchingbuffersize :: Int
emailSettingsEnableemailbatching :: Bool
emailSettingsPushnotificationserver :: Text
emailSettingsPushnotificationcontents :: Text
emailSettingsEnablesigninwithemail :: Bool
emailSettingsSmtppassword :: Text
emailSettingsSmtpserver :: Text
emailSettingsRequireemailverification :: Bool
emailSettingsFeedbackname :: Text
emailSettingsEmailbatchinginterval :: Int
emailSettingsSmtpusername :: Text
emailSettingsEnablesignupwithemail :: Bool
emailSettingsPasswordresetsalt :: Maybe Text
emailSettingsSendemailnotifications :: Bool
emailSettingsEnablesigninwithusername :: EmailSettings -> Bool
emailSettingsInvitesalt :: EmailSettings -> Text
emailSettingsFeedbackorganization :: EmailSettings -> Text
emailSettingsSendpushnotifications :: EmailSettings -> Bool
emailSettingsFeedbackemail :: EmailSettings -> Text
emailSettingsSmtpport :: EmailSettings -> Text
emailSettingsConnectionsecurity :: EmailSettings -> Text
emailSettingsEmailbatchingbuffersize :: EmailSettings -> Int
emailSettingsEnableemailbatching :: EmailSettings -> Bool
emailSettingsPushnotificationserver :: EmailSettings -> Text
emailSettingsPushnotificationcontents :: EmailSettings -> Text
emailSettingsEnablesigninwithemail :: EmailSettings -> Bool
emailSettingsSmtppassword :: EmailSettings -> Text
emailSettingsSmtpserver :: EmailSettings -> Text
emailSettingsRequireemailverification :: EmailSettings -> Bool
emailSettingsFeedbackname :: EmailSettings -> Text
emailSettingsEmailbatchinginterval :: EmailSettings -> Int
emailSettingsSmtpusername :: EmailSettings -> Text
emailSettingsEnablesignupwithemail :: EmailSettings -> Bool
emailSettingsPasswordresetsalt :: EmailSettings -> Maybe Text
emailSettingsSendemailnotifications :: EmailSettings -> Bool
.. } = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$
[ Text
"SendEmailNotifications" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsSendemailnotifications
, Text
"EnableSignUpWithEmail" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsEnablesignupwithemail
, Text
"SMTPUsername" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsSmtpusername
, Text
"EmailBatchingInterval" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
emailSettingsEmailbatchinginterval
, Text
"FeedbackName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsFeedbackname
, Text
"RequireEmailVerification" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsRequireemailverification
, Text
"SMTPServer" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsSmtpserver
, Text
"SMTPPassword" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsSmtppassword
, Text
"EnableSignInWithEmail" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsEnablesigninwithemail
, Text
"PushNotificationContents" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsPushnotificationcontents
, Text
"PushNotificationServer" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsPushnotificationserver
, Text
"EnableEmailBatching" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsEnableemailbatching
, Text
"EmailBatchingBufferSize" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
emailSettingsEmailbatchingbuffersize
, Text
"ConnectionSecurity" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsConnectionsecurity
, Text
"SMTPPort" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsSmtpport
, Text
"FeedbackEmail" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsFeedbackemail
, Text
"SendPushNotifications" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsSendpushnotifications
, Text
"FeedbackOrganization" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsFeedbackorganization
, Text
"InviteSalt" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
emailSettingsInvitesalt
, Text
"EnableSignInWithUsername" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
emailSettingsEnablesigninwithusername
] [Pair] -> [Pair] -> [Pair]
forall a. [a] -> [a] -> [a]
++
[ Text
"PasswordResetSalt" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
x | Just Text
x <- [Maybe Text
emailSettingsPasswordresetsalt] ]
data TeammateNameDisplayMode =
TMUsername
| TMNicknameOrFullname
| TMFullname
| TMUnknown T.Text
deriving (TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool
(TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool)
-> (TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool)
-> Eq TeammateNameDisplayMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool
$c/= :: TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool
== :: TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool
$c== :: TeammateNameDisplayMode -> TeammateNameDisplayMode -> Bool
Eq, Int -> TeammateNameDisplayMode -> ShowS
[TeammateNameDisplayMode] -> ShowS
TeammateNameDisplayMode -> String
(Int -> TeammateNameDisplayMode -> ShowS)
-> (TeammateNameDisplayMode -> String)
-> ([TeammateNameDisplayMode] -> ShowS)
-> Show TeammateNameDisplayMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TeammateNameDisplayMode] -> ShowS
$cshowList :: [TeammateNameDisplayMode] -> ShowS
show :: TeammateNameDisplayMode -> String
$cshow :: TeammateNameDisplayMode -> String
showsPrec :: Int -> TeammateNameDisplayMode -> ShowS
$cshowsPrec :: Int -> TeammateNameDisplayMode -> ShowS
Show, ReadPrec [TeammateNameDisplayMode]
ReadPrec TeammateNameDisplayMode
Int -> ReadS TeammateNameDisplayMode
ReadS [TeammateNameDisplayMode]
(Int -> ReadS TeammateNameDisplayMode)
-> ReadS [TeammateNameDisplayMode]
-> ReadPrec TeammateNameDisplayMode
-> ReadPrec [TeammateNameDisplayMode]
-> Read TeammateNameDisplayMode
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TeammateNameDisplayMode]
$creadListPrec :: ReadPrec [TeammateNameDisplayMode]
readPrec :: ReadPrec TeammateNameDisplayMode
$creadPrec :: ReadPrec TeammateNameDisplayMode
readList :: ReadS [TeammateNameDisplayMode]
$creadList :: ReadS [TeammateNameDisplayMode]
readsPrec :: Int -> ReadS TeammateNameDisplayMode
$creadsPrec :: Int -> ReadS TeammateNameDisplayMode
Read)
teammateDisplayModeFromText :: Text -> TeammateNameDisplayMode
teammateDisplayModeFromText :: Text -> TeammateNameDisplayMode
teammateDisplayModeFromText Text
t =
case Text
t of
Text
"username" -> TeammateNameDisplayMode
TMUsername
Text
"nickname_full_name" -> TeammateNameDisplayMode
TMNicknameOrFullname
Text
"full_name" -> TeammateNameDisplayMode
TMFullname
Text
_ -> Text -> TeammateNameDisplayMode
TMUnknown Text
t
instance A.FromJSON TeammateNameDisplayMode where
parseJSON :: Value -> Parser TeammateNameDisplayMode
parseJSON = String
-> (Text -> Parser TeammateNameDisplayMode)
-> Value
-> Parser TeammateNameDisplayMode
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"TeammateNameDisplayMode"
(TeammateNameDisplayMode -> Parser TeammateNameDisplayMode
forall (m :: * -> *) a. Monad m => a -> m a
return (TeammateNameDisplayMode -> Parser TeammateNameDisplayMode)
-> (Text -> TeammateNameDisplayMode)
-> Text
-> Parser TeammateNameDisplayMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> TeammateNameDisplayMode
teammateDisplayModeFromText)
instance A.ToJSON TeammateNameDisplayMode where
toJSON :: TeammateNameDisplayMode -> Value
toJSON TeammateNameDisplayMode
TMUsername = Value
"username"
toJSON TeammateNameDisplayMode
TMNicknameOrFullname = Value
"nickname_full_name"
toJSON TeammateNameDisplayMode
TMFullname = Value
"full_name"
toJSON (TMUnknown Text
t) = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON Text
t
data RestrictDirectMessageSetting =
RestrictAny
| RestrictTeam
| RestrictUnknown T.Text
deriving (Int -> RestrictDirectMessageSetting -> ShowS
[RestrictDirectMessageSetting] -> ShowS
RestrictDirectMessageSetting -> String
(Int -> RestrictDirectMessageSetting -> ShowS)
-> (RestrictDirectMessageSetting -> String)
-> ([RestrictDirectMessageSetting] -> ShowS)
-> Show RestrictDirectMessageSetting
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RestrictDirectMessageSetting] -> ShowS
$cshowList :: [RestrictDirectMessageSetting] -> ShowS
show :: RestrictDirectMessageSetting -> String
$cshow :: RestrictDirectMessageSetting -> String
showsPrec :: Int -> RestrictDirectMessageSetting -> ShowS
$cshowsPrec :: Int -> RestrictDirectMessageSetting -> ShowS
Show, RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool
(RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool)
-> (RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool)
-> Eq RestrictDirectMessageSetting
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool
$c/= :: RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool
== :: RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool
$c== :: RestrictDirectMessageSetting
-> RestrictDirectMessageSetting -> Bool
Eq, ReadPrec [RestrictDirectMessageSetting]
ReadPrec RestrictDirectMessageSetting
Int -> ReadS RestrictDirectMessageSetting
ReadS [RestrictDirectMessageSetting]
(Int -> ReadS RestrictDirectMessageSetting)
-> ReadS [RestrictDirectMessageSetting]
-> ReadPrec RestrictDirectMessageSetting
-> ReadPrec [RestrictDirectMessageSetting]
-> Read RestrictDirectMessageSetting
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RestrictDirectMessageSetting]
$creadListPrec :: ReadPrec [RestrictDirectMessageSetting]
readPrec :: ReadPrec RestrictDirectMessageSetting
$creadPrec :: ReadPrec RestrictDirectMessageSetting
readList :: ReadS [RestrictDirectMessageSetting]
$creadList :: ReadS [RestrictDirectMessageSetting]
readsPrec :: Int -> ReadS RestrictDirectMessageSetting
$creadsPrec :: Int -> ReadS RestrictDirectMessageSetting
Read)
instance A.FromJSON RestrictDirectMessageSetting where
parseJSON :: Value -> Parser RestrictDirectMessageSetting
parseJSON = String
-> (Text -> Parser RestrictDirectMessageSetting)
-> Value
-> Parser RestrictDirectMessageSetting
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"RestrictDirectMessageSetting" ((Text -> Parser RestrictDirectMessageSetting)
-> Value -> Parser RestrictDirectMessageSetting)
-> (Text -> Parser RestrictDirectMessageSetting)
-> Value
-> Parser RestrictDirectMessageSetting
forall a b. (a -> b) -> a -> b
$ \Text
t ->
case Text
t of
Text
"any" -> RestrictDirectMessageSetting -> Parser RestrictDirectMessageSetting
forall (m :: * -> *) a. Monad m => a -> m a
return RestrictDirectMessageSetting
RestrictAny
Text
"team" -> RestrictDirectMessageSetting -> Parser RestrictDirectMessageSetting
forall (m :: * -> *) a. Monad m => a -> m a
return RestrictDirectMessageSetting
RestrictTeam
Text
_ -> RestrictDirectMessageSetting -> Parser RestrictDirectMessageSetting
forall (m :: * -> *) a. Monad m => a -> m a
return (RestrictDirectMessageSetting
-> Parser RestrictDirectMessageSetting)
-> RestrictDirectMessageSetting
-> Parser RestrictDirectMessageSetting
forall a b. (a -> b) -> a -> b
$ Text -> RestrictDirectMessageSetting
RestrictUnknown Text
t
instance A.ToJSON RestrictDirectMessageSetting where
toJSON :: RestrictDirectMessageSetting -> Value
toJSON RestrictDirectMessageSetting
RestrictAny = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text
"any" :: T.Text)
toJSON RestrictDirectMessageSetting
RestrictTeam = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON (Text
"team" :: T.Text)
toJSON (RestrictUnknown Text
t) = Text -> Value
forall a. ToJSON a => a -> Value
A.toJSON Text
t
data ClientConfig = ClientConfig
{ ClientConfig -> Text
clientConfigVersion :: T.Text
, ClientConfig -> Text
clientConfigBuildNumber :: T.Text
, ClientConfig -> Text
clientConfigBuildDate :: T.Text
, ClientConfig -> Text
clientConfigBuildHash :: T.Text
, ClientConfig -> Text
clientConfigBuildHashEnterprise :: T.Text
, ClientConfig -> Text
clientConfigBuildEnterpriseReady :: T.Text
, ClientConfig -> Text
clientConfigSiteURL :: T.Text
, ClientConfig -> Text
clientConfigSiteName :: T.Text
, ClientConfig -> Text
clientConfigEnableOpenServer :: T.Text
, ClientConfig -> RestrictDirectMessageSetting
clientConfigRestrictDirectMessage :: RestrictDirectMessageSetting
, ClientConfig -> TeammateNameDisplayMode
clientConfigTeammateNameDisplay :: TeammateNameDisplayMode
, ClientConfig -> Text
clientConfigEnableOAuthServiceProvider :: T.Text
, ClientConfig -> Text
clientConfigGoogleDeveloperKey :: T.Text
, ClientConfig -> Text
clientConfigEnableIncomingWebhooks :: T.Text
, ClientConfig -> Text
clientConfigEnableOutgoingWebhooks :: T.Text
, ClientConfig -> Text
clientConfigEnableCommands :: T.Text
, ClientConfig -> Text
clientConfigEnablePostUsernameOverride :: T.Text
, ClientConfig -> Text
clientConfigEnablePostIconOverride :: T.Text
, ClientConfig -> Text
clientConfigEnableLinkPreviews :: T.Text
, ClientConfig -> Text
clientConfigEnableTesting :: T.Text
, ClientConfig -> Text
clientConfigEnableDeveloper :: T.Text
, ClientConfig -> Text
clientConfigEnableDiagnostics :: T.Text
, ClientConfig -> Text
clientConfigPostEditTimeLimit :: T.Text
, ClientConfig -> Text
clientConfigSendEmailNotifications :: T.Text
, ClientConfig -> Text
clientConfigSendPushNotifications :: T.Text
, ClientConfig -> Text
clientConfigEnableSignUpWithEmail :: T.Text
, ClientConfig -> Text
clientConfigEnableSignInWithEmail :: T.Text
, ClientConfig -> Text
clientConfigEnableSignInWithUsername :: T.Text
, ClientConfig -> Text
clientConfigRequireEmailVerification :: T.Text
, ClientConfig -> Text
clientConfigEnableEmailBatching :: T.Text
, ClientConfig -> Text
clientConfigEnableSignUpWithGitLab :: T.Text
, ClientConfig -> Text
clientConfigShowEmailAddress :: T.Text
, ClientConfig -> Text
clientConfigTermsOfServiceLink :: T.Text
, ClientConfig -> Text
clientConfigPrivacyPolicyLink :: T.Text
, ClientConfig -> Text
clientConfigAboutLink :: T.Text
, ClientConfig -> Text
clientConfigHelpLink :: T.Text
, ClientConfig -> Text
clientConfigReportAProblemLink :: T.Text
, ClientConfig -> Maybe Text
clientConfigAdministratorsGuideLink :: Maybe T.Text
, ClientConfig -> Maybe Text
clientConfigTroubleshootingForumLink :: Maybe T.Text
, ClientConfig -> Maybe Text
clientConfigCommercialSupportLink :: Maybe T.Text
, ClientConfig -> Text
clientConfigSupportEmail :: T.Text
, ClientConfig -> Text
clientConfigEnableFileAttachments :: T.Text
, ClientConfig -> Text
clientConfigEnablePublicLink :: T.Text
, ClientConfig -> Text
clientConfigWebsocketPort :: T.Text
, ClientConfig -> Text
clientConfigWebsocketSecurePort :: T.Text
, ClientConfig -> Text
clientConfigDefaultClientLocale :: T.Text
, ClientConfig -> Text
clientConfigAvailableLocales :: T.Text
, ClientConfig -> Text
clientConfigSQLDriverName :: T.Text
, ClientConfig -> Text
clientConfigEnableCustomEmoji :: T.Text
, ClientConfig -> Text
clientConfigEnableEmojiPicker :: T.Text
, ClientConfig -> Text
clientConfigMaxFileSize :: T.Text
, ClientConfig -> Text
clientConfigAppDownloadLink :: T.Text
, ClientConfig -> Text
clientConfigAndroidAppDownloadLink :: T.Text
, ClientConfig -> Text
clientConfigIosAppDownloadLink :: T.Text
, ClientConfig -> Text
clientConfigMaxNotificationsPerChannel :: T.Text
, ClientConfig -> Text
clientConfigTimeBetweenUserTypingUpdatesMilliseconds :: T.Text
, ClientConfig -> Text
clientConfigEnableUserTypingMessages :: T.Text
, ClientConfig -> Text
clientConfigEnableChannelViewedMessages :: T.Text
, ClientConfig -> Text
clientConfigDiagnosticId :: T.Text
, ClientConfig -> Text
clientConfigDiagnosticsEnabled :: T.Text
} deriving (ReadPrec [ClientConfig]
ReadPrec ClientConfig
Int -> ReadS ClientConfig
ReadS [ClientConfig]
(Int -> ReadS ClientConfig)
-> ReadS [ClientConfig]
-> ReadPrec ClientConfig
-> ReadPrec [ClientConfig]
-> Read ClientConfig
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ClientConfig]
$creadListPrec :: ReadPrec [ClientConfig]
readPrec :: ReadPrec ClientConfig
$creadPrec :: ReadPrec ClientConfig
readList :: ReadS [ClientConfig]
$creadList :: ReadS [ClientConfig]
readsPrec :: Int -> ReadS ClientConfig
$creadsPrec :: Int -> ReadS ClientConfig
Read, Int -> ClientConfig -> ShowS
[ClientConfig] -> ShowS
ClientConfig -> String
(Int -> ClientConfig -> ShowS)
-> (ClientConfig -> String)
-> ([ClientConfig] -> ShowS)
-> Show ClientConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ClientConfig] -> ShowS
$cshowList :: [ClientConfig] -> ShowS
show :: ClientConfig -> String
$cshow :: ClientConfig -> String
showsPrec :: Int -> ClientConfig -> ShowS
$cshowsPrec :: Int -> ClientConfig -> ShowS
Show, ClientConfig -> ClientConfig -> Bool
(ClientConfig -> ClientConfig -> Bool)
-> (ClientConfig -> ClientConfig -> Bool) -> Eq ClientConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ClientConfig -> ClientConfig -> Bool
$c/= :: ClientConfig -> ClientConfig -> Bool
== :: ClientConfig -> ClientConfig -> Bool
$c== :: ClientConfig -> ClientConfig -> Bool
Eq)
data LimitedClientConfig = LimitedClientConfig
{ LimitedClientConfig -> Text
limitedClientConfigVersion :: T.Text
, LimitedClientConfig -> Text
limitedClientConfigBuildNumber :: T.Text
, LimitedClientConfig -> Text
limitedClientConfigBuildDate :: T.Text
, LimitedClientConfig -> Text
limitedClientConfigBuildHash :: T.Text
, LimitedClientConfig -> Text
limitedClientConfigBuildHashEnterprise :: T.Text
, LimitedClientConfig -> Text
limitedClientConfigBuildEnterpriseReady :: T.Text
} deriving (ReadPrec [LimitedClientConfig]
ReadPrec LimitedClientConfig
Int -> ReadS LimitedClientConfig
ReadS [LimitedClientConfig]
(Int -> ReadS LimitedClientConfig)
-> ReadS [LimitedClientConfig]
-> ReadPrec LimitedClientConfig
-> ReadPrec [LimitedClientConfig]
-> Read LimitedClientConfig
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LimitedClientConfig]
$creadListPrec :: ReadPrec [LimitedClientConfig]
readPrec :: ReadPrec LimitedClientConfig
$creadPrec :: ReadPrec LimitedClientConfig
readList :: ReadS [LimitedClientConfig]
$creadList :: ReadS [LimitedClientConfig]
readsPrec :: Int -> ReadS LimitedClientConfig
$creadsPrec :: Int -> ReadS LimitedClientConfig
Read, Int -> LimitedClientConfig -> ShowS
[LimitedClientConfig] -> ShowS
LimitedClientConfig -> String
(Int -> LimitedClientConfig -> ShowS)
-> (LimitedClientConfig -> String)
-> ([LimitedClientConfig] -> ShowS)
-> Show LimitedClientConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LimitedClientConfig] -> ShowS
$cshowList :: [LimitedClientConfig] -> ShowS
show :: LimitedClientConfig -> String
$cshow :: LimitedClientConfig -> String
showsPrec :: Int -> LimitedClientConfig -> ShowS
$cshowsPrec :: Int -> LimitedClientConfig -> ShowS
Show, LimitedClientConfig -> LimitedClientConfig -> Bool
(LimitedClientConfig -> LimitedClientConfig -> Bool)
-> (LimitedClientConfig -> LimitedClientConfig -> Bool)
-> Eq LimitedClientConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LimitedClientConfig -> LimitedClientConfig -> Bool
$c/= :: LimitedClientConfig -> LimitedClientConfig -> Bool
== :: LimitedClientConfig -> LimitedClientConfig -> Bool
$c== :: LimitedClientConfig -> LimitedClientConfig -> Bool
Eq)
instance A.FromJSON LimitedClientConfig where
parseJSON :: Value -> Parser LimitedClientConfig
parseJSON = String
-> (Object -> Parser LimitedClientConfig)
-> Value
-> Parser LimitedClientConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"LimitedClientConfig" ((Object -> Parser LimitedClientConfig)
-> Value -> Parser LimitedClientConfig)
-> (Object -> Parser LimitedClientConfig)
-> Value
-> Parser LimitedClientConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
Text
limitedClientConfigVersion <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Version"
Text
limitedClientConfigBuildNumber <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildNumber"
Text
limitedClientConfigBuildDate <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildDate"
Text
limitedClientConfigBuildHash <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildHash"
Text
limitedClientConfigBuildHashEnterprise <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildHashEnterprise"
Text
limitedClientConfigBuildEnterpriseReady <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildEnterpriseReady"
LimitedClientConfig -> Parser LimitedClientConfig
forall (m :: * -> *) a. Monad m => a -> m a
return LimitedClientConfig :: Text -> Text -> Text -> Text -> Text -> Text -> LimitedClientConfig
LimitedClientConfig { Text
limitedClientConfigBuildEnterpriseReady :: Text
limitedClientConfigBuildHashEnterprise :: Text
limitedClientConfigBuildHash :: Text
limitedClientConfigBuildDate :: Text
limitedClientConfigBuildNumber :: Text
limitedClientConfigVersion :: Text
limitedClientConfigBuildEnterpriseReady :: Text
limitedClientConfigBuildHashEnterprise :: Text
limitedClientConfigBuildHash :: Text
limitedClientConfigBuildDate :: Text
limitedClientConfigBuildNumber :: Text
limitedClientConfigVersion :: Text
.. }
instance A.FromJSON ClientConfig where
parseJSON :: Value -> Parser ClientConfig
parseJSON = String
-> (Object -> Parser ClientConfig) -> Value -> Parser ClientConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"ClientConfig" ((Object -> Parser ClientConfig) -> Value -> Parser ClientConfig)
-> (Object -> Parser ClientConfig) -> Value -> Parser ClientConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
Text
clientConfigVersion <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Version"
Text
clientConfigBuildNumber <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildNumber"
Text
clientConfigBuildDate <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildDate"
Text
clientConfigBuildHash <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildHash"
Text
clientConfigBuildHashEnterprise <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildHashEnterprise"
Text
clientConfigBuildEnterpriseReady <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BuildEnterpriseReady"
Text
clientConfigSiteURL <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SiteURL"
Text
clientConfigSiteName <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SiteName"
Text
clientConfigEnableOpenServer <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableOpenServer"
RestrictDirectMessageSetting
clientConfigRestrictDirectMessage <- Object
o Object -> Text -> Parser RestrictDirectMessageSetting
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictDirectMessage"
TeammateNameDisplayMode
clientConfigTeammateNameDisplay <- Object
o Object -> Text -> Parser TeammateNameDisplayMode
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TeammateNameDisplay"
Text
clientConfigEnableOAuthServiceProvider <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableOAuthServiceProvider"
Text
clientConfigGoogleDeveloperKey <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"GoogleDeveloperKey"
Text
clientConfigEnableIncomingWebhooks <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableIncomingWebhooks"
Text
clientConfigEnableOutgoingWebhooks <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableOutgoingWebhooks"
Text
clientConfigEnableCommands <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableCommands"
Text
clientConfigEnablePostUsernameOverride <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnablePostUsernameOverride"
Text
clientConfigEnablePostIconOverride <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnablePostIconOverride"
Text
clientConfigEnableLinkPreviews <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableLinkPreviews"
Text
clientConfigEnableTesting <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableTesting"
Text
clientConfigEnableDeveloper <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableDeveloper"
Text
clientConfigEnableDiagnostics <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableDiagnostics"
Text
clientConfigPostEditTimeLimit <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PostEditTimeLimit"
Text
clientConfigSendEmailNotifications <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SendEmailNotifications"
Text
clientConfigSendPushNotifications <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SendPushNotifications"
Text
clientConfigEnableSignUpWithEmail <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignUpWithEmail"
Text
clientConfigEnableSignInWithEmail <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignInWithEmail"
Text
clientConfigEnableSignInWithUsername <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignInWithUsername"
Text
clientConfigRequireEmailVerification <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RequireEmailVerification"
Text
clientConfigEnableEmailBatching <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableEmailBatching"
Text
clientConfigEnableSignUpWithGitLab <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableSignUpWithGitLab"
Text
clientConfigShowEmailAddress <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ShowEmailAddress"
Text
clientConfigTermsOfServiceLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TermsOfServiceLink"
Text
clientConfigPrivacyPolicyLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PrivacyPolicyLink"
Text
clientConfigAboutLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AboutLink"
Text
clientConfigHelpLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"HelpLink"
Text
clientConfigReportAProblemLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ReportAProblemLink"
Maybe Text
clientConfigAdministratorsGuideLink <- Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"AdministratorsGuideLink"
Maybe Text
clientConfigTroubleshootingForumLink <- Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"TroubleshootingForumLink"
Maybe Text
clientConfigCommercialSupportLink <- Object
o Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"CommercialSupportLink"
Text
clientConfigSupportEmail <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SupportEmail"
Text
clientConfigEnableFileAttachments <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableFileAttachments"
Text
clientConfigEnablePublicLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnablePublicLink"
Text
clientConfigWebsocketPort <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"WebsocketPort"
Text
clientConfigWebsocketSecurePort <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"WebsocketSecurePort"
Text
clientConfigDefaultClientLocale <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"DefaultClientLocale"
Text
clientConfigAvailableLocales <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AvailableLocales"
Text
clientConfigSQLDriverName <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SQLDriverName"
Text
clientConfigEnableCustomEmoji <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableCustomEmoji"
Text
clientConfigEnableEmojiPicker <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableEmojiPicker"
Text
clientConfigMaxFileSize <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MaxFileSize"
Text
clientConfigAppDownloadLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AppDownloadLink"
Text
clientConfigAndroidAppDownloadLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AndroidAppDownloadLink"
Text
clientConfigIosAppDownloadLink <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"IosAppDownloadLink"
Text
clientConfigMaxNotificationsPerChannel <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MaxNotificationsPerChannel"
Text
clientConfigTimeBetweenUserTypingUpdatesMilliseconds <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TimeBetweenUserTypingUpdatesMilliseconds"
Text
clientConfigEnableUserTypingMessages <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableUserTypingMessages"
Text
clientConfigEnableChannelViewedMessages <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableChannelViewedMessages"
Text
clientConfigDiagnosticId <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"DiagnosticId"
Text
clientConfigDiagnosticsEnabled <- Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"DiagnosticsEnabled"
ClientConfig -> Parser ClientConfig
forall (m :: * -> *) a. Monad m => a -> m a
return ClientConfig :: Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> RestrictDirectMessageSetting
-> TeammateNameDisplayMode
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> ClientConfig
ClientConfig { Maybe Text
Text
RestrictDirectMessageSetting
TeammateNameDisplayMode
clientConfigDiagnosticsEnabled :: Text
clientConfigDiagnosticId :: Text
clientConfigEnableChannelViewedMessages :: Text
clientConfigEnableUserTypingMessages :: Text
clientConfigTimeBetweenUserTypingUpdatesMilliseconds :: Text
clientConfigMaxNotificationsPerChannel :: Text
clientConfigIosAppDownloadLink :: Text
clientConfigAndroidAppDownloadLink :: Text
clientConfigAppDownloadLink :: Text
clientConfigMaxFileSize :: Text
clientConfigEnableEmojiPicker :: Text
clientConfigEnableCustomEmoji :: Text
clientConfigSQLDriverName :: Text
clientConfigAvailableLocales :: Text
clientConfigDefaultClientLocale :: Text
clientConfigWebsocketSecurePort :: Text
clientConfigWebsocketPort :: Text
clientConfigEnablePublicLink :: Text
clientConfigEnableFileAttachments :: Text
clientConfigSupportEmail :: Text
clientConfigCommercialSupportLink :: Maybe Text
clientConfigTroubleshootingForumLink :: Maybe Text
clientConfigAdministratorsGuideLink :: Maybe Text
clientConfigReportAProblemLink :: Text
clientConfigHelpLink :: Text
clientConfigAboutLink :: Text
clientConfigPrivacyPolicyLink :: Text
clientConfigTermsOfServiceLink :: Text
clientConfigShowEmailAddress :: Text
clientConfigEnableSignUpWithGitLab :: Text
clientConfigEnableEmailBatching :: Text
clientConfigRequireEmailVerification :: Text
clientConfigEnableSignInWithUsername :: Text
clientConfigEnableSignInWithEmail :: Text
clientConfigEnableSignUpWithEmail :: Text
clientConfigSendPushNotifications :: Text
clientConfigSendEmailNotifications :: Text
clientConfigPostEditTimeLimit :: Text
clientConfigEnableDiagnostics :: Text
clientConfigEnableDeveloper :: Text
clientConfigEnableTesting :: Text
clientConfigEnableLinkPreviews :: Text
clientConfigEnablePostIconOverride :: Text
clientConfigEnablePostUsernameOverride :: Text
clientConfigEnableCommands :: Text
clientConfigEnableOutgoingWebhooks :: Text
clientConfigEnableIncomingWebhooks :: Text
clientConfigGoogleDeveloperKey :: Text
clientConfigEnableOAuthServiceProvider :: Text
clientConfigTeammateNameDisplay :: TeammateNameDisplayMode
clientConfigRestrictDirectMessage :: RestrictDirectMessageSetting
clientConfigEnableOpenServer :: Text
clientConfigSiteName :: Text
clientConfigSiteURL :: Text
clientConfigBuildEnterpriseReady :: Text
clientConfigBuildHashEnterprise :: Text
clientConfigBuildHash :: Text
clientConfigBuildDate :: Text
clientConfigBuildNumber :: Text
clientConfigVersion :: Text
clientConfigDiagnosticsEnabled :: Text
clientConfigDiagnosticId :: Text
clientConfigEnableChannelViewedMessages :: Text
clientConfigEnableUserTypingMessages :: Text
clientConfigTimeBetweenUserTypingUpdatesMilliseconds :: Text
clientConfigMaxNotificationsPerChannel :: Text
clientConfigIosAppDownloadLink :: Text
clientConfigAndroidAppDownloadLink :: Text
clientConfigAppDownloadLink :: Text
clientConfigMaxFileSize :: Text
clientConfigEnableEmojiPicker :: Text
clientConfigEnableCustomEmoji :: Text
clientConfigSQLDriverName :: Text
clientConfigAvailableLocales :: Text
clientConfigDefaultClientLocale :: Text
clientConfigWebsocketSecurePort :: Text
clientConfigWebsocketPort :: Text
clientConfigEnablePublicLink :: Text
clientConfigEnableFileAttachments :: Text
clientConfigSupportEmail :: Text
clientConfigCommercialSupportLink :: Maybe Text
clientConfigTroubleshootingForumLink :: Maybe Text
clientConfigAdministratorsGuideLink :: Maybe Text
clientConfigReportAProblemLink :: Text
clientConfigHelpLink :: Text
clientConfigAboutLink :: Text
clientConfigPrivacyPolicyLink :: Text
clientConfigTermsOfServiceLink :: Text
clientConfigShowEmailAddress :: Text
clientConfigEnableSignUpWithGitLab :: Text
clientConfigEnableEmailBatching :: Text
clientConfigRequireEmailVerification :: Text
clientConfigEnableSignInWithUsername :: Text
clientConfigEnableSignInWithEmail :: Text
clientConfigEnableSignUpWithEmail :: Text
clientConfigSendPushNotifications :: Text
clientConfigSendEmailNotifications :: Text
clientConfigPostEditTimeLimit :: Text
clientConfigEnableDiagnostics :: Text
clientConfigEnableDeveloper :: Text
clientConfigEnableTesting :: Text
clientConfigEnableLinkPreviews :: Text
clientConfigEnablePostIconOverride :: Text
clientConfigEnablePostUsernameOverride :: Text
clientConfigEnableCommands :: Text
clientConfigEnableOutgoingWebhooks :: Text
clientConfigEnableIncomingWebhooks :: Text
clientConfigGoogleDeveloperKey :: Text
clientConfigEnableOAuthServiceProvider :: Text
clientConfigTeammateNameDisplay :: TeammateNameDisplayMode
clientConfigRestrictDirectMessage :: RestrictDirectMessageSetting
clientConfigEnableOpenServer :: Text
clientConfigSiteName :: Text
clientConfigSiteURL :: Text
clientConfigBuildEnterpriseReady :: Text
clientConfigBuildHashEnterprise :: Text
clientConfigBuildHash :: Text
clientConfigBuildDate :: Text
clientConfigBuildNumber :: Text
clientConfigVersion :: Text
.. }
data TeamSettings = TeamSettings
{ TeamSettings -> Text
teamSettingsRestrictpublicchanneldeletion :: Text
, TeamSettings -> Text
teamSettingsRestrictcreationtodomains :: Text
, TeamSettings -> Int
teamSettingsMaxusersperteam :: Int
, TeamSettings -> Text
teamSettingsCustomdescriptiontext :: Text
, TeamSettings -> Bool
teamSettingsEnableopenserver :: Bool
, TeamSettings -> Bool
teamSettingsEnableusercreation :: Bool
, TeamSettings -> Text
teamSettingsCustombrandtext :: Text
, TeamSettings -> Text
teamSettingsRestrictprivatechanneldeletion :: Text
, TeamSettings -> Int
teamSettingsMaxchannelsperteam :: Int
, TeamSettings -> Text
teamSettingsRestrictteaminvite :: Text
, TeamSettings -> Text
teamSettingsSitename :: Text
, TeamSettings -> Text
teamSettingsRestrictpublicchannelmanagement :: Text
, TeamSettings -> Int
teamSettingsMaxnotificationsperchannel :: Int
, TeamSettings -> Text
teamSettingsRestrictdirectmessage :: Text
, TeamSettings -> Int
teamSettingsUserstatusawaytimeout :: Int
, TeamSettings -> Bool
teamSettingsEnablecustombrand :: Bool
, TeamSettings -> Text
teamSettingsRestrictprivatechannelmanagement :: Text
, TeamSettings -> Text
teamSettingsRestrictprivatechannelcreation :: Text
, TeamSettings -> Text
teamSettingsRestrictpublicchannelcreation :: Text
} deriving (ReadPrec [TeamSettings]
ReadPrec TeamSettings
Int -> ReadS TeamSettings
ReadS [TeamSettings]
(Int -> ReadS TeamSettings)
-> ReadS [TeamSettings]
-> ReadPrec TeamSettings
-> ReadPrec [TeamSettings]
-> Read TeamSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TeamSettings]
$creadListPrec :: ReadPrec [TeamSettings]
readPrec :: ReadPrec TeamSettings
$creadPrec :: ReadPrec TeamSettings
readList :: ReadS [TeamSettings]
$creadList :: ReadS [TeamSettings]
readsPrec :: Int -> ReadS TeamSettings
$creadsPrec :: Int -> ReadS TeamSettings
Read, Int -> TeamSettings -> ShowS
[TeamSettings] -> ShowS
TeamSettings -> String
(Int -> TeamSettings -> ShowS)
-> (TeamSettings -> String)
-> ([TeamSettings] -> ShowS)
-> Show TeamSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TeamSettings] -> ShowS
$cshowList :: [TeamSettings] -> ShowS
show :: TeamSettings -> String
$cshow :: TeamSettings -> String
showsPrec :: Int -> TeamSettings -> ShowS
$cshowsPrec :: Int -> TeamSettings -> ShowS
Show, TeamSettings -> TeamSettings -> Bool
(TeamSettings -> TeamSettings -> Bool)
-> (TeamSettings -> TeamSettings -> Bool) -> Eq TeamSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TeamSettings -> TeamSettings -> Bool
$c/= :: TeamSettings -> TeamSettings -> Bool
== :: TeamSettings -> TeamSettings -> Bool
$c== :: TeamSettings -> TeamSettings -> Bool
Eq)
instance A.FromJSON TeamSettings where
parseJSON :: Value -> Parser TeamSettings
parseJSON = String
-> (Object -> Parser TeamSettings) -> Value -> Parser TeamSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"teamSettings" ((Object -> Parser TeamSettings) -> Value -> Parser TeamSettings)
-> (Object -> Parser TeamSettings) -> Value -> Parser TeamSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Text
teamSettingsRestrictpublicchanneldeletion <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictPublicChannelDeletion"
Text
teamSettingsRestrictcreationtodomains <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictCreationToDomains"
Int
teamSettingsMaxusersperteam <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MaxUsersPerTeam"
Text
teamSettingsCustomdescriptiontext <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"CustomDescriptionText"
Bool
teamSettingsEnableopenserver <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableOpenServer"
Bool
teamSettingsEnableusercreation <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableUserCreation"
Text
teamSettingsCustombrandtext <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"CustomBrandText"
Text
teamSettingsRestrictprivatechanneldeletion <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictPrivateChannelDeletion"
Int
teamSettingsMaxchannelsperteam <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MaxChannelsPerTeam"
Text
teamSettingsRestrictteaminvite <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictTeamInvite"
Text
teamSettingsSitename <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SiteName"
Text
teamSettingsRestrictpublicchannelmanagement <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictPublicChannelManagement"
Int
teamSettingsMaxnotificationsperchannel <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MaxNotificationsPerChannel"
Text
teamSettingsRestrictdirectmessage <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictDirectMessage"
Int
teamSettingsUserstatusawaytimeout <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"UserStatusAwayTimeout"
Bool
teamSettingsEnablecustombrand <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableCustomBrand"
Text
teamSettingsRestrictprivatechannelmanagement <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictPrivateChannelManagement"
Text
teamSettingsRestrictprivatechannelcreation <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictPrivateChannelCreation"
Text
teamSettingsRestrictpublicchannelcreation <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"RestrictPublicChannelCreation"
TeamSettings -> Parser TeamSettings
forall (m :: * -> *) a. Monad m => a -> m a
return TeamSettings :: Text
-> Text
-> Int
-> Text
-> Bool
-> Bool
-> Text
-> Text
-> Int
-> Text
-> Text
-> Text
-> Int
-> Text
-> Int
-> Bool
-> Text
-> Text
-> Text
-> TeamSettings
TeamSettings { Bool
Int
Text
teamSettingsRestrictpublicchannelcreation :: Text
teamSettingsRestrictprivatechannelcreation :: Text
teamSettingsRestrictprivatechannelmanagement :: Text
teamSettingsEnablecustombrand :: Bool
teamSettingsUserstatusawaytimeout :: Int
teamSettingsRestrictdirectmessage :: Text
teamSettingsMaxnotificationsperchannel :: Int
teamSettingsRestrictpublicchannelmanagement :: Text
teamSettingsSitename :: Text
teamSettingsRestrictteaminvite :: Text
teamSettingsMaxchannelsperteam :: Int
teamSettingsRestrictprivatechanneldeletion :: Text
teamSettingsCustombrandtext :: Text
teamSettingsEnableusercreation :: Bool
teamSettingsEnableopenserver :: Bool
teamSettingsCustomdescriptiontext :: Text
teamSettingsMaxusersperteam :: Int
teamSettingsRestrictcreationtodomains :: Text
teamSettingsRestrictpublicchanneldeletion :: Text
teamSettingsRestrictpublicchannelcreation :: Text
teamSettingsRestrictprivatechannelcreation :: Text
teamSettingsRestrictprivatechannelmanagement :: Text
teamSettingsEnablecustombrand :: Bool
teamSettingsUserstatusawaytimeout :: Int
teamSettingsRestrictdirectmessage :: Text
teamSettingsMaxnotificationsperchannel :: Int
teamSettingsRestrictpublicchannelmanagement :: Text
teamSettingsSitename :: Text
teamSettingsRestrictteaminvite :: Text
teamSettingsMaxchannelsperteam :: Int
teamSettingsRestrictprivatechanneldeletion :: Text
teamSettingsCustombrandtext :: Text
teamSettingsEnableusercreation :: Bool
teamSettingsEnableopenserver :: Bool
teamSettingsCustomdescriptiontext :: Text
teamSettingsMaxusersperteam :: Int
teamSettingsRestrictcreationtodomains :: Text
teamSettingsRestrictpublicchanneldeletion :: Text
.. }
instance A.ToJSON TeamSettings where
toJSON :: TeamSettings -> Value
toJSON TeamSettings { Bool
Int
Text
teamSettingsRestrictpublicchannelcreation :: Text
teamSettingsRestrictprivatechannelcreation :: Text
teamSettingsRestrictprivatechannelmanagement :: Text
teamSettingsEnablecustombrand :: Bool
teamSettingsUserstatusawaytimeout :: Int
teamSettingsRestrictdirectmessage :: Text
teamSettingsMaxnotificationsperchannel :: Int
teamSettingsRestrictpublicchannelmanagement :: Text
teamSettingsSitename :: Text
teamSettingsRestrictteaminvite :: Text
teamSettingsMaxchannelsperteam :: Int
teamSettingsRestrictprivatechanneldeletion :: Text
teamSettingsCustombrandtext :: Text
teamSettingsEnableusercreation :: Bool
teamSettingsEnableopenserver :: Bool
teamSettingsCustomdescriptiontext :: Text
teamSettingsMaxusersperteam :: Int
teamSettingsRestrictcreationtodomains :: Text
teamSettingsRestrictpublicchanneldeletion :: Text
teamSettingsRestrictpublicchannelcreation :: TeamSettings -> Text
teamSettingsRestrictprivatechannelcreation :: TeamSettings -> Text
teamSettingsRestrictprivatechannelmanagement :: TeamSettings -> Text
teamSettingsEnablecustombrand :: TeamSettings -> Bool
teamSettingsUserstatusawaytimeout :: TeamSettings -> Int
teamSettingsRestrictdirectmessage :: TeamSettings -> Text
teamSettingsMaxnotificationsperchannel :: TeamSettings -> Int
teamSettingsRestrictpublicchannelmanagement :: TeamSettings -> Text
teamSettingsSitename :: TeamSettings -> Text
teamSettingsRestrictteaminvite :: TeamSettings -> Text
teamSettingsMaxchannelsperteam :: TeamSettings -> Int
teamSettingsRestrictprivatechanneldeletion :: TeamSettings -> Text
teamSettingsCustombrandtext :: TeamSettings -> Text
teamSettingsEnableusercreation :: TeamSettings -> Bool
teamSettingsEnableopenserver :: TeamSettings -> Bool
teamSettingsCustomdescriptiontext :: TeamSettings -> Text
teamSettingsMaxusersperteam :: TeamSettings -> Int
teamSettingsRestrictcreationtodomains :: TeamSettings -> Text
teamSettingsRestrictpublicchanneldeletion :: TeamSettings -> Text
.. } = [Pair] -> Value
A.object
[ Text
"RestrictPublicChannelDeletion" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictpublicchanneldeletion
, Text
"RestrictCreationToDomains" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictcreationtodomains
, Text
"MaxUsersPerTeam" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
teamSettingsMaxusersperteam
, Text
"CustomDescriptionText" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsCustomdescriptiontext
, Text
"EnableOpenServer" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
teamSettingsEnableopenserver
, Text
"EnableUserCreation" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
teamSettingsEnableusercreation
, Text
"CustomBrandText" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsCustombrandtext
, Text
"RestrictPrivateChannelDeletion" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictprivatechanneldeletion
, Text
"MaxChannelsPerTeam" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
teamSettingsMaxchannelsperteam
, Text
"RestrictTeamInvite" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictteaminvite
, Text
"SiteName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsSitename
, Text
"RestrictPublicChannelManagement" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictpublicchannelmanagement
, Text
"MaxNotificationsPerChannel" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
teamSettingsMaxnotificationsperchannel
, Text
"RestrictDirectMessage" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictdirectmessage
, Text
"UserStatusAwayTimeout" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
teamSettingsUserstatusawaytimeout
, Text
"EnableCustomBrand" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
teamSettingsEnablecustombrand
, Text
"RestrictPrivateChannelManagement" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictprivatechannelmanagement
, Text
"RestrictPrivateChannelCreation" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictprivatechannelcreation
, Text
"RestrictPublicChannelCreation" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
teamSettingsRestrictpublicchannelcreation
]
data WebrtcSettings = WebrtcSettings
{ WebrtcSettings -> Text
webrtcSettingsStunuri :: Text
, WebrtcSettings -> Text
webrtcSettingsTurnsharedkey :: Text
, WebrtcSettings -> Bool
webrtcSettingsEnable :: Bool
, WebrtcSettings -> Text
webrtcSettingsGatewayadminsecret :: Text
, WebrtcSettings -> Text
webrtcSettingsTurnuri :: Text
, WebrtcSettings -> Text
webrtcSettingsGatewayadminurl :: Text
, WebrtcSettings -> Text
webrtcSettingsTurnusername :: Text
, WebrtcSettings -> Text
webrtcSettingsGatewaywebsocketurl :: Text
} deriving (ReadPrec [WebrtcSettings]
ReadPrec WebrtcSettings
Int -> ReadS WebrtcSettings
ReadS [WebrtcSettings]
(Int -> ReadS WebrtcSettings)
-> ReadS [WebrtcSettings]
-> ReadPrec WebrtcSettings
-> ReadPrec [WebrtcSettings]
-> Read WebrtcSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [WebrtcSettings]
$creadListPrec :: ReadPrec [WebrtcSettings]
readPrec :: ReadPrec WebrtcSettings
$creadPrec :: ReadPrec WebrtcSettings
readList :: ReadS [WebrtcSettings]
$creadList :: ReadS [WebrtcSettings]
readsPrec :: Int -> ReadS WebrtcSettings
$creadsPrec :: Int -> ReadS WebrtcSettings
Read, Int -> WebrtcSettings -> ShowS
[WebrtcSettings] -> ShowS
WebrtcSettings -> String
(Int -> WebrtcSettings -> ShowS)
-> (WebrtcSettings -> String)
-> ([WebrtcSettings] -> ShowS)
-> Show WebrtcSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WebrtcSettings] -> ShowS
$cshowList :: [WebrtcSettings] -> ShowS
show :: WebrtcSettings -> String
$cshow :: WebrtcSettings -> String
showsPrec :: Int -> WebrtcSettings -> ShowS
$cshowsPrec :: Int -> WebrtcSettings -> ShowS
Show, WebrtcSettings -> WebrtcSettings -> Bool
(WebrtcSettings -> WebrtcSettings -> Bool)
-> (WebrtcSettings -> WebrtcSettings -> Bool) -> Eq WebrtcSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WebrtcSettings -> WebrtcSettings -> Bool
$c/= :: WebrtcSettings -> WebrtcSettings -> Bool
== :: WebrtcSettings -> WebrtcSettings -> Bool
$c== :: WebrtcSettings -> WebrtcSettings -> Bool
Eq)
instance A.FromJSON WebrtcSettings where
parseJSON :: Value -> Parser WebrtcSettings
parseJSON = String
-> (Object -> Parser WebrtcSettings)
-> Value
-> Parser WebrtcSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"webrtcSettings" ((Object -> Parser WebrtcSettings)
-> Value -> Parser WebrtcSettings)
-> (Object -> Parser WebrtcSettings)
-> Value
-> Parser WebrtcSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Text
webrtcSettingsStunuri <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"StunURI"
Text
webrtcSettingsTurnsharedkey <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TurnSharedKey"
Bool
webrtcSettingsEnable <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Enable"
Text
webrtcSettingsGatewayadminsecret <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"GatewayAdminSecret"
Text
webrtcSettingsTurnuri <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TurnURI"
Text
webrtcSettingsGatewayadminurl <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"GatewayAdminUrl"
Text
webrtcSettingsTurnusername <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TurnUsername"
Text
webrtcSettingsGatewaywebsocketurl <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"GatewayWebsocketUrl"
WebrtcSettings -> Parser WebrtcSettings
forall (m :: * -> *) a. Monad m => a -> m a
return WebrtcSettings :: Text
-> Text
-> Bool
-> Text
-> Text
-> Text
-> Text
-> Text
-> WebrtcSettings
WebrtcSettings { Bool
Text
webrtcSettingsGatewaywebsocketurl :: Text
webrtcSettingsTurnusername :: Text
webrtcSettingsGatewayadminurl :: Text
webrtcSettingsTurnuri :: Text
webrtcSettingsGatewayadminsecret :: Text
webrtcSettingsEnable :: Bool
webrtcSettingsTurnsharedkey :: Text
webrtcSettingsStunuri :: Text
webrtcSettingsGatewaywebsocketurl :: Text
webrtcSettingsTurnusername :: Text
webrtcSettingsGatewayadminurl :: Text
webrtcSettingsTurnuri :: Text
webrtcSettingsGatewayadminsecret :: Text
webrtcSettingsEnable :: Bool
webrtcSettingsTurnsharedkey :: Text
webrtcSettingsStunuri :: Text
.. }
instance A.ToJSON WebrtcSettings where
toJSON :: WebrtcSettings -> Value
toJSON WebrtcSettings { Bool
Text
webrtcSettingsGatewaywebsocketurl :: Text
webrtcSettingsTurnusername :: Text
webrtcSettingsGatewayadminurl :: Text
webrtcSettingsTurnuri :: Text
webrtcSettingsGatewayadminsecret :: Text
webrtcSettingsEnable :: Bool
webrtcSettingsTurnsharedkey :: Text
webrtcSettingsStunuri :: Text
webrtcSettingsGatewaywebsocketurl :: WebrtcSettings -> Text
webrtcSettingsTurnusername :: WebrtcSettings -> Text
webrtcSettingsGatewayadminurl :: WebrtcSettings -> Text
webrtcSettingsTurnuri :: WebrtcSettings -> Text
webrtcSettingsGatewayadminsecret :: WebrtcSettings -> Text
webrtcSettingsEnable :: WebrtcSettings -> Bool
webrtcSettingsTurnsharedkey :: WebrtcSettings -> Text
webrtcSettingsStunuri :: WebrtcSettings -> Text
.. } = [Pair] -> Value
A.object
[ Text
"StunURI" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsStunuri
, Text
"TurnSharedKey" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsTurnsharedkey
, Text
"Enable" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
webrtcSettingsEnable
, Text
"GatewayAdminSecret" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsGatewayadminsecret
, Text
"TurnURI" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsTurnuri
, Text
"GatewayAdminUrl" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsGatewayadminurl
, Text
"TurnUsername" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsTurnusername
, Text
"GatewayWebsocketUrl" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
webrtcSettingsGatewaywebsocketurl
]
data PasswordSettings = PasswordSettings
{ PasswordSettings -> Bool
passwordSettingsUppercase :: Bool
, PasswordSettings -> Bool
passwordSettingsLowercase :: Bool
, PasswordSettings -> Bool
passwordSettingsNumber :: Bool
, PasswordSettings -> Bool
passwordSettingsSymbol :: Bool
, PasswordSettings -> Int
passwordSettingsMinimumlength :: Int
} deriving (ReadPrec [PasswordSettings]
ReadPrec PasswordSettings
Int -> ReadS PasswordSettings
ReadS [PasswordSettings]
(Int -> ReadS PasswordSettings)
-> ReadS [PasswordSettings]
-> ReadPrec PasswordSettings
-> ReadPrec [PasswordSettings]
-> Read PasswordSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PasswordSettings]
$creadListPrec :: ReadPrec [PasswordSettings]
readPrec :: ReadPrec PasswordSettings
$creadPrec :: ReadPrec PasswordSettings
readList :: ReadS [PasswordSettings]
$creadList :: ReadS [PasswordSettings]
readsPrec :: Int -> ReadS PasswordSettings
$creadsPrec :: Int -> ReadS PasswordSettings
Read, Int -> PasswordSettings -> ShowS
[PasswordSettings] -> ShowS
PasswordSettings -> String
(Int -> PasswordSettings -> ShowS)
-> (PasswordSettings -> String)
-> ([PasswordSettings] -> ShowS)
-> Show PasswordSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PasswordSettings] -> ShowS
$cshowList :: [PasswordSettings] -> ShowS
show :: PasswordSettings -> String
$cshow :: PasswordSettings -> String
showsPrec :: Int -> PasswordSettings -> ShowS
$cshowsPrec :: Int -> PasswordSettings -> ShowS
Show, PasswordSettings -> PasswordSettings -> Bool
(PasswordSettings -> PasswordSettings -> Bool)
-> (PasswordSettings -> PasswordSettings -> Bool)
-> Eq PasswordSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PasswordSettings -> PasswordSettings -> Bool
$c/= :: PasswordSettings -> PasswordSettings -> Bool
== :: PasswordSettings -> PasswordSettings -> Bool
$c== :: PasswordSettings -> PasswordSettings -> Bool
Eq)
instance A.FromJSON PasswordSettings where
parseJSON :: Value -> Parser PasswordSettings
parseJSON = String
-> (Object -> Parser PasswordSettings)
-> Value
-> Parser PasswordSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"passwordSettings" ((Object -> Parser PasswordSettings)
-> Value -> Parser PasswordSettings)
-> (Object -> Parser PasswordSettings)
-> Value
-> Parser PasswordSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Bool
passwordSettingsUppercase <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Uppercase"
Bool
passwordSettingsLowercase <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Lowercase"
Bool
passwordSettingsNumber <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Number"
Bool
passwordSettingsSymbol <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Symbol"
Int
passwordSettingsMinimumlength <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MinimumLength"
PasswordSettings -> Parser PasswordSettings
forall (m :: * -> *) a. Monad m => a -> m a
return PasswordSettings :: Bool -> Bool -> Bool -> Bool -> Int -> PasswordSettings
PasswordSettings { Bool
Int
passwordSettingsMinimumlength :: Int
passwordSettingsSymbol :: Bool
passwordSettingsNumber :: Bool
passwordSettingsLowercase :: Bool
passwordSettingsUppercase :: Bool
passwordSettingsMinimumlength :: Int
passwordSettingsSymbol :: Bool
passwordSettingsNumber :: Bool
passwordSettingsLowercase :: Bool
passwordSettingsUppercase :: Bool
.. }
instance A.ToJSON PasswordSettings where
toJSON :: PasswordSettings -> Value
toJSON PasswordSettings { Bool
Int
passwordSettingsMinimumlength :: Int
passwordSettingsSymbol :: Bool
passwordSettingsNumber :: Bool
passwordSettingsLowercase :: Bool
passwordSettingsUppercase :: Bool
passwordSettingsMinimumlength :: PasswordSettings -> Int
passwordSettingsSymbol :: PasswordSettings -> Bool
passwordSettingsNumber :: PasswordSettings -> Bool
passwordSettingsLowercase :: PasswordSettings -> Bool
passwordSettingsUppercase :: PasswordSettings -> Bool
.. } = [Pair] -> Value
A.object
[ Text
"Uppercase" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
passwordSettingsUppercase
, Text
"Lowercase" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
passwordSettingsLowercase
, Text
"Number" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
passwordSettingsNumber
, Text
"Symbol" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
passwordSettingsSymbol
, Text
"MinimumLength" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
passwordSettingsMinimumlength
]
data PrivacySettings = PrivacySettings
{ PrivacySettings -> Bool
privacySettingsShowemailaddress :: Bool
, PrivacySettings -> Bool
privacySettingsShowfullname :: Bool
} deriving (ReadPrec [PrivacySettings]
ReadPrec PrivacySettings
Int -> ReadS PrivacySettings
ReadS [PrivacySettings]
(Int -> ReadS PrivacySettings)
-> ReadS [PrivacySettings]
-> ReadPrec PrivacySettings
-> ReadPrec [PrivacySettings]
-> Read PrivacySettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PrivacySettings]
$creadListPrec :: ReadPrec [PrivacySettings]
readPrec :: ReadPrec PrivacySettings
$creadPrec :: ReadPrec PrivacySettings
readList :: ReadS [PrivacySettings]
$creadList :: ReadS [PrivacySettings]
readsPrec :: Int -> ReadS PrivacySettings
$creadsPrec :: Int -> ReadS PrivacySettings
Read, Int -> PrivacySettings -> ShowS
[PrivacySettings] -> ShowS
PrivacySettings -> String
(Int -> PrivacySettings -> ShowS)
-> (PrivacySettings -> String)
-> ([PrivacySettings] -> ShowS)
-> Show PrivacySettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PrivacySettings] -> ShowS
$cshowList :: [PrivacySettings] -> ShowS
show :: PrivacySettings -> String
$cshow :: PrivacySettings -> String
showsPrec :: Int -> PrivacySettings -> ShowS
$cshowsPrec :: Int -> PrivacySettings -> ShowS
Show, PrivacySettings -> PrivacySettings -> Bool
(PrivacySettings -> PrivacySettings -> Bool)
-> (PrivacySettings -> PrivacySettings -> Bool)
-> Eq PrivacySettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PrivacySettings -> PrivacySettings -> Bool
$c/= :: PrivacySettings -> PrivacySettings -> Bool
== :: PrivacySettings -> PrivacySettings -> Bool
$c== :: PrivacySettings -> PrivacySettings -> Bool
Eq)
instance A.FromJSON PrivacySettings where
parseJSON :: Value -> Parser PrivacySettings
parseJSON = String
-> (Object -> Parser PrivacySettings)
-> Value
-> Parser PrivacySettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"privacySettings" ((Object -> Parser PrivacySettings)
-> Value -> Parser PrivacySettings)
-> (Object -> Parser PrivacySettings)
-> Value
-> Parser PrivacySettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Bool
privacySettingsShowemailaddress <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ShowEmailAddress"
Bool
privacySettingsShowfullname <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ShowFullName"
PrivacySettings -> Parser PrivacySettings
forall (m :: * -> *) a. Monad m => a -> m a
return PrivacySettings :: Bool -> Bool -> PrivacySettings
PrivacySettings { Bool
privacySettingsShowfullname :: Bool
privacySettingsShowemailaddress :: Bool
privacySettingsShowfullname :: Bool
privacySettingsShowemailaddress :: Bool
.. }
instance A.ToJSON PrivacySettings where
toJSON :: PrivacySettings -> Value
toJSON PrivacySettings { Bool
privacySettingsShowfullname :: Bool
privacySettingsShowemailaddress :: Bool
privacySettingsShowfullname :: PrivacySettings -> Bool
privacySettingsShowemailaddress :: PrivacySettings -> Bool
.. } = [Pair] -> Value
A.object
[ Text
"ShowEmailAddress" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
privacySettingsShowemailaddress
, Text
"ShowFullName" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
privacySettingsShowfullname
]
data RateLimitSettings = RateLimitSettings
{ RateLimitSettings -> Bool
rateLimitSettingsEnable :: Bool
, RateLimitSettings -> Bool
rateLimitSettingsVarybyremoteaddr :: Bool
, RateLimitSettings -> Int
rateLimitSettingsMemorystoresize :: Int
, RateLimitSettings -> Int
rateLimitSettingsMaxburst :: Int
, :: Text
, RateLimitSettings -> Int
rateLimitSettingsPersec :: Int
} deriving (ReadPrec [RateLimitSettings]
ReadPrec RateLimitSettings
Int -> ReadS RateLimitSettings
ReadS [RateLimitSettings]
(Int -> ReadS RateLimitSettings)
-> ReadS [RateLimitSettings]
-> ReadPrec RateLimitSettings
-> ReadPrec [RateLimitSettings]
-> Read RateLimitSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RateLimitSettings]
$creadListPrec :: ReadPrec [RateLimitSettings]
readPrec :: ReadPrec RateLimitSettings
$creadPrec :: ReadPrec RateLimitSettings
readList :: ReadS [RateLimitSettings]
$creadList :: ReadS [RateLimitSettings]
readsPrec :: Int -> ReadS RateLimitSettings
$creadsPrec :: Int -> ReadS RateLimitSettings
Read, Int -> RateLimitSettings -> ShowS
[RateLimitSettings] -> ShowS
RateLimitSettings -> String
(Int -> RateLimitSettings -> ShowS)
-> (RateLimitSettings -> String)
-> ([RateLimitSettings] -> ShowS)
-> Show RateLimitSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RateLimitSettings] -> ShowS
$cshowList :: [RateLimitSettings] -> ShowS
show :: RateLimitSettings -> String
$cshow :: RateLimitSettings -> String
showsPrec :: Int -> RateLimitSettings -> ShowS
$cshowsPrec :: Int -> RateLimitSettings -> ShowS
Show, RateLimitSettings -> RateLimitSettings -> Bool
(RateLimitSettings -> RateLimitSettings -> Bool)
-> (RateLimitSettings -> RateLimitSettings -> Bool)
-> Eq RateLimitSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RateLimitSettings -> RateLimitSettings -> Bool
$c/= :: RateLimitSettings -> RateLimitSettings -> Bool
== :: RateLimitSettings -> RateLimitSettings -> Bool
$c== :: RateLimitSettings -> RateLimitSettings -> Bool
Eq)
instance A.FromJSON RateLimitSettings where
parseJSON :: Value -> Parser RateLimitSettings
parseJSON = String
-> (Object -> Parser RateLimitSettings)
-> Value
-> Parser RateLimitSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"rateLimitSettings" ((Object -> Parser RateLimitSettings)
-> Value -> Parser RateLimitSettings)
-> (Object -> Parser RateLimitSettings)
-> Value
-> Parser RateLimitSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Bool
rateLimitSettingsEnable <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Enable"
Bool
rateLimitSettingsVarybyremoteaddr <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"VaryByRemoteAddr"
Int
rateLimitSettingsMemorystoresize <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MemoryStoreSize"
Int
rateLimitSettingsMaxburst <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"MaxBurst"
Text
rateLimitSettingsVarybyheader <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"VaryByHeader"
Int
rateLimitSettingsPersec <- Object
v Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PerSec"
RateLimitSettings -> Parser RateLimitSettings
forall (m :: * -> *) a. Monad m => a -> m a
return RateLimitSettings :: Bool -> Bool -> Int -> Int -> Text -> Int -> RateLimitSettings
RateLimitSettings { Bool
Int
Text
rateLimitSettingsPersec :: Int
rateLimitSettingsVarybyheader :: Text
rateLimitSettingsMaxburst :: Int
rateLimitSettingsMemorystoresize :: Int
rateLimitSettingsVarybyremoteaddr :: Bool
rateLimitSettingsEnable :: Bool
rateLimitSettingsPersec :: Int
rateLimitSettingsVarybyheader :: Text
rateLimitSettingsMaxburst :: Int
rateLimitSettingsMemorystoresize :: Int
rateLimitSettingsVarybyremoteaddr :: Bool
rateLimitSettingsEnable :: Bool
.. }
instance A.ToJSON RateLimitSettings where
toJSON :: RateLimitSettings -> Value
toJSON RateLimitSettings { Bool
Int
Text
rateLimitSettingsPersec :: Int
rateLimitSettingsVarybyheader :: Text
rateLimitSettingsMaxburst :: Int
rateLimitSettingsMemorystoresize :: Int
rateLimitSettingsVarybyremoteaddr :: Bool
rateLimitSettingsEnable :: Bool
rateLimitSettingsPersec :: RateLimitSettings -> Int
rateLimitSettingsVarybyheader :: RateLimitSettings -> Text
rateLimitSettingsMaxburst :: RateLimitSettings -> Int
rateLimitSettingsMemorystoresize :: RateLimitSettings -> Int
rateLimitSettingsVarybyremoteaddr :: RateLimitSettings -> Bool
rateLimitSettingsEnable :: RateLimitSettings -> Bool
.. } = [Pair] -> Value
A.object
[ Text
"Enable" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
rateLimitSettingsEnable
, Text
"VaryByRemoteAddr" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
rateLimitSettingsVarybyremoteaddr
, Text
"MemoryStoreSize" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
rateLimitSettingsMemorystoresize
, Text
"MaxBurst" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
rateLimitSettingsMaxburst
, Text
"VaryByHeader" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
rateLimitSettingsVarybyheader
, Text
"PerSec" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Int
rateLimitSettingsPersec
]
data LogSettings = LogSettings
{ LogSettings -> Bool
logSettingsEnablefile :: Bool
, LogSettings -> Text
logSettingsFilelocation :: Text
, LogSettings -> Text
logSettingsFilelevel :: Text
, LogSettings -> Bool
logSettingsEnableconsole :: Bool
, LogSettings -> Bool
logSettingsEnablewebhookdebugging :: Bool
, LogSettings -> Text
logSettingsConsolelevel :: Text
, LogSettings -> Text
logSettingsFileformat :: Text
, LogSettings -> Bool
logSettingsEnablediagnostics :: Bool
} deriving (ReadPrec [LogSettings]
ReadPrec LogSettings
Int -> ReadS LogSettings
ReadS [LogSettings]
(Int -> ReadS LogSettings)
-> ReadS [LogSettings]
-> ReadPrec LogSettings
-> ReadPrec [LogSettings]
-> Read LogSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LogSettings]
$creadListPrec :: ReadPrec [LogSettings]
readPrec :: ReadPrec LogSettings
$creadPrec :: ReadPrec LogSettings
readList :: ReadS [LogSettings]
$creadList :: ReadS [LogSettings]
readsPrec :: Int -> ReadS LogSettings
$creadsPrec :: Int -> ReadS LogSettings
Read, Int -> LogSettings -> ShowS
[LogSettings] -> ShowS
LogSettings -> String
(Int -> LogSettings -> ShowS)
-> (LogSettings -> String)
-> ([LogSettings] -> ShowS)
-> Show LogSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LogSettings] -> ShowS
$cshowList :: [LogSettings] -> ShowS
show :: LogSettings -> String
$cshow :: LogSettings -> String
showsPrec :: Int -> LogSettings -> ShowS
$cshowsPrec :: Int -> LogSettings -> ShowS
Show, LogSettings -> LogSettings -> Bool
(LogSettings -> LogSettings -> Bool)
-> (LogSettings -> LogSettings -> Bool) -> Eq LogSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LogSettings -> LogSettings -> Bool
$c/= :: LogSettings -> LogSettings -> Bool
== :: LogSettings -> LogSettings -> Bool
$c== :: LogSettings -> LogSettings -> Bool
Eq)
instance A.FromJSON LogSettings where
parseJSON :: Value -> Parser LogSettings
parseJSON = String
-> (Object -> Parser LogSettings) -> Value -> Parser LogSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"logSettings" ((Object -> Parser LogSettings) -> Value -> Parser LogSettings)
-> (Object -> Parser LogSettings) -> Value -> Parser LogSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Bool
logSettingsEnablefile <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableFile"
Text
logSettingsFilelocation <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"FileLocation"
Text
logSettingsFilelevel <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"FileLevel"
Bool
logSettingsEnableconsole <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableConsole"
Bool
logSettingsEnablewebhookdebugging <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableWebhookDebugging"
Text
logSettingsConsolelevel <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ConsoleLevel"
Text
logSettingsFileformat <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"FileFormat"
Bool
logSettingsEnablediagnostics <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableDiagnostics"
LogSettings -> Parser LogSettings
forall (m :: * -> *) a. Monad m => a -> m a
return LogSettings :: Bool
-> Text
-> Text
-> Bool
-> Bool
-> Text
-> Text
-> Bool
-> LogSettings
LogSettings { Bool
Text
logSettingsEnablediagnostics :: Bool
logSettingsFileformat :: Text
logSettingsConsolelevel :: Text
logSettingsEnablewebhookdebugging :: Bool
logSettingsEnableconsole :: Bool
logSettingsFilelevel :: Text
logSettingsFilelocation :: Text
logSettingsEnablefile :: Bool
logSettingsEnablediagnostics :: Bool
logSettingsFileformat :: Text
logSettingsConsolelevel :: Text
logSettingsEnablewebhookdebugging :: Bool
logSettingsEnableconsole :: Bool
logSettingsFilelevel :: Text
logSettingsFilelocation :: Text
logSettingsEnablefile :: Bool
.. }
instance A.ToJSON LogSettings where
toJSON :: LogSettings -> Value
toJSON LogSettings { Bool
Text
logSettingsEnablediagnostics :: Bool
logSettingsFileformat :: Text
logSettingsConsolelevel :: Text
logSettingsEnablewebhookdebugging :: Bool
logSettingsEnableconsole :: Bool
logSettingsFilelevel :: Text
logSettingsFilelocation :: Text
logSettingsEnablefile :: Bool
logSettingsEnablediagnostics :: LogSettings -> Bool
logSettingsFileformat :: LogSettings -> Text
logSettingsConsolelevel :: LogSettings -> Text
logSettingsEnablewebhookdebugging :: LogSettings -> Bool
logSettingsEnableconsole :: LogSettings -> Bool
logSettingsFilelevel :: LogSettings -> Text
logSettingsFilelocation :: LogSettings -> Text
logSettingsEnablefile :: LogSettings -> Bool
.. } = [Pair] -> Value
A.object
[ Text
"EnableFile" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
logSettingsEnablefile
, Text
"FileLocation" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
logSettingsFilelocation
, Text
"FileLevel" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
logSettingsFilelevel
, Text
"EnableConsole" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
logSettingsEnableconsole
, Text
"EnableWebhookDebugging" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
logSettingsEnablewebhookdebugging
, Text
"ConsoleLevel" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
logSettingsConsolelevel
, Text
"FileFormat" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
logSettingsFileformat
, Text
"EnableDiagnostics" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
logSettingsEnablediagnostics
]
data MetricsSettings = MetricsSettings
{ MetricsSettings -> Integer
metricsSettingsBlockprofilerate :: Integer
, MetricsSettings -> Bool
metricsSettingsEnable :: Bool
, MetricsSettings -> Text
metricsSettingsListenaddress :: Text
} deriving (ReadPrec [MetricsSettings]
ReadPrec MetricsSettings
Int -> ReadS MetricsSettings
ReadS [MetricsSettings]
(Int -> ReadS MetricsSettings)
-> ReadS [MetricsSettings]
-> ReadPrec MetricsSettings
-> ReadPrec [MetricsSettings]
-> Read MetricsSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MetricsSettings]
$creadListPrec :: ReadPrec [MetricsSettings]
readPrec :: ReadPrec MetricsSettings
$creadPrec :: ReadPrec MetricsSettings
readList :: ReadS [MetricsSettings]
$creadList :: ReadS [MetricsSettings]
readsPrec :: Int -> ReadS MetricsSettings
$creadsPrec :: Int -> ReadS MetricsSettings
Read, Int -> MetricsSettings -> ShowS
[MetricsSettings] -> ShowS
MetricsSettings -> String
(Int -> MetricsSettings -> ShowS)
-> (MetricsSettings -> String)
-> ([MetricsSettings] -> ShowS)
-> Show MetricsSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MetricsSettings] -> ShowS
$cshowList :: [MetricsSettings] -> ShowS
show :: MetricsSettings -> String
$cshow :: MetricsSettings -> String
showsPrec :: Int -> MetricsSettings -> ShowS
$cshowsPrec :: Int -> MetricsSettings -> ShowS
Show, MetricsSettings -> MetricsSettings -> Bool
(MetricsSettings -> MetricsSettings -> Bool)
-> (MetricsSettings -> MetricsSettings -> Bool)
-> Eq MetricsSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricsSettings -> MetricsSettings -> Bool
$c/= :: MetricsSettings -> MetricsSettings -> Bool
== :: MetricsSettings -> MetricsSettings -> Bool
$c== :: MetricsSettings -> MetricsSettings -> Bool
Eq)
instance A.FromJSON MetricsSettings where
parseJSON :: Value -> Parser MetricsSettings
parseJSON = String
-> (Object -> Parser MetricsSettings)
-> Value
-> Parser MetricsSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"metricsSettings" ((Object -> Parser MetricsSettings)
-> Value -> Parser MetricsSettings)
-> (Object -> Parser MetricsSettings)
-> Value
-> Parser MetricsSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Integer
metricsSettingsBlockprofilerate <- Object
v Object -> Text -> Parser Integer
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"BlockProfileRate"
Bool
metricsSettingsEnable <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Enable"
Text
metricsSettingsListenaddress <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ListenAddress"
MetricsSettings -> Parser MetricsSettings
forall (m :: * -> *) a. Monad m => a -> m a
return MetricsSettings :: Integer -> Bool -> Text -> MetricsSettings
MetricsSettings { Bool
Integer
Text
metricsSettingsListenaddress :: Text
metricsSettingsEnable :: Bool
metricsSettingsBlockprofilerate :: Integer
metricsSettingsListenaddress :: Text
metricsSettingsEnable :: Bool
metricsSettingsBlockprofilerate :: Integer
.. }
instance A.ToJSON MetricsSettings where
toJSON :: MetricsSettings -> Value
toJSON MetricsSettings { Bool
Integer
Text
metricsSettingsListenaddress :: Text
metricsSettingsEnable :: Bool
metricsSettingsBlockprofilerate :: Integer
metricsSettingsListenaddress :: MetricsSettings -> Text
metricsSettingsEnable :: MetricsSettings -> Bool
metricsSettingsBlockprofilerate :: MetricsSettings -> Integer
.. } = [Pair] -> Value
A.object
[ Text
"BlockProfileRate" Text -> Integer -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Integer
metricsSettingsBlockprofilerate
, Text
"Enable" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
metricsSettingsEnable
, Text
"ListenAddress" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
metricsSettingsListenaddress
]
data NativeAppSettings = NativeAppSettings
{ NativeAppSettings -> Text
nativeAppSettingsAndroidappdownloadlink :: Text
, NativeAppSettings -> Text
nativeAppSettingsAppdownloadlink :: Text
, NativeAppSettings -> Text
nativeAppSettingsIosappdownloadlink :: Text
} deriving (ReadPrec [NativeAppSettings]
ReadPrec NativeAppSettings
Int -> ReadS NativeAppSettings
ReadS [NativeAppSettings]
(Int -> ReadS NativeAppSettings)
-> ReadS [NativeAppSettings]
-> ReadPrec NativeAppSettings
-> ReadPrec [NativeAppSettings]
-> Read NativeAppSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [NativeAppSettings]
$creadListPrec :: ReadPrec [NativeAppSettings]
readPrec :: ReadPrec NativeAppSettings
$creadPrec :: ReadPrec NativeAppSettings
readList :: ReadS [NativeAppSettings]
$creadList :: ReadS [NativeAppSettings]
readsPrec :: Int -> ReadS NativeAppSettings
$creadsPrec :: Int -> ReadS NativeAppSettings
Read, Int -> NativeAppSettings -> ShowS
[NativeAppSettings] -> ShowS
NativeAppSettings -> String
(Int -> NativeAppSettings -> ShowS)
-> (NativeAppSettings -> String)
-> ([NativeAppSettings] -> ShowS)
-> Show NativeAppSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NativeAppSettings] -> ShowS
$cshowList :: [NativeAppSettings] -> ShowS
show :: NativeAppSettings -> String
$cshow :: NativeAppSettings -> String
showsPrec :: Int -> NativeAppSettings -> ShowS
$cshowsPrec :: Int -> NativeAppSettings -> ShowS
Show, NativeAppSettings -> NativeAppSettings -> Bool
(NativeAppSettings -> NativeAppSettings -> Bool)
-> (NativeAppSettings -> NativeAppSettings -> Bool)
-> Eq NativeAppSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NativeAppSettings -> NativeAppSettings -> Bool
$c/= :: NativeAppSettings -> NativeAppSettings -> Bool
== :: NativeAppSettings -> NativeAppSettings -> Bool
$c== :: NativeAppSettings -> NativeAppSettings -> Bool
Eq)
instance A.FromJSON NativeAppSettings where
parseJSON :: Value -> Parser NativeAppSettings
parseJSON = String
-> (Object -> Parser NativeAppSettings)
-> Value
-> Parser NativeAppSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"nativeAppSettings" ((Object -> Parser NativeAppSettings)
-> Value -> Parser NativeAppSettings)
-> (Object -> Parser NativeAppSettings)
-> Value
-> Parser NativeAppSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Text
nativeAppSettingsAndroidappdownloadlink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AndroidAppDownloadLink"
Text
nativeAppSettingsAppdownloadlink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AppDownloadLink"
Text
nativeAppSettingsIosappdownloadlink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"IosAppDownloadLink"
NativeAppSettings -> Parser NativeAppSettings
forall (m :: * -> *) a. Monad m => a -> m a
return NativeAppSettings :: Text -> Text -> Text -> NativeAppSettings
NativeAppSettings { Text
nativeAppSettingsIosappdownloadlink :: Text
nativeAppSettingsAppdownloadlink :: Text
nativeAppSettingsAndroidappdownloadlink :: Text
nativeAppSettingsIosappdownloadlink :: Text
nativeAppSettingsAppdownloadlink :: Text
nativeAppSettingsAndroidappdownloadlink :: Text
.. }
instance A.ToJSON NativeAppSettings where
toJSON :: NativeAppSettings -> Value
toJSON NativeAppSettings { Text
nativeAppSettingsIosappdownloadlink :: Text
nativeAppSettingsAppdownloadlink :: Text
nativeAppSettingsAndroidappdownloadlink :: Text
nativeAppSettingsIosappdownloadlink :: NativeAppSettings -> Text
nativeAppSettingsAppdownloadlink :: NativeAppSettings -> Text
nativeAppSettingsAndroidappdownloadlink :: NativeAppSettings -> Text
.. } = [Pair] -> Value
A.object
[ Text
"AndroidAppDownloadLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
nativeAppSettingsAndroidappdownloadlink
, Text
"AppDownloadLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
nativeAppSettingsAppdownloadlink
, Text
"IosAppDownloadLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
nativeAppSettingsIosappdownloadlink
]
data ComplianceSettings = ComplianceSettings
{ ComplianceSettings -> Text
complianceSettingsDirectory :: Text
, ComplianceSettings -> Bool
complianceSettingsEnable :: Bool
, ComplianceSettings -> Bool
complianceSettingsEnabledaily :: Bool
} deriving (ReadPrec [ComplianceSettings]
ReadPrec ComplianceSettings
Int -> ReadS ComplianceSettings
ReadS [ComplianceSettings]
(Int -> ReadS ComplianceSettings)
-> ReadS [ComplianceSettings]
-> ReadPrec ComplianceSettings
-> ReadPrec [ComplianceSettings]
-> Read ComplianceSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ComplianceSettings]
$creadListPrec :: ReadPrec [ComplianceSettings]
readPrec :: ReadPrec ComplianceSettings
$creadPrec :: ReadPrec ComplianceSettings
readList :: ReadS [ComplianceSettings]
$creadList :: ReadS [ComplianceSettings]
readsPrec :: Int -> ReadS ComplianceSettings
$creadsPrec :: Int -> ReadS ComplianceSettings
Read, Int -> ComplianceSettings -> ShowS
[ComplianceSettings] -> ShowS
ComplianceSettings -> String
(Int -> ComplianceSettings -> ShowS)
-> (ComplianceSettings -> String)
-> ([ComplianceSettings] -> ShowS)
-> Show ComplianceSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ComplianceSettings] -> ShowS
$cshowList :: [ComplianceSettings] -> ShowS
show :: ComplianceSettings -> String
$cshow :: ComplianceSettings -> String
showsPrec :: Int -> ComplianceSettings -> ShowS
$cshowsPrec :: Int -> ComplianceSettings -> ShowS
Show, ComplianceSettings -> ComplianceSettings -> Bool
(ComplianceSettings -> ComplianceSettings -> Bool)
-> (ComplianceSettings -> ComplianceSettings -> Bool)
-> Eq ComplianceSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ComplianceSettings -> ComplianceSettings -> Bool
$c/= :: ComplianceSettings -> ComplianceSettings -> Bool
== :: ComplianceSettings -> ComplianceSettings -> Bool
$c== :: ComplianceSettings -> ComplianceSettings -> Bool
Eq)
instance A.FromJSON ComplianceSettings where
parseJSON :: Value -> Parser ComplianceSettings
parseJSON = String
-> (Object -> Parser ComplianceSettings)
-> Value
-> Parser ComplianceSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"complianceSettings" ((Object -> Parser ComplianceSettings)
-> Value -> Parser ComplianceSettings)
-> (Object -> Parser ComplianceSettings)
-> Value
-> Parser ComplianceSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Text
complianceSettingsDirectory <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Directory"
Bool
complianceSettingsEnable <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"Enable"
Bool
complianceSettingsEnabledaily <- Object
v Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"EnableDaily"
ComplianceSettings -> Parser ComplianceSettings
forall (m :: * -> *) a. Monad m => a -> m a
return ComplianceSettings :: Text -> Bool -> Bool -> ComplianceSettings
ComplianceSettings { Bool
Text
complianceSettingsEnabledaily :: Bool
complianceSettingsEnable :: Bool
complianceSettingsDirectory :: Text
complianceSettingsEnabledaily :: Bool
complianceSettingsEnable :: Bool
complianceSettingsDirectory :: Text
.. }
instance A.ToJSON ComplianceSettings where
toJSON :: ComplianceSettings -> Value
toJSON ComplianceSettings { Bool
Text
complianceSettingsEnabledaily :: Bool
complianceSettingsEnable :: Bool
complianceSettingsDirectory :: Text
complianceSettingsEnabledaily :: ComplianceSettings -> Bool
complianceSettingsEnable :: ComplianceSettings -> Bool
complianceSettingsDirectory :: ComplianceSettings -> Text
.. } = [Pair] -> Value
A.object
[ Text
"Directory" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
complianceSettingsDirectory
, Text
"Enable" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
complianceSettingsEnable
, Text
"EnableDaily" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Bool
complianceSettingsEnabledaily
]
data SupportSettings = SupportSettings
{ SupportSettings -> Text
supportSettingsReportaproblemlink :: Text
, SupportSettings -> Text
supportSettingsHelplink :: Text
, SupportSettings -> Text
supportSettingsPrivacypolicylink :: Text
, SupportSettings -> Text
supportSettingsTermsofservicelink :: Text
, SupportSettings -> Text
supportSettingsAboutlink :: Text
, SupportSettings -> Text
supportSettingsSupportemail :: Text
} deriving (ReadPrec [SupportSettings]
ReadPrec SupportSettings
Int -> ReadS SupportSettings
ReadS [SupportSettings]
(Int -> ReadS SupportSettings)
-> ReadS [SupportSettings]
-> ReadPrec SupportSettings
-> ReadPrec [SupportSettings]
-> Read SupportSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SupportSettings]
$creadListPrec :: ReadPrec [SupportSettings]
readPrec :: ReadPrec SupportSettings
$creadPrec :: ReadPrec SupportSettings
readList :: ReadS [SupportSettings]
$creadList :: ReadS [SupportSettings]
readsPrec :: Int -> ReadS SupportSettings
$creadsPrec :: Int -> ReadS SupportSettings
Read, Int -> SupportSettings -> ShowS
[SupportSettings] -> ShowS
SupportSettings -> String
(Int -> SupportSettings -> ShowS)
-> (SupportSettings -> String)
-> ([SupportSettings] -> ShowS)
-> Show SupportSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SupportSettings] -> ShowS
$cshowList :: [SupportSettings] -> ShowS
show :: SupportSettings -> String
$cshow :: SupportSettings -> String
showsPrec :: Int -> SupportSettings -> ShowS
$cshowsPrec :: Int -> SupportSettings -> ShowS
Show, SupportSettings -> SupportSettings -> Bool
(SupportSettings -> SupportSettings -> Bool)
-> (SupportSettings -> SupportSettings -> Bool)
-> Eq SupportSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SupportSettings -> SupportSettings -> Bool
$c/= :: SupportSettings -> SupportSettings -> Bool
== :: SupportSettings -> SupportSettings -> Bool
$c== :: SupportSettings -> SupportSettings -> Bool
Eq)
instance A.FromJSON SupportSettings where
parseJSON :: Value -> Parser SupportSettings
parseJSON = String
-> (Object -> Parser SupportSettings)
-> Value
-> Parser SupportSettings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"supportSettings" ((Object -> Parser SupportSettings)
-> Value -> Parser SupportSettings)
-> (Object -> Parser SupportSettings)
-> Value
-> Parser SupportSettings
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
Text
supportSettingsReportaproblemlink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"ReportAProblemLink"
Text
supportSettingsHelplink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"HelpLink"
Text
supportSettingsPrivacypolicylink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"PrivacyPolicyLink"
Text
supportSettingsTermsofservicelink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"TermsOfServiceLink"
Text
supportSettingsAboutlink <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"AboutLink"
Text
supportSettingsSupportemail <- Object
v Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"SupportEmail"
SupportSettings -> Parser SupportSettings
forall (m :: * -> *) a. Monad m => a -> m a
return SupportSettings :: Text -> Text -> Text -> Text -> Text -> Text -> SupportSettings
SupportSettings { Text
supportSettingsSupportemail :: Text
supportSettingsAboutlink :: Text
supportSettingsTermsofservicelink :: Text
supportSettingsPrivacypolicylink :: Text
supportSettingsHelplink :: Text
supportSettingsReportaproblemlink :: Text
supportSettingsSupportemail :: Text
supportSettingsAboutlink :: Text
supportSettingsTermsofservicelink :: Text
supportSettingsPrivacypolicylink :: Text
supportSettingsHelplink :: Text
supportSettingsReportaproblemlink :: Text
.. }
instance A.ToJSON SupportSettings where
toJSON :: SupportSettings -> Value
toJSON SupportSettings { Text
supportSettingsSupportemail :: Text
supportSettingsAboutlink :: Text
supportSettingsTermsofservicelink :: Text
supportSettingsPrivacypolicylink :: Text
supportSettingsHelplink :: Text
supportSettingsReportaproblemlink :: Text
supportSettingsSupportemail :: SupportSettings -> Text
supportSettingsAboutlink :: SupportSettings -> Text
supportSettingsTermsofservicelink :: SupportSettings -> Text
supportSettingsPrivacypolicylink :: SupportSettings -> Text
supportSettingsHelplink :: SupportSettings -> Text
supportSettingsReportaproblemlink :: SupportSettings -> Text
.. } = [Pair] -> Value
A.object
[ Text
"ReportAProblemLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
supportSettingsReportaproblemlink
, Text
"HelpLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
supportSettingsHelplink
, Text
"PrivacyPolicyLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
supportSettingsPrivacypolicylink
, Text
"TermsOfServiceLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
supportSettingsTermsofservicelink
, Text
"AboutLink" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
supportSettingsAboutlink
, Text
"SupportEmail" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..= Text
supportSettingsSupportemail
]