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

Unleash

Description

Functions and types for checking feature toggles and variants.

Synopsis

type Features = Map FeatureToggleName Feature
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
emptyVariantResponse :: VariantResponse
featureIsEnabled :: MonadIO m => Features -> FeatureToggleName -> Context -> m Bool
featureGetVariant :: MonadIO m => Features -> FeatureToggleName -> Context -> m VariantResponse
data MetricsPayload = MetricsPayload {
- appName :: Text
- instanceId :: Text
- start :: UTCTime
- stop :: UTCTime
- toggles :: [(Text, Bool)]
}
data RegisterPayload = RegisterPayload {
- appName :: Text
- instanceId :: Text
- started :: UTCTime
- intervalSeconds :: Int
}
data VariantResponse = VariantResponse {
- name :: Text
- payload :: Maybe Payload
- enabled :: Bool
}

Documentation

type Features = Map FeatureToggleName Feature Source #

Map of feature toggles keyed on toggle names. Typically the full set of features fetched from a server.

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.

emptyVariantResponse :: VariantResponse Source #

The default (disabled) variant response.

featureIsEnabled Source #

Arguments

:: MonadIO m
=> Features	Full set of features fetched from a server.
-> FeatureToggleName	Feature toggle name (as it is represented on the server).
-> Context	User context.
-> m Bool	Feature toggle state.

Check whether or not a feature toggle is enabled.

featureGetVariant Source #

Arguments

:: MonadIO m
=> Features	Full set of features fetched from a server.
-> FeatureToggleName	Feature toggle name (as it is represented on the server).
-> Context	User context.
-> m VariantResponse	Variant.

Get a variant for a given feature toggle.

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

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