Skip to content

feat: experiment idempotency #982

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
mahatoankitkumar wants to merge 3 commits into
base: main
Choose a base branch
from
Open

feat: experiment idempotency #982

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
96e72bd
feat: experiment idempotency
mahatoankitkumar Apr 24, 2026
c9aa6bb
fix: smithy changes
mahatoankitkumar Apr 27, 2026
85d5de5
fix: smithy generation
ayushjain17 May 5, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
The table of contents is too big for display.
Diff view
Diff view
  •  
  •  
  •  
8 changes: 4 additions & 4 deletions clients/haskell/sdk/Io/Superposition/Command/BulkOperation.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,9 +16,9 @@ import qualified Io.Superposition.SuperpositionClient
import qualified Io.Superposition.Utility

data BulkOperationError =
InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
ResourceNotFound Io.Superposition.Model.ResourceNotFound.ResourceNotFound
| WebhookFailed Io.Superposition.Model.WebhookFailed.WebhookFailed
| ResourceNotFound Io.Superposition.Model.ResourceNotFound.ResourceNotFound
| InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
| BuilderError Data.Text.Text
| DeSerializationError Io.Superposition.Utility.HttpMetadata Data.Text.Text
| UnexpectedError (Data.Maybe.Maybe Io.Superposition.Utility.HttpMetadata) Data.Text.Text
Expand All @@ -31,9 +31,9 @@ instance Io.Superposition.Utility.OperationError BulkOperationError where
mkUnexpectedError = UnexpectedError

getErrorParser status
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.InternalServerError.InternalServerError) = Just (fmap InternalServerError (Io.Superposition.Utility.responseParser @Io.Superposition.Model.InternalServerError.InternalServerError))
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.WebhookFailed.WebhookFailed) = Just (fmap WebhookFailed (Io.Superposition.Utility.responseParser @Io.Superposition.Model.WebhookFailed.WebhookFailed))
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.ResourceNotFound.ResourceNotFound) = Just (fmap ResourceNotFound (Io.Superposition.Utility.responseParser @Io.Superposition.Model.ResourceNotFound.ResourceNotFound))
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.WebhookFailed.WebhookFailed) = Just (fmap WebhookFailed (Io.Superposition.Utility.responseParser @Io.Superposition.Model.WebhookFailed.WebhookFailed))
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.InternalServerError.InternalServerError) = Just (fmap InternalServerError (Io.Superposition.Utility.responseParser @Io.Superposition.Model.InternalServerError.InternalServerError))
| otherwise = Nothing


Expand Down
6 changes: 3 additions & 3 deletions clients/haskell/sdk/Io/Superposition/Command/WeightRecompute.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -15,8 +15,8 @@ import qualified Io.Superposition.SuperpositionClient
import qualified Io.Superposition.Utility

data WeightRecomputeError =
InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
| WebhookFailed Io.Superposition.Model.WebhookFailed.WebhookFailed
WebhookFailed Io.Superposition.Model.WebhookFailed.WebhookFailed
| InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
| BuilderError Data.Text.Text
| DeSerializationError Io.Superposition.Utility.HttpMetadata Data.Text.Text
| UnexpectedError (Data.Maybe.Maybe Io.Superposition.Utility.HttpMetadata) Data.Text.Text
Expand All @@ -29,8 +29,8 @@ instance Io.Superposition.Utility.OperationError WeightRecomputeError where
mkUnexpectedError = UnexpectedError

getErrorParser status
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.InternalServerError.InternalServerError) = Just (fmap InternalServerError (Io.Superposition.Utility.responseParser @Io.Superposition.Model.InternalServerError.InternalServerError))
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.WebhookFailed.WebhookFailed) = Just (fmap WebhookFailed (Io.Superposition.Utility.responseParser @Io.Superposition.Model.WebhookFailed.WebhookFailed))
| status == (Io.Superposition.Utility.expectedStatus @Io.Superposition.Model.InternalServerError.InternalServerError) = Just (fmap InternalServerError (Io.Superposition.Utility.responseParser @Io.Superposition.Model.InternalServerError.InternalServerError))
| otherwise = Nothing


Expand Down
26 changes: 20 additions & 6 deletions clients/haskell/sdk/Io/Superposition/Model/ConcludeExperimentInput.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@ module Io.Superposition.Model.ConcludeExperimentInput (
setChosenVariant,
setDescription,
setChangeReason,
setConfigTags,
build,
ConcludeExperimentInputBuilder,
ConcludeExperimentInput,
Expand All @@ -13,7 +14,8 @@ module Io.Superposition.Model.ConcludeExperimentInput (
id',
chosen_variant,
description,
change_reason
change_reason,
config_tags
) where
import qualified Control.Applicative
import qualified Control.Monad.State.Strict
Expand All @@ -34,7 +36,8 @@ data ConcludeExperimentInput = ConcludeExperimentInput {
id' :: Data.Text.Text,
chosen_variant :: Data.Text.Text,
description :: Data.Maybe.Maybe Data.Text.Text,
change_reason :: Data.Text.Text
change_reason :: Data.Text.Text,
config_tags :: Data.Maybe.Maybe Data.Text.Text
} deriving (
GHC.Show.Show,
Data.Eq.Eq,
Expand All @@ -48,7 +51,8 @@ instance Data.Aeson.ToJSON ConcludeExperimentInput where
"id" Data.Aeson..= id' a,
"chosen_variant" Data.Aeson..= chosen_variant a,
"description" Data.Aeson..= description a,
"change_reason" Data.Aeson..= change_reason a
"change_reason" Data.Aeson..= change_reason a,
"config_tags" Data.Aeson..= config_tags a
]


Expand All @@ -62,6 +66,7 @@ instance Data.Aeson.FromJSON ConcludeExperimentInput where
Control.Applicative.<*> (v Data.Aeson..: "chosen_variant")
Control.Applicative.<*> (v Data.Aeson..:? "description")
Control.Applicative.<*> (v Data.Aeson..: "change_reason")
Control.Applicative.<*> (v Data.Aeson..:? "config_tags")



Expand All @@ -72,7 +77,8 @@ data ConcludeExperimentInputBuilderState = ConcludeExperimentInputBuilderState {
id'BuilderState :: Data.Maybe.Maybe Data.Text.Text,
chosen_variantBuilderState :: Data.Maybe.Maybe Data.Text.Text,
descriptionBuilderState :: Data.Maybe.Maybe Data.Text.Text,
change_reasonBuilderState :: Data.Maybe.Maybe Data.Text.Text
change_reasonBuilderState :: Data.Maybe.Maybe Data.Text.Text,
config_tagsBuilderState :: Data.Maybe.Maybe Data.Text.Text
} deriving (
GHC.Generics.Generic
)
Expand All @@ -84,7 +90,8 @@ defaultBuilderState = ConcludeExperimentInputBuilderState {
id'BuilderState = Data.Maybe.Nothing,
chosen_variantBuilderState = Data.Maybe.Nothing,
descriptionBuilderState = Data.Maybe.Nothing,
change_reasonBuilderState = Data.Maybe.Nothing
change_reasonBuilderState = Data.Maybe.Nothing,
config_tagsBuilderState = Data.Maybe.Nothing
}

type ConcludeExperimentInputBuilder = Control.Monad.State.Strict.State ConcludeExperimentInputBuilderState
Expand Down Expand Up @@ -113,6 +120,10 @@ setChangeReason :: Data.Text.Text -> ConcludeExperimentInputBuilder ()
setChangeReason value =
Control.Monad.State.Strict.modify (\s -> (s { change_reasonBuilderState = Data.Maybe.Just value }))

setConfigTags :: Data.Maybe.Maybe Data.Text.Text -> ConcludeExperimentInputBuilder ()
setConfigTags value =
Control.Monad.State.Strict.modify (\s -> (s { config_tagsBuilderState = value }))

build :: ConcludeExperimentInputBuilder () -> Data.Either.Either Data.Text.Text ConcludeExperimentInput
build builder = do
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
Expand All @@ -122,13 +133,15 @@ build builder = do
chosen_variant' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.ConcludeExperimentInput.ConcludeExperimentInput.chosen_variant is a required property.") Data.Either.Right (chosen_variantBuilderState st)
description' <- Data.Either.Right (descriptionBuilderState st)
change_reason' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.ConcludeExperimentInput.ConcludeExperimentInput.change_reason is a required property.") Data.Either.Right (change_reasonBuilderState st)
config_tags' <- Data.Either.Right (config_tagsBuilderState st)
Data.Either.Right (ConcludeExperimentInput {
workspace_id = workspace_id',
org_id = org_id',
id' = id'',
chosen_variant = chosen_variant',
description = description',
change_reason = change_reason'
change_reason = change_reason',
config_tags = config_tags'
})


Expand All @@ -143,6 +156,7 @@ instance Io.Superposition.Utility.IntoRequestBuilder ConcludeExperimentInput whe

Io.Superposition.Utility.serHeader "x-workspace" (workspace_id self)
Io.Superposition.Utility.serHeader "x-org-id" (org_id self)
Io.Superposition.Utility.serHeader "x-config-tags" (config_tags self)
Io.Superposition.Utility.serField "change_reason" (change_reason self)
Io.Superposition.Utility.serField "chosen_variant" (chosen_variant self)
Io.Superposition.Utility.serField "description" (description self)
Expand Down
40 changes: 34 additions & 6 deletions clients/haskell/sdk/Io/Superposition/Model/CreateExperimentInput.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module Io.Superposition.Model.CreateExperimentInput (
setChangeReason,
setMetrics,
setExperimentGroupId,
setIdempotencyKey,
setConfigTags,
build,
CreateExperimentInputBuilder,
CreateExperimentInput,
Expand All @@ -21,7 +23,9 @@ module Io.Superposition.Model.CreateExperimentInput (
description,
change_reason,
metrics,
experiment_group_id
experiment_group_id,
idempotency_key,
config_tags
) where
import qualified Control.Applicative
import qualified Control.Monad.State.Strict
Expand Down Expand Up @@ -49,7 +53,9 @@ data CreateExperimentInput = CreateExperimentInput {
description :: Data.Text.Text,
change_reason :: Data.Text.Text,
metrics :: Data.Maybe.Maybe Data.Aeson.Value,
experiment_group_id :: Data.Maybe.Maybe Data.Text.Text
experiment_group_id :: Data.Maybe.Maybe Data.Text.Text,
idempotency_key :: Data.Maybe.Maybe Data.Text.Text,
config_tags :: Data.Maybe.Maybe Data.Text.Text
} deriving (
GHC.Show.Show,
Data.Eq.Eq,
Expand All @@ -67,7 +73,9 @@ instance Data.Aeson.ToJSON CreateExperimentInput where
"description" Data.Aeson..= description a,
"change_reason" Data.Aeson..= change_reason a,
"metrics" Data.Aeson..= metrics a,
"experiment_group_id" Data.Aeson..= experiment_group_id a
"experiment_group_id" Data.Aeson..= experiment_group_id a,
"idempotency_key" Data.Aeson..= idempotency_key a,
"config_tags" Data.Aeson..= config_tags a
]


Expand All @@ -85,6 +93,8 @@ instance Data.Aeson.FromJSON CreateExperimentInput where
Control.Applicative.<*> (v Data.Aeson..: "change_reason")
Control.Applicative.<*> (v Data.Aeson..:? "metrics")
Control.Applicative.<*> (v Data.Aeson..:? "experiment_group_id")
Control.Applicative.<*> (v Data.Aeson..:? "idempotency_key")
Control.Applicative.<*> (v Data.Aeson..:? "config_tags")



Expand All @@ -99,7 +109,9 @@ data CreateExperimentInputBuilderState = CreateExperimentInputBuilderState {
descriptionBuilderState :: Data.Maybe.Maybe Data.Text.Text,
change_reasonBuilderState :: Data.Maybe.Maybe Data.Text.Text,
metricsBuilderState :: Data.Maybe.Maybe Data.Aeson.Value,
experiment_group_idBuilderState :: Data.Maybe.Maybe Data.Text.Text
experiment_group_idBuilderState :: Data.Maybe.Maybe Data.Text.Text,
idempotency_keyBuilderState :: Data.Maybe.Maybe Data.Text.Text,
config_tagsBuilderState :: Data.Maybe.Maybe Data.Text.Text
} deriving (
GHC.Generics.Generic
)
Expand All @@ -115,7 +127,9 @@ defaultBuilderState = CreateExperimentInputBuilderState {
descriptionBuilderState = Data.Maybe.Nothing,
change_reasonBuilderState = Data.Maybe.Nothing,
metricsBuilderState = Data.Maybe.Nothing,
experiment_group_idBuilderState = Data.Maybe.Nothing
experiment_group_idBuilderState = Data.Maybe.Nothing,
idempotency_keyBuilderState = Data.Maybe.Nothing,
config_tagsBuilderState = Data.Maybe.Nothing
}

type CreateExperimentInputBuilder = Control.Monad.State.Strict.State CreateExperimentInputBuilderState
Expand Down Expand Up @@ -160,6 +174,14 @@ setExperimentGroupId :: Data.Maybe.Maybe Data.Text.Text -> CreateExperimentInput
setExperimentGroupId value =
Control.Monad.State.Strict.modify (\s -> (s { experiment_group_idBuilderState = value }))

setIdempotencyKey :: Data.Maybe.Maybe Data.Text.Text -> CreateExperimentInputBuilder ()
setIdempotencyKey value =
Control.Monad.State.Strict.modify (\s -> (s { idempotency_keyBuilderState = value }))

setConfigTags :: Data.Maybe.Maybe Data.Text.Text -> CreateExperimentInputBuilder ()
setConfigTags value =
Control.Monad.State.Strict.modify (\s -> (s { config_tagsBuilderState = value }))

build :: CreateExperimentInputBuilder () -> Data.Either.Either Data.Text.Text CreateExperimentInput
build builder = do
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
Expand All @@ -173,6 +195,8 @@ build builder = do
change_reason' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateExperimentInput.CreateExperimentInput.change_reason is a required property.") Data.Either.Right (change_reasonBuilderState st)
metrics' <- Data.Either.Right (metricsBuilderState st)
experiment_group_id' <- Data.Either.Right (experiment_group_idBuilderState st)
idempotency_key' <- Data.Either.Right (idempotency_keyBuilderState st)
config_tags' <- Data.Either.Right (config_tagsBuilderState st)
Data.Either.Right (CreateExperimentInput {
workspace_id = workspace_id',
org_id = org_id',
Expand All @@ -183,7 +207,9 @@ build builder = do
description = description',
change_reason = change_reason',
metrics = metrics',
experiment_group_id = experiment_group_id'
experiment_group_id = experiment_group_id',
idempotency_key = idempotency_key',
config_tags = config_tags'
})


Expand All @@ -196,6 +222,8 @@ instance Io.Superposition.Utility.IntoRequestBuilder CreateExperimentInput where

Io.Superposition.Utility.serHeader "x-workspace" (workspace_id self)
Io.Superposition.Utility.serHeader "x-org-id" (org_id self)
Io.Superposition.Utility.serHeader "idempotency-key" (idempotency_key self)
Io.Superposition.Utility.serHeader "x-config-tags" (config_tags self)
Io.Superposition.Utility.serField "change_reason" (change_reason self)
Io.Superposition.Utility.serField "name" (name self)
Io.Superposition.Utility.serField "context" (context self)
Expand Down
26 changes: 20 additions & 6 deletions clients/haskell/sdk/Io/Superposition/Model/DiscardExperimentInput.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,13 +3,15 @@ module Io.Superposition.Model.DiscardExperimentInput (
setOrgId,
setId',
setChangeReason,
setConfigTags,
build,
DiscardExperimentInputBuilder,
DiscardExperimentInput,
workspace_id,
org_id,
id',
change_reason
change_reason,
config_tags
) where
import qualified Control.Applicative
import qualified Control.Monad.State.Strict
Expand All @@ -28,7 +30,8 @@ data DiscardExperimentInput = DiscardExperimentInput {
workspace_id :: Data.Text.Text,
org_id :: Data.Text.Text,
id' :: Data.Text.Text,
change_reason :: Data.Text.Text
change_reason :: Data.Text.Text,
config_tags :: Data.Maybe.Maybe Data.Text.Text
} deriving (
GHC.Show.Show,
Data.Eq.Eq,
Expand All @@ -40,7 +43,8 @@ instance Data.Aeson.ToJSON DiscardExperimentInput where
"workspace_id" Data.Aeson..= workspace_id a,
"org_id" Data.Aeson..= org_id a,
"id" Data.Aeson..= id' a,
"change_reason" Data.Aeson..= change_reason a
"change_reason" Data.Aeson..= change_reason a,
"config_tags" Data.Aeson..= config_tags a
]


Expand All @@ -52,6 +56,7 @@ instance Data.Aeson.FromJSON DiscardExperimentInput where
Control.Applicative.<*> (v Data.Aeson..: "org_id")
Control.Applicative.<*> (v Data.Aeson..: "id")
Control.Applicative.<*> (v Data.Aeson..: "change_reason")
Control.Applicative.<*> (v Data.Aeson..:? "config_tags")



Expand All @@ -60,7 +65,8 @@ data DiscardExperimentInputBuilderState = DiscardExperimentInputBuilderState {
workspace_idBuilderState :: Data.Maybe.Maybe Data.Text.Text,
org_idBuilderState :: Data.Maybe.Maybe Data.Text.Text,
id'BuilderState :: Data.Maybe.Maybe Data.Text.Text,
change_reasonBuilderState :: Data.Maybe.Maybe Data.Text.Text
change_reasonBuilderState :: Data.Maybe.Maybe Data.Text.Text,
config_tagsBuilderState :: Data.Maybe.Maybe Data.Text.Text
} deriving (
GHC.Generics.Generic
)
Expand All @@ -70,7 +76,8 @@ defaultBuilderState = DiscardExperimentInputBuilderState {
workspace_idBuilderState = Data.Maybe.Nothing,
org_idBuilderState = Data.Maybe.Nothing,
id'BuilderState = Data.Maybe.Nothing,
change_reasonBuilderState = Data.Maybe.Nothing
change_reasonBuilderState = Data.Maybe.Nothing,
config_tagsBuilderState = Data.Maybe.Nothing
}

type DiscardExperimentInputBuilder = Control.Monad.State.Strict.State DiscardExperimentInputBuilderState
Expand All @@ -91,18 +98,24 @@ setChangeReason :: Data.Text.Text -> DiscardExperimentInputBuilder ()
setChangeReason value =
Control.Monad.State.Strict.modify (\s -> (s { change_reasonBuilderState = Data.Maybe.Just value }))

setConfigTags :: Data.Maybe.Maybe Data.Text.Text -> DiscardExperimentInputBuilder ()
setConfigTags value =
Control.Monad.State.Strict.modify (\s -> (s { config_tagsBuilderState = value }))

build :: DiscardExperimentInputBuilder () -> Data.Either.Either Data.Text.Text DiscardExperimentInput
build builder = do
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
workspace_id' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.DiscardExperimentInput.DiscardExperimentInput.workspace_id is a required property.") Data.Either.Right (workspace_idBuilderState st)
org_id' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.DiscardExperimentInput.DiscardExperimentInput.org_id is a required property.") Data.Either.Right (org_idBuilderState st)
id'' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.DiscardExperimentInput.DiscardExperimentInput.id' is a required property.") Data.Either.Right (id'BuilderState st)
change_reason' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.DiscardExperimentInput.DiscardExperimentInput.change_reason is a required property.") Data.Either.Right (change_reasonBuilderState st)
config_tags' <- Data.Either.Right (config_tagsBuilderState st)
Data.Either.Right (DiscardExperimentInput {
workspace_id = workspace_id',
org_id = org_id',
id' = id'',
change_reason = change_reason'
change_reason = change_reason',
config_tags = config_tags'
})


Expand All @@ -117,5 +130,6 @@ instance Io.Superposition.Utility.IntoRequestBuilder DiscardExperimentInput wher

Io.Superposition.Utility.serHeader "x-workspace" (workspace_id self)
Io.Superposition.Utility.serHeader "x-org-id" (org_id self)
Io.Superposition.Utility.serHeader "x-config-tags" (config_tags self)
Io.Superposition.Utility.serField "change_reason" (change_reason self)

Loading
Loading