Copyright	Copyright © FINN.no AS Inc. All rights reserved.
License	MIT
Stability	experimental
Safe Haskell	Safe-Inferred
Language	Haskell2010

Unleash.Internal.JsonTypes

Description

Unleash domain transfer objects.

Synopsis

data Features = Features {
- version :: Int
- features :: [Feature]
- segments :: Maybe [Segment]
}
data Feature = Feature {
- name :: Text
- description :: Maybe Text
- enabled :: Bool
- strategies :: [Strategy]
- variants :: Maybe [Variant]
}
data Strategy = Strategy {
- name :: Text
- parameters :: Maybe (Map Text Text)
- constraints :: Maybe [Constraint]
- segments :: Maybe [Int]
}
data Constraint = Constraint {
- contextName :: Text
- operator :: Text
- values :: Maybe [Text]
- caseInsensitive :: Maybe Bool
- inverted :: Maybe Bool
- value :: Maybe Text
}
data Variant = Variant {
- name :: Text
- payload :: Maybe Payload
- weight :: Int
- stickiness :: Maybe Text
- overrides :: Maybe [Override]
}
data Payload = Payload {
- type_ :: Text
- value :: Text
}
data Override = Override {
- contextName :: Text
- values :: [Text]
}
data Context = Context {
- userId :: Maybe Text
- sessionId :: Maybe Text
- remoteAddress :: Maybe Text
- currentTime :: Maybe Text
- environment :: Maybe Text
- appName :: Maybe Text
- properties :: Maybe (Map Text (Maybe Text))
}
emptyContext :: Context
data Segment = Segment {
- id :: Int
- constraints :: [Constraint]
}
data VariantResponse = VariantResponse {
- name :: Text
- payload :: Maybe Payload
- enabled :: Bool
}
emptyVariantResponse :: VariantResponse
data MetricsPayload = MetricsPayload {
- appName :: Text
- instanceId :: Text
- start :: UTCTime
- stop :: UTCTime
- toggles :: [(Text, Bool)]
}
data FullMetricsPayload = FullMetricsPayload {
- appName :: Text
- instanceId :: Text
- bucket :: FullMetricsBucket
}
data FullMetricsBucket = FullMetricsBucket {
- start :: UTCTime
- stop :: UTCTime
- toggles :: Map Text YesAndNoes
}
data YesAndNoes = YesAndNoes {
- yes :: Int
- no :: Int
}
data FullRegisterPayload = FullRegisterPayload {
- appName :: Text
- instanceId :: Text
- sdkVersion :: Text
- strategies :: [Text]
- started :: UTCTime
- interval :: Int
}
data RegisterPayload = RegisterPayload {
- appName :: Text
- instanceId :: Text
- started :: UTCTime
- intervalSeconds :: Int
}

Documentation

data Features Source #

Feature toggle set.

Constructors

Features
Fields version :: Int features :: [Feature] segments :: Maybe [Segment]

Instances

Instances details

FromJSON Features Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Features # parseJSONList :: Value -> Parser [Features] #
ToJSON Features Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Features -> Value # toEncoding :: Features -> Encoding # toJSONList :: [Features] -> Value # toEncodingList :: [Features] -> Encoding #
Generic Features Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Features :: Type -> Type # Methods from :: Features -> Rep Features x # to :: Rep Features x -> Features #
Show Features Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Features -> ShowS # show :: Features -> String # showList :: [Features] -> ShowS #
Eq Features Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Features -> Features -> Bool # (/=) :: Features -> Features -> Bool #
type Rep Features Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Features = D1 ('MetaData "Features" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Features" 'PrefixI 'True) (S1 ('MetaSel ('Just "version") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :: (S1 ('MetaSel ('Just "features") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Feature]) :: S1 ('MetaSel ('Just "segments") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe [Segment])))))

data Feature Source #

Feature toggle.

Constructors

Feature
Fields name :: Text description :: Maybe Text enabled :: Bool strategies :: [Strategy] variants :: Maybe [Variant]

Instances

Instances details

FromJSON Feature Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Feature # parseJSONList :: Value -> Parser [Feature] #
ToJSON Feature Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Feature -> Value # toEncoding :: Feature -> Encoding # toJSONList :: [Feature] -> Value # toEncodingList :: [Feature] -> Encoding #
Generic Feature Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Feature :: Type -> Type # Methods from :: Feature -> Rep Feature x # to :: Rep Feature x -> Feature #
Show Feature Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Feature -> ShowS # show :: Feature -> String # showList :: [Feature] -> ShowS #
Eq Feature Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Feature -> Feature -> Bool # (/=) :: Feature -> Feature -> Bool #
type Rep Feature Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Feature = D1 ('MetaData "Feature" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Feature" 'PrefixI 'True) ((S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "description") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text))) :: (S1 ('MetaSel ('Just "enabled") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :: (S1 ('MetaSel ('Just "strategies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Strategy]) :: S1 ('MetaSel ('Just "variants") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe [Variant]))))))

data Strategy Source #

Strategy. Encompasses all (supported) types of strategies.

Constructors

Strategy
Fields name :: Text parameters :: Maybe (Map Text Text) constraints :: Maybe [Constraint] segments :: Maybe [Int]

Instances

Instances details

FromJSON Strategy Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Strategy # parseJSONList :: Value -> Parser [Strategy] #
ToJSON Strategy Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Strategy -> Value # toEncoding :: Strategy -> Encoding # toJSONList :: [Strategy] -> Value # toEncodingList :: [Strategy] -> Encoding #
Generic Strategy Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Strategy :: Type -> Type # Methods from :: Strategy -> Rep Strategy x # to :: Rep Strategy x -> Strategy #
Show Strategy Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Strategy -> ShowS # show :: Strategy -> String # showList :: [Strategy] -> ShowS #
Eq Strategy Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Strategy -> Strategy -> Bool # (/=) :: Strategy -> Strategy -> Bool #
type Rep Strategy Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Strategy = D1 ('MetaData "Strategy" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Strategy" 'PrefixI 'True) ((S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "parameters") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe (Map Text Text)))) :: (S1 ('MetaSel ('Just "constraints") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe [Constraint])) :*: S1 ('MetaSel ('Just "segments") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe [Int])))))

data Constraint Source #

Strategy constraint.

Constructors

Constraint
Fields contextName :: Text operator :: Text values :: Maybe [Text] caseInsensitive :: Maybe Bool inverted :: Maybe Bool value :: Maybe Text

Instances

Instances details

FromJSON Constraint Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Constraint # parseJSONList :: Value -> Parser [Constraint] #
ToJSON Constraint Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Constraint -> Value # toEncoding :: Constraint -> Encoding # toJSONList :: [Constraint] -> Value # toEncodingList :: [Constraint] -> Encoding #
Generic Constraint Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Constraint :: Type -> Type # Methods from :: Constraint -> Rep Constraint x # to :: Rep Constraint x -> Constraint #
Show Constraint Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Constraint -> ShowS # show :: Constraint -> String # showList :: [Constraint] -> ShowS #
Eq Constraint Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Constraint -> Constraint -> Bool # (/=) :: Constraint -> Constraint -> Bool #
type Rep Constraint Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Constraint = D1 ('MetaData "Constraint" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Constraint" 'PrefixI 'True) ((S1 ('MetaSel ('Just "contextName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "operator") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "values") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe [Text])))) :: (S1 ('MetaSel ('Just "caseInsensitive") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Bool)) :: (S1 ('MetaSel ('Just "inverted") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Bool)) :*: S1 ('MetaSel ('Just "value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text))))))

data Variant Source #

Variant.

Constructors

Variant
Fields name :: Text payload :: Maybe Payload weight :: Int stickiness :: Maybe Text overrides :: Maybe [Override]

Instances

Instances details

FromJSON Variant Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Variant # parseJSONList :: Value -> Parser [Variant] #
ToJSON Variant Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Variant -> Value # toEncoding :: Variant -> Encoding # toJSONList :: [Variant] -> Value # toEncodingList :: [Variant] -> Encoding #
Generic Variant Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Variant :: Type -> Type # Methods from :: Variant -> Rep Variant x # to :: Rep Variant x -> Variant #
Show Variant Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Variant -> ShowS # show :: Variant -> String # showList :: [Variant] -> ShowS #
Eq Variant Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Variant -> Variant -> Bool # (/=) :: Variant -> Variant -> Bool #
type Rep Variant Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Variant = D1 ('MetaData "Variant" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Variant" 'PrefixI 'True) ((S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "payload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Payload))) :: (S1 ('MetaSel ('Just "weight") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :: (S1 ('MetaSel ('Just "stickiness") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "overrides") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe [Override]))))))

data Payload Source #

Variant payload.

Constructors

Payload
Fields type_ :: Text Payload type. value :: Text Payload.

Instances

Instances details

FromJSON Payload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Payload # parseJSONList :: Value -> Parser [Payload] #
ToJSON Payload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Payload -> Value # toEncoding :: Payload -> Encoding # toJSONList :: [Payload] -> Value # toEncodingList :: [Payload] -> Encoding #
Generic Payload Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Payload :: Type -> Type # Methods from :: Payload -> Rep Payload x # to :: Rep Payload x -> Payload #
Show Payload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Payload -> ShowS # show :: Payload -> String # showList :: [Payload] -> ShowS #
Eq Payload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Payload -> Payload -> Bool # (/=) :: Payload -> Payload -> Bool #
type Rep Payload Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Payload = D1 ('MetaData "Payload" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Payload" 'PrefixI 'True) (S1 ('MetaSel ('Just "type_") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "value") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data Override Source #

Contextual override.

Constructors

Override
Fields contextName :: Text values :: [Text]

Instances

Instances details

FromJSON Override Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Override # parseJSONList :: Value -> Parser [Override] #
ToJSON Override Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Override -> Value # toEncoding :: Override -> Encoding # toJSONList :: [Override] -> Value # toEncodingList :: [Override] -> Encoding #
Generic Override Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Override :: Type -> Type # Methods from :: Override -> Rep Override x # to :: Rep Override x -> Override #
Show Override Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Override -> ShowS # show :: Override -> String # showList :: [Override] -> ShowS #
Eq Override Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Override -> Override -> Bool # (/=) :: Override -> Override -> Bool #
type Rep Override Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Override = D1 ('MetaData "Override" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Override" 'PrefixI 'True) (S1 ('MetaSel ('Just "contextName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "values") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text])))

data Context Source #

Client context.

Constructors

Context
Fields userId :: Maybe Text User ID. sessionId :: Maybe Text Session ID. remoteAddress :: Maybe Text Remote address. currentTime :: Maybe Text Current UTC time. environment :: Maybe Text Application environment (e.g. `Production`). appName :: Maybe Text Application name. properties :: Maybe (Map Text (Maybe Text)) Other custom properties.

Instances

Instances details

FromJSON Context Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Context # parseJSONList :: Value -> Parser [Context] #
ToJSON Context Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Context -> Value # toEncoding :: Context -> Encoding # toJSONList :: [Context] -> Value # toEncodingList :: [Context] -> Encoding #
Generic Context Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Context :: Type -> Type # Methods from :: Context -> Rep Context x # to :: Rep Context x -> Context #
Show Context Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Context -> ShowS # show :: Context -> String # showList :: [Context] -> ShowS #
Eq Context Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Context -> Context -> Bool # (/=) :: Context -> Context -> Bool #
type Rep Context Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Context = D1 ('MetaData "Context" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Context" 'PrefixI 'True) ((S1 ('MetaSel ('Just "userId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: (S1 ('MetaSel ('Just "sessionId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "remoteAddress") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)))) :: ((S1 ('MetaSel ('Just "currentTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "environment") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text))) :: (S1 ('MetaSel ('Just "appName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "properties") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe (Map Text (Maybe Text))))))))

emptyContext :: Context Source #

An initial client context.

data Segment Source #

Segment.

Constructors

Segment
Fields id :: Int constraints :: [Constraint]

Instances

Instances details

FromJSON Segment Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser Segment # parseJSONList :: Value -> Parser [Segment] #
ToJSON Segment Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: Segment -> Value # toEncoding :: Segment -> Encoding # toJSONList :: [Segment] -> Value # toEncodingList :: [Segment] -> Encoding #
Generic Segment Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep Segment :: Type -> Type # Methods from :: Segment -> Rep Segment x # to :: Rep Segment x -> Segment #
Show Segment Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> Segment -> ShowS # show :: Segment -> String # showList :: [Segment] -> ShowS #
Eq Segment Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: Segment -> Segment -> Bool # (/=) :: Segment -> Segment -> Bool #
type Rep Segment Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep Segment = D1 ('MetaData "Segment" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "Segment" 'PrefixI 'True) (S1 ('MetaSel ('Just "id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "constraints") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Constraint])))

data VariantResponse Source #

Variant response.

Constructors

VariantResponse
Fields name :: Text Variant name. payload :: Maybe Payload Variant payload. enabled :: Bool Variant state.

Instances

Instances details

FromJSON VariantResponse Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods parseJSON :: Value -> Parser VariantResponse # parseJSONList :: Value -> Parser [VariantResponse] #
ToJSON VariantResponse Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: VariantResponse -> Value # toEncoding :: VariantResponse -> Encoding # toJSONList :: [VariantResponse] -> Value # toEncodingList :: [VariantResponse] -> Encoding #
Generic VariantResponse Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep VariantResponse :: Type -> Type # Methods from :: VariantResponse -> Rep VariantResponse x # to :: Rep VariantResponse x -> VariantResponse #
Show VariantResponse Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> VariantResponse -> ShowS # show :: VariantResponse -> String # showList :: [VariantResponse] -> ShowS #
Eq VariantResponse Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: VariantResponse -> VariantResponse -> Bool # (/=) :: VariantResponse -> VariantResponse -> Bool #
type Rep VariantResponse Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep VariantResponse = D1 ('MetaData "VariantResponse" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "VariantResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "payload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Payload)) :: S1 ('MetaSel ('Just "enabled") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))))

emptyVariantResponse :: VariantResponse Source #

The default (disabled) variant response.

data MetricsPayload Source #

Metrics payload.

Constructors

MetricsPayload
Fields appName :: Text Application name. instanceId :: Text Instance identifier (typically hostname). start :: UTCTime Start timestamp for this interval. stop :: UTCTime End timestamp for this interval. toggles :: [(Text, Bool)] Feature toggle usage metrics.

Instances

Instances details

Generic MetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep MetricsPayload :: Type -> Type # Methods from :: MetricsPayload -> Rep MetricsPayload x # to :: Rep MetricsPayload x -> MetricsPayload #
Show MetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> MetricsPayload -> ShowS # show :: MetricsPayload -> String # showList :: [MetricsPayload] -> ShowS #
Eq MetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: MetricsPayload -> MetricsPayload -> Bool # (/=) :: MetricsPayload -> MetricsPayload -> Bool #
type Rep MetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep MetricsPayload = D1 ('MetaData "MetricsPayload" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "MetricsPayload" 'PrefixI 'True) ((S1 ('MetaSel ('Just "appName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "instanceId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :: (S1 ('MetaSel ('Just "start") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :: (S1 ('MetaSel ('Just "stop") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :: S1 ('MetaSel ('Just "toggles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [(Text, Bool)])))))

data FullMetricsPayload Source #

Full metrics payload.

Constructors

FullMetricsPayload
Fields appName :: Text instanceId :: Text bucket :: FullMetricsBucket

Instances

Instances details

ToJSON FullMetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: FullMetricsPayload -> Value # toEncoding :: FullMetricsPayload -> Encoding # toJSONList :: [FullMetricsPayload] -> Value # toEncodingList :: [FullMetricsPayload] -> Encoding #
Generic FullMetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep FullMetricsPayload :: Type -> Type # Methods from :: FullMetricsPayload -> Rep FullMetricsPayload x # to :: Rep FullMetricsPayload x -> FullMetricsPayload #
Show FullMetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> FullMetricsPayload -> ShowS # show :: FullMetricsPayload -> String # showList :: [FullMetricsPayload] -> ShowS #
Eq FullMetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: FullMetricsPayload -> FullMetricsPayload -> Bool # (/=) :: FullMetricsPayload -> FullMetricsPayload -> Bool #
type Rep FullMetricsPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep FullMetricsPayload = D1 ('MetaData "FullMetricsPayload" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "FullMetricsPayload" 'PrefixI 'True) (S1 ('MetaSel ('Just "appName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "instanceId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "bucket") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 FullMetricsBucket))))

data FullMetricsBucket Source #

Full metrics bucket.

Constructors

FullMetricsBucket
Fields start :: UTCTime Start timestamp for this interval. stop :: UTCTime End timestamp for this interval. toggles :: Map Text YesAndNoes Feature toggle usage metrics.

Instances

Instances details

ToJSON FullMetricsBucket Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: FullMetricsBucket -> Value # toEncoding :: FullMetricsBucket -> Encoding # toJSONList :: [FullMetricsBucket] -> Value # toEncodingList :: [FullMetricsBucket] -> Encoding #
Generic FullMetricsBucket Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep FullMetricsBucket :: Type -> Type # Methods from :: FullMetricsBucket -> Rep FullMetricsBucket x # to :: Rep FullMetricsBucket x -> FullMetricsBucket #
Show FullMetricsBucket Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> FullMetricsBucket -> ShowS # show :: FullMetricsBucket -> String # showList :: [FullMetricsBucket] -> ShowS #
Eq FullMetricsBucket Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: FullMetricsBucket -> FullMetricsBucket -> Bool # (/=) :: FullMetricsBucket -> FullMetricsBucket -> Bool #
type Rep FullMetricsBucket Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep FullMetricsBucket = D1 ('MetaData "FullMetricsBucket" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "FullMetricsBucket" 'PrefixI 'True) (S1 ('MetaSel ('Just "start") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :: (S1 ('MetaSel ('Just "stop") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :: S1 ('MetaSel ('Just "toggles") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Map Text YesAndNoes)))))

data YesAndNoes Source #

Helper data structure for metrics.

Constructors

YesAndNoes
Fields yes :: Int The number of times the feature toggle was fetched as enabled in an interval. no :: Int The number of times the feature toggle was fetched as disabled in an interval.

Instances

Instances details

ToJSON YesAndNoes Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: YesAndNoes -> Value # toEncoding :: YesAndNoes -> Encoding # toJSONList :: [YesAndNoes] -> Value # toEncodingList :: [YesAndNoes] -> Encoding #
Generic YesAndNoes Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep YesAndNoes :: Type -> Type # Methods from :: YesAndNoes -> Rep YesAndNoes x # to :: Rep YesAndNoes x -> YesAndNoes #
Show YesAndNoes Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> YesAndNoes -> ShowS # show :: YesAndNoes -> String # showList :: [YesAndNoes] -> ShowS #
Eq YesAndNoes Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: YesAndNoes -> YesAndNoes -> Bool # (/=) :: YesAndNoes -> YesAndNoes -> Bool #
type Rep YesAndNoes Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep YesAndNoes = D1 ('MetaData "YesAndNoes" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "YesAndNoes" 'PrefixI 'True) (S1 ('MetaSel ('Just "yes") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "no") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data FullRegisterPayload Source #

Full client registration payload.

Constructors

FullRegisterPayload
Fields appName :: Text Application name. instanceId :: Text Instance identifier (typically hostname). sdkVersion :: Text Unleash client SDK version. strategies :: [Text] Supported strategies. started :: UTCTime When the application was started. interval :: Int Expected metrics sending interval.

Instances

Instances details

ToJSON FullRegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: FullRegisterPayload -> Value # toEncoding :: FullRegisterPayload -> Encoding # toJSONList :: [FullRegisterPayload] -> Value # toEncodingList :: [FullRegisterPayload] -> Encoding #
Generic FullRegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep FullRegisterPayload :: Type -> Type # Methods from :: FullRegisterPayload -> Rep FullRegisterPayload x # to :: Rep FullRegisterPayload x -> FullRegisterPayload #
Show FullRegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> FullRegisterPayload -> ShowS # show :: FullRegisterPayload -> String # showList :: [FullRegisterPayload] -> ShowS #
Eq FullRegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: FullRegisterPayload -> FullRegisterPayload -> Bool # (/=) :: FullRegisterPayload -> FullRegisterPayload -> Bool #
type Rep FullRegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep FullRegisterPayload = D1 ('MetaData "FullRegisterPayload" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "FullRegisterPayload" 'PrefixI 'True) ((S1 ('MetaSel ('Just "appName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "instanceId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "sdkVersion") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :: (S1 ('MetaSel ('Just "strategies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text]) :: (S1 ('MetaSel ('Just "started") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "interval") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))))

data RegisterPayload Source #

Client registration payload.

Constructors

RegisterPayload
Fields appName :: Text Application name. instanceId :: Text Instance identifier (typically hostname). started :: UTCTime Client application startup timestamp. intervalSeconds :: Int Intended metrics sending interval.

Instances

Instances details

ToJSON RegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods toJSON :: RegisterPayload -> Value # toEncoding :: RegisterPayload -> Encoding # toJSONList :: [RegisterPayload] -> Value # toEncodingList :: [RegisterPayload] -> Encoding #
Generic RegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Associated Types type Rep RegisterPayload :: Type -> Type # Methods from :: RegisterPayload -> Rep RegisterPayload x # to :: Rep RegisterPayload x -> RegisterPayload #
Show RegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods showsPrec :: Int -> RegisterPayload -> ShowS # show :: RegisterPayload -> String # showList :: [RegisterPayload] -> ShowS #
Eq RegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes Methods (==) :: RegisterPayload -> RegisterPayload -> Bool # (/=) :: RegisterPayload -> RegisterPayload -> Bool #
type Rep RegisterPayload Source #
Instance details Defined in Unleash.Internal.JsonTypes type Rep RegisterPayload = D1 ('MetaData "RegisterPayload" "Unleash.Internal.JsonTypes" "unleash-client-haskell-core-0.10.0-inplace" 'False) (C1 ('MetaCons "RegisterPayload" 'PrefixI 'True) ((S1 ('MetaSel ('Just "appName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "instanceId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :: (S1 ('MetaSel ('Just "started") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "intervalSeconds") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int))))