Skip to content

feat: added smithy for workspace lock #1006

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
sauraww wants to merge 1 commit into
base: main
Choose a base branch
from
Open

feat: added smithy for workspace lock #1006

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 3 additions & 0 deletions clients/haskell/sdk/Io/Superposition/Command/CreateDefaultConfig.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,11 +11,13 @@ import qualified Io.Superposition.Model.CreateDefaultConfigInput
import qualified Io.Superposition.Model.CreateDefaultConfigOutput
import qualified Io.Superposition.Model.InternalServerError
import qualified Io.Superposition.Model.WebhookFailed
import qualified Io.Superposition.Model.WorkspaceLockConflict
import qualified Io.Superposition.SuperpositionClient
import qualified Io.Superposition.Utility

data CreateDefaultConfigError =
WebhookFailed Io.Superposition.Model.WebhookFailed.WebhookFailed
| WorkspaceLockConflict Io.Superposition.Model.WorkspaceLockConflict.WorkspaceLockConflict
| InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
| BuilderError Data.Text.Text
| DeSerializationError Io.Superposition.Utility.HttpMetadata Data.Text.Text
Expand All @@ -30,6 +32,7 @@ instance Io.Superposition.Utility.OperationError CreateDefaultConfigError where

getErrorParser status
| 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.WorkspaceLockConflict.WorkspaceLockConflict) = Just (fmap WorkspaceLockConflict (Io.Superposition.Utility.responseParser @Io.Superposition.Model.WorkspaceLockConflict.WorkspaceLockConflict))
| 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
3 changes: 3 additions & 0 deletions clients/haskell/sdk/Io/Superposition/Command/DeleteDefaultConfig.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,12 +12,14 @@ import qualified Io.Superposition.Model.DeleteDefaultConfigOutput
import qualified Io.Superposition.Model.InternalServerError
import qualified Io.Superposition.Model.ResourceNotFound
import qualified Io.Superposition.Model.WebhookFailed
import qualified Io.Superposition.Model.WorkspaceLockConflict
import qualified Io.Superposition.SuperpositionClient
import qualified Io.Superposition.Utility

data DeleteDefaultConfigError =
ResourceNotFound Io.Superposition.Model.ResourceNotFound.ResourceNotFound
| WebhookFailed Io.Superposition.Model.WebhookFailed.WebhookFailed
| WorkspaceLockConflict Io.Superposition.Model.WorkspaceLockConflict.WorkspaceLockConflict
| InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
| BuilderError Data.Text.Text
| DeSerializationError Io.Superposition.Utility.HttpMetadata Data.Text.Text
Expand All @@ -33,6 +35,7 @@ instance Io.Superposition.Utility.OperationError DeleteDefaultConfigError where
getErrorParser status
| 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.WorkspaceLockConflict.WorkspaceLockConflict) = Just (fmap WorkspaceLockConflict (Io.Superposition.Utility.responseParser @Io.Superposition.Model.WorkspaceLockConflict.WorkspaceLockConflict))
| 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
3 changes: 3 additions & 0 deletions clients/haskell/sdk/Io/Superposition/Command/UpdateDefaultConfig.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,12 +12,14 @@ import qualified Io.Superposition.Model.ResourceNotFound
import qualified Io.Superposition.Model.UpdateDefaultConfigInput
import qualified Io.Superposition.Model.UpdateDefaultConfigOutput
import qualified Io.Superposition.Model.WebhookFailed
import qualified Io.Superposition.Model.WorkspaceLockConflict
import qualified Io.Superposition.SuperpositionClient
import qualified Io.Superposition.Utility

data UpdateDefaultConfigError =
ResourceNotFound Io.Superposition.Model.ResourceNotFound.ResourceNotFound
| WebhookFailed Io.Superposition.Model.WebhookFailed.WebhookFailed
| WorkspaceLockConflict Io.Superposition.Model.WorkspaceLockConflict.WorkspaceLockConflict
| InternalServerError Io.Superposition.Model.InternalServerError.InternalServerError
| BuilderError Data.Text.Text
| DeSerializationError Io.Superposition.Utility.HttpMetadata Data.Text.Text
Expand All @@ -33,6 +35,7 @@ instance Io.Superposition.Utility.OperationError UpdateDefaultConfigError where
getErrorParser status
| 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.WorkspaceLockConflict.WorkspaceLockConflict) = Just (fmap WorkspaceLockConflict (Io.Superposition.Utility.responseParser @Io.Superposition.Model.WorkspaceLockConflict.WorkspaceLockConflict))
| 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
30 changes: 23 additions & 7 deletions clients/haskell/sdk/Io/Superposition/Model/CreateWorkspaceOutput.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,7 @@ module Io.Superposition.Model.CreateWorkspaceOutput (
setAutoPopulateControl,
setEnableContextValidation,
setEnableChangeReasonValidation,
setWorkspaceLock,
build,
CreateWorkspaceOutputBuilder,
CreateWorkspaceOutput,
Expand All @@ -35,7 +36,8 @@ module Io.Superposition.Model.CreateWorkspaceOutput (
allow_experiment_self_approval,
auto_populate_control,
enable_context_validation,
enable_change_reason_validation
enable_change_reason_validation,
workspace_lock
) where
import qualified Control.Applicative
import qualified Control.Monad.State.Strict
Expand All @@ -48,6 +50,7 @@ import qualified Data.Text
import qualified Data.Time
import qualified GHC.Generics
import qualified GHC.Show
import qualified Io.Superposition.Model.WorkspaceLock
import qualified Io.Superposition.Model.WorkspaceStatus
import qualified Io.Superposition.Utility
import qualified Network.HTTP.Types
Expand All @@ -69,7 +72,8 @@ data CreateWorkspaceOutput = CreateWorkspaceOutput {
allow_experiment_self_approval :: Bool,
auto_populate_control :: Bool,
enable_context_validation :: Bool,
enable_change_reason_validation :: Bool
enable_change_reason_validation :: Bool,
workspace_lock :: Data.Maybe.Maybe Io.Superposition.Model.WorkspaceLock.WorkspaceLock
} deriving (
GHC.Show.Show,
Data.Eq.Eq,
Expand All @@ -94,7 +98,8 @@ instance Data.Aeson.ToJSON CreateWorkspaceOutput where
"allow_experiment_self_approval" Data.Aeson..= allow_experiment_self_approval a,
"auto_populate_control" Data.Aeson..= auto_populate_control a,
"enable_context_validation" Data.Aeson..= enable_context_validation a,
"enable_change_reason_validation" Data.Aeson..= enable_change_reason_validation a
"enable_change_reason_validation" Data.Aeson..= enable_change_reason_validation a,
"workspace_lock" Data.Aeson..= workspace_lock a
]


Expand All @@ -119,6 +124,7 @@ instance Data.Aeson.FromJSON CreateWorkspaceOutput where
Control.Applicative.<*> (v Data.Aeson..: "auto_populate_control")
Control.Applicative.<*> (v Data.Aeson..: "enable_context_validation")
Control.Applicative.<*> (v Data.Aeson..: "enable_change_reason_validation")
Control.Applicative.<*> (v Data.Aeson..:? "workspace_lock")



Expand All @@ -140,7 +146,8 @@ data CreateWorkspaceOutputBuilderState = CreateWorkspaceOutputBuilderState {
allow_experiment_self_approvalBuilderState :: Data.Maybe.Maybe Bool,
auto_populate_controlBuilderState :: Data.Maybe.Maybe Bool,
enable_context_validationBuilderState :: Data.Maybe.Maybe Bool,
enable_change_reason_validationBuilderState :: Data.Maybe.Maybe Bool
enable_change_reason_validationBuilderState :: Data.Maybe.Maybe Bool,
workspace_lockBuilderState :: Data.Maybe.Maybe Io.Superposition.Model.WorkspaceLock.WorkspaceLock
} deriving (
GHC.Generics.Generic
)
Expand All @@ -163,7 +170,8 @@ defaultBuilderState = CreateWorkspaceOutputBuilderState {
allow_experiment_self_approvalBuilderState = Data.Maybe.Nothing,
auto_populate_controlBuilderState = Data.Maybe.Nothing,
enable_context_validationBuilderState = Data.Maybe.Nothing,
enable_change_reason_validationBuilderState = Data.Maybe.Nothing
enable_change_reason_validationBuilderState = Data.Maybe.Nothing,
workspace_lockBuilderState = Data.Maybe.Nothing
}

type CreateWorkspaceOutputBuilder = Control.Monad.State.Strict.State CreateWorkspaceOutputBuilderState
Expand Down Expand Up @@ -236,6 +244,10 @@ setEnableChangeReasonValidation :: Bool -> CreateWorkspaceOutputBuilder ()
setEnableChangeReasonValidation value =
Control.Monad.State.Strict.modify (\s -> (s { enable_change_reason_validationBuilderState = Data.Maybe.Just value }))

setWorkspaceLock :: Data.Maybe.Maybe Io.Superposition.Model.WorkspaceLock.WorkspaceLock -> CreateWorkspaceOutputBuilder ()
setWorkspaceLock value =
Control.Monad.State.Strict.modify (\s -> (s { workspace_lockBuilderState = value }))

build :: CreateWorkspaceOutputBuilder () -> Data.Either.Either Data.Text.Text CreateWorkspaceOutput
build builder = do
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
Expand All @@ -256,6 +268,7 @@ build builder = do
auto_populate_control' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateWorkspaceOutput.CreateWorkspaceOutput.auto_populate_control is a required property.") Data.Either.Right (auto_populate_controlBuilderState st)
enable_context_validation' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateWorkspaceOutput.CreateWorkspaceOutput.enable_context_validation is a required property.") Data.Either.Right (enable_context_validationBuilderState st)
enable_change_reason_validation' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateWorkspaceOutput.CreateWorkspaceOutput.enable_change_reason_validation is a required property.") Data.Either.Right (enable_change_reason_validationBuilderState st)
workspace_lock' <- Data.Either.Right (workspace_lockBuilderState st)
Data.Either.Right (CreateWorkspaceOutput {
workspace_name = workspace_name',
organisation_id = organisation_id',
Expand All @@ -273,7 +286,8 @@ build builder = do
allow_experiment_self_approval = allow_experiment_self_approval',
auto_populate_control = auto_populate_control',
enable_context_validation = enable_context_validation',
enable_change_reason_validation = enable_change_reason_validation'
enable_change_reason_validation = enable_change_reason_validation',
workspace_lock = workspace_lock'
})


Expand All @@ -298,6 +312,7 @@ instance Io.Superposition.Utility.FromResponseParser CreateWorkspaceOutput where
var14 <- Io.Superposition.Utility.deSerField "workspace_schema_name"
var15 <- Io.Superposition.Utility.deSerField "metrics"
var16 <- Io.Superposition.Utility.deSerField "workspace_name"
var17 <- Io.Superposition.Utility.deSerField "workspace_lock"
pure $ CreateWorkspaceOutput {
workspace_name = var16,
organisation_id = var12,
Expand All @@ -315,6 +330,7 @@ instance Io.Superposition.Utility.FromResponseParser CreateWorkspaceOutput where
allow_experiment_self_approval = var13,
auto_populate_control = var1,
enable_context_validation = var2,
enable_change_reason_validation = var9
enable_change_reason_validation = var9,
workspace_lock = var17
}

30 changes: 23 additions & 7 deletions clients/haskell/sdk/Io/Superposition/Model/GetWorkspaceOutput.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,7 @@ module Io.Superposition.Model.GetWorkspaceOutput (
setAutoPopulateControl,
setEnableContextValidation,
setEnableChangeReasonValidation,
setWorkspaceLock,
build,
GetWorkspaceOutputBuilder,
GetWorkspaceOutput,
Expand All @@ -35,7 +36,8 @@ module Io.Superposition.Model.GetWorkspaceOutput (
allow_experiment_self_approval,
auto_populate_control,
enable_context_validation,
enable_change_reason_validation
enable_change_reason_validation,
workspace_lock
) where
import qualified Control.Applicative
import qualified Control.Monad.State.Strict
Expand All @@ -48,6 +50,7 @@ import qualified Data.Text
import qualified Data.Time
import qualified GHC.Generics
import qualified GHC.Show
import qualified Io.Superposition.Model.WorkspaceLock
import qualified Io.Superposition.Model.WorkspaceStatus
import qualified Io.Superposition.Utility
import qualified Network.HTTP.Types
Expand All @@ -69,7 +72,8 @@ data GetWorkspaceOutput = GetWorkspaceOutput {
allow_experiment_self_approval :: Bool,
auto_populate_control :: Bool,
enable_context_validation :: Bool,
enable_change_reason_validation :: Bool
enable_change_reason_validation :: Bool,
workspace_lock :: Data.Maybe.Maybe Io.Superposition.Model.WorkspaceLock.WorkspaceLock
} deriving (
GHC.Show.Show,
Data.Eq.Eq,
Expand All @@ -94,7 +98,8 @@ instance Data.Aeson.ToJSON GetWorkspaceOutput where
"allow_experiment_self_approval" Data.Aeson..= allow_experiment_self_approval a,
"auto_populate_control" Data.Aeson..= auto_populate_control a,
"enable_context_validation" Data.Aeson..= enable_context_validation a,
"enable_change_reason_validation" Data.Aeson..= enable_change_reason_validation a
"enable_change_reason_validation" Data.Aeson..= enable_change_reason_validation a,
"workspace_lock" Data.Aeson..= workspace_lock a
]


Expand All @@ -119,6 +124,7 @@ instance Data.Aeson.FromJSON GetWorkspaceOutput where
Control.Applicative.<*> (v Data.Aeson..: "auto_populate_control")
Control.Applicative.<*> (v Data.Aeson..: "enable_context_validation")
Control.Applicative.<*> (v Data.Aeson..: "enable_change_reason_validation")
Control.Applicative.<*> (v Data.Aeson..:? "workspace_lock")



Expand All @@ -140,7 +146,8 @@ data GetWorkspaceOutputBuilderState = GetWorkspaceOutputBuilderState {
allow_experiment_self_approvalBuilderState :: Data.Maybe.Maybe Bool,
auto_populate_controlBuilderState :: Data.Maybe.Maybe Bool,
enable_context_validationBuilderState :: Data.Maybe.Maybe Bool,
enable_change_reason_validationBuilderState :: Data.Maybe.Maybe Bool
enable_change_reason_validationBuilderState :: Data.Maybe.Maybe Bool,
workspace_lockBuilderState :: Data.Maybe.Maybe Io.Superposition.Model.WorkspaceLock.WorkspaceLock
} deriving (
GHC.Generics.Generic
)
Expand All @@ -163,7 +170,8 @@ defaultBuilderState = GetWorkspaceOutputBuilderState {
allow_experiment_self_approvalBuilderState = Data.Maybe.Nothing,
auto_populate_controlBuilderState = Data.Maybe.Nothing,
enable_context_validationBuilderState = Data.Maybe.Nothing,
enable_change_reason_validationBuilderState = Data.Maybe.Nothing
enable_change_reason_validationBuilderState = Data.Maybe.Nothing,
workspace_lockBuilderState = Data.Maybe.Nothing
}

type GetWorkspaceOutputBuilder = Control.Monad.State.Strict.State GetWorkspaceOutputBuilderState
Expand Down Expand Up @@ -236,6 +244,10 @@ setEnableChangeReasonValidation :: Bool -> GetWorkspaceOutputBuilder ()
setEnableChangeReasonValidation value =
Control.Monad.State.Strict.modify (\s -> (s { enable_change_reason_validationBuilderState = Data.Maybe.Just value }))

setWorkspaceLock :: Data.Maybe.Maybe Io.Superposition.Model.WorkspaceLock.WorkspaceLock -> GetWorkspaceOutputBuilder ()
setWorkspaceLock value =
Control.Monad.State.Strict.modify (\s -> (s { workspace_lockBuilderState = value }))

build :: GetWorkspaceOutputBuilder () -> Data.Either.Either Data.Text.Text GetWorkspaceOutput
build builder = do
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
Expand All @@ -256,6 +268,7 @@ build builder = do
auto_populate_control' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.GetWorkspaceOutput.GetWorkspaceOutput.auto_populate_control is a required property.") Data.Either.Right (auto_populate_controlBuilderState st)
enable_context_validation' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.GetWorkspaceOutput.GetWorkspaceOutput.enable_context_validation is a required property.") Data.Either.Right (enable_context_validationBuilderState st)
enable_change_reason_validation' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.GetWorkspaceOutput.GetWorkspaceOutput.enable_change_reason_validation is a required property.") Data.Either.Right (enable_change_reason_validationBuilderState st)
workspace_lock' <- Data.Either.Right (workspace_lockBuilderState st)
Data.Either.Right (GetWorkspaceOutput {
workspace_name = workspace_name',
organisation_id = organisation_id',
Expand All @@ -273,7 +286,8 @@ build builder = do
allow_experiment_self_approval = allow_experiment_self_approval',
auto_populate_control = auto_populate_control',
enable_context_validation = enable_context_validation',
enable_change_reason_validation = enable_change_reason_validation'
enable_change_reason_validation = enable_change_reason_validation',
workspace_lock = workspace_lock'
})


Expand All @@ -298,6 +312,7 @@ instance Io.Superposition.Utility.FromResponseParser GetWorkspaceOutput where
var14 <- Io.Superposition.Utility.deSerField "workspace_schema_name"
var15 <- Io.Superposition.Utility.deSerField "metrics"
var16 <- Io.Superposition.Utility.deSerField "workspace_name"
var17 <- Io.Superposition.Utility.deSerField "workspace_lock"
pure $ GetWorkspaceOutput {
workspace_name = var16,
organisation_id = var12,
Expand All @@ -315,6 +330,7 @@ instance Io.Superposition.Utility.FromResponseParser GetWorkspaceOutput where
allow_experiment_self_approval = var13,
auto_populate_control = var1,
enable_context_validation = var2,
enable_change_reason_validation = var9
enable_change_reason_validation = var9,
workspace_lock = var17
}

Loading
Loading