Skip to content

Commit 3808aff

Browse files
mahatoankitkumarmahatoankitkumar
authored
fix: Modified validation and autocomplete functions (#732)
* feat: functions type modifications * fix: function types smithy changes
1 parent 4a2eaa2 commit 3808aff

File tree

287 files changed

+11787
-2873
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

287 files changed

+11787
-2873
lines changed

‎clients/haskell/sdk/Io/Superposition/Model/BulkOperationOut.hs‎

Lines changed: 68 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,68 @@
1+
module Io.Superposition.Model.BulkOperationOut (
2+
setOutput,
3+
build,
4+
BulkOperationOutBuilder,
5+
BulkOperationOut,
6+
output
7+
) where
8+
import qualified Control.Monad.State.Strict
9+
import qualified Data.Aeson
10+
import qualified Data.Either
11+
import qualified Data.Eq
12+
import qualified Data.Functor
13+
import qualified Data.Maybe
14+
import qualified Data.Text
15+
import qualified GHC.Generics
16+
import qualified GHC.Show
17+
import qualified Io.Superposition.Model.ContextActionOut
18+
import qualified Io.Superposition.Utility
19+
20+
data BulkOperationOut = BulkOperationOut {
21+
output :: Data.Maybe.Maybe ([] Io.Superposition.Model.ContextActionOut.ContextActionOut)
22+
} deriving (
23+
GHC.Show.Show,
24+
Data.Eq.Eq,
25+
GHC.Generics.Generic
26+
)
27+
28+
instance Data.Aeson.ToJSON BulkOperationOut where
29+
toJSON a = Data.Aeson.object [
30+
"output" Data.Aeson..= output a
31+
]
32+
33+
34+
instance Io.Superposition.Utility.SerializeBody BulkOperationOut
35+
36+
instance Data.Aeson.FromJSON BulkOperationOut where
37+
parseJSON = Data.Aeson.withObject "BulkOperationOut" $ \v -> BulkOperationOut
38+
Data.Functor.<$> (v Data.Aeson..: "output")
39+
40+
41+
42+
43+
data BulkOperationOutBuilderState = BulkOperationOutBuilderState {
44+
outputBuilderState :: Data.Maybe.Maybe ([] Io.Superposition.Model.ContextActionOut.ContextActionOut)
45+
} deriving (
46+
GHC.Generics.Generic
47+
)
48+
49+
defaultBuilderState :: BulkOperationOutBuilderState
50+
defaultBuilderState = BulkOperationOutBuilderState {
51+
outputBuilderState = Data.Maybe.Nothing
52+
}
53+
54+
type BulkOperationOutBuilder = Control.Monad.State.Strict.State BulkOperationOutBuilderState
55+
56+
setOutput :: Data.Maybe.Maybe ([] Io.Superposition.Model.ContextActionOut.ContextActionOut) -> BulkOperationOutBuilder ()
57+
setOutput value =
58+
Control.Monad.State.Strict.modify (\s -> (s { outputBuilderState = value }))
59+
60+
build :: BulkOperationOutBuilder () -> Data.Either.Either Data.Text.Text BulkOperationOut
61+
build builder = do
62+
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
63+
output' <- Data.Either.Right (outputBuilderState st)
64+
Data.Either.Right (BulkOperationOut {
65+
output = output'
66+
})
67+
68+

‎clients/haskell/sdk/Io/Superposition/Model/BulkOperationReq.hs‎

Lines changed: 68 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,68 @@
1+
module Io.Superposition.Model.BulkOperationReq (
2+
setOperations,
3+
build,
4+
BulkOperationReqBuilder,
5+
BulkOperationReq,
6+
operations
7+
) where
8+
import qualified Control.Monad.State.Strict
9+
import qualified Data.Aeson
10+
import qualified Data.Either
11+
import qualified Data.Eq
12+
import qualified Data.Functor
13+
import qualified Data.Maybe
14+
import qualified Data.Text
15+
import qualified GHC.Generics
16+
import qualified GHC.Show
17+
import qualified Io.Superposition.Model.ContextAction
18+
import qualified Io.Superposition.Utility
19+
20+
data BulkOperationReq = BulkOperationReq {
21+
operations :: Data.Maybe.Maybe ([] Io.Superposition.Model.ContextAction.ContextAction)
22+
} deriving (
23+
GHC.Show.Show,
24+
Data.Eq.Eq,
25+
GHC.Generics.Generic
26+
)
27+
28+
instance Data.Aeson.ToJSON BulkOperationReq where
29+
toJSON a = Data.Aeson.object [
30+
"operations" Data.Aeson..= operations a
31+
]
32+
33+
34+
instance Io.Superposition.Utility.SerializeBody BulkOperationReq
35+
36+
instance Data.Aeson.FromJSON BulkOperationReq where
37+
parseJSON = Data.Aeson.withObject "BulkOperationReq" $ \v -> BulkOperationReq
38+
Data.Functor.<$> (v Data.Aeson..: "operations")
39+
40+
41+
42+
43+
data BulkOperationReqBuilderState = BulkOperationReqBuilderState {
44+
operationsBuilderState :: Data.Maybe.Maybe ([] Io.Superposition.Model.ContextAction.ContextAction)
45+
} deriving (
46+
GHC.Generics.Generic
47+
)
48+
49+
defaultBuilderState :: BulkOperationReqBuilderState
50+
defaultBuilderState = BulkOperationReqBuilderState {
51+
operationsBuilderState = Data.Maybe.Nothing
52+
}
53+
54+
type BulkOperationReqBuilder = Control.Monad.State.Strict.State BulkOperationReqBuilderState
55+
56+
setOperations :: Data.Maybe.Maybe ([] Io.Superposition.Model.ContextAction.ContextAction) -> BulkOperationReqBuilder ()
57+
setOperations value =
58+
Control.Monad.State.Strict.modify (\s -> (s { operationsBuilderState = value }))
59+
60+
build :: BulkOperationReqBuilder () -> Data.Either.Either Data.Text.Text BulkOperationReq
61+
build builder = do
62+
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
63+
operations' <- Data.Either.Right (operationsBuilderState st)
64+
Data.Either.Right (BulkOperationReq {
65+
operations = operations'
66+
})
67+
68+

‎clients/haskell/sdk/Io/Superposition/Model/ContextValidationFunctionRequest.hs‎

Lines changed: 67 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,67 @@
1+
module Io.Superposition.Model.ContextValidationFunctionRequest (
2+
setEnvironment,
3+
build,
4+
ContextValidationFunctionRequestBuilder,
5+
ContextValidationFunctionRequest,
6+
environment
7+
) where
8+
import qualified Control.Monad.State.Strict
9+
import qualified Data.Aeson
10+
import qualified Data.Either
11+
import qualified Data.Eq
12+
import qualified Data.Functor
13+
import qualified Data.Maybe
14+
import qualified Data.Text
15+
import qualified GHC.Generics
16+
import qualified GHC.Show
17+
import qualified Io.Superposition.Utility
18+
19+
data ContextValidationFunctionRequest = ContextValidationFunctionRequest {
20+
environment :: Data.Aeson.Value
21+
} deriving (
22+
GHC.Show.Show,
23+
Data.Eq.Eq,
24+
GHC.Generics.Generic
25+
)
26+
27+
instance Data.Aeson.ToJSON ContextValidationFunctionRequest where
28+
toJSON a = Data.Aeson.object [
29+
"environment" Data.Aeson..= environment a
30+
]
31+
32+
33+
instance Io.Superposition.Utility.SerializeBody ContextValidationFunctionRequest
34+
35+
instance Data.Aeson.FromJSON ContextValidationFunctionRequest where
36+
parseJSON = Data.Aeson.withObject "ContextValidationFunctionRequest" $ \v -> ContextValidationFunctionRequest
37+
Data.Functor.<$> (v Data.Aeson..: "environment")
38+
39+
40+
41+
42+
data ContextValidationFunctionRequestBuilderState = ContextValidationFunctionRequestBuilderState {
43+
environmentBuilderState :: Data.Maybe.Maybe Data.Aeson.Value
44+
} deriving (
45+
GHC.Generics.Generic
46+
)
47+
48+
defaultBuilderState :: ContextValidationFunctionRequestBuilderState
49+
defaultBuilderState = ContextValidationFunctionRequestBuilderState {
50+
environmentBuilderState = Data.Maybe.Nothing
51+
}
52+
53+
type ContextValidationFunctionRequestBuilder = Control.Monad.State.Strict.State ContextValidationFunctionRequestBuilderState
54+
55+
setEnvironment :: Data.Aeson.Value -> ContextValidationFunctionRequestBuilder ()
56+
setEnvironment value =
57+
Control.Monad.State.Strict.modify (\s -> (s { environmentBuilderState = Data.Maybe.Just value }))
58+
59+
build :: ContextValidationFunctionRequestBuilder () -> Data.Either.Either Data.Text.Text ContextValidationFunctionRequest
60+
build builder = do
61+
let (_, st) = Control.Monad.State.Strict.runState builder defaultBuilderState
62+
environment' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.ContextValidationFunctionRequest.ContextValidationFunctionRequest.environment is a required property.") Data.Either.Right (environmentBuilderState st)
63+
Data.Either.Right (ContextValidationFunctionRequest {
64+
environment = environment'
65+
})
66+
67+

‎clients/haskell/sdk/Io/Superposition/Model/CreateDefaultConfigInput.hs‎

Lines changed: 26 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,8 @@ module Io.Superposition.Model.CreateDefaultConfigInput (
44
setSchema,
55
setDescription,
66
setChangeReason,
7-
setFunctionName,
8-
setAutocompleteFunctionName,
7+
setValueValidationFunctionName,
8+
setValueComputeFunctionName,
99
setWorkspaceId,
1010
setOrgId,
1111
build,
@@ -16,8 +16,8 @@ module Io.Superposition.Model.CreateDefaultConfigInput (
1616
schema,
1717
description,
1818
change_reason,
19-
function_name,
20-
autocomplete_function_name,
19+
value_validation_function_name,
20+
value_compute_function_name,
2121
workspace_id,
2222
org_id
2323
) where
@@ -41,8 +41,8 @@ data CreateDefaultConfigInput = CreateDefaultConfigInput {
4141
schema :: Data.Map.Map Data.Text.Text Data.Aeson.Value,
4242
description :: Data.Text.Text,
4343
change_reason :: Data.Text.Text,
44-
function_name :: Data.Maybe.Maybe Data.Text.Text,
45-
autocomplete_function_name :: Data.Maybe.Maybe Data.Text.Text,
44+
value_validation_function_name :: Data.Maybe.Maybe Data.Text.Text,
45+
value_compute_function_name :: Data.Maybe.Maybe Data.Text.Text,
4646
workspace_id :: Data.Text.Text,
4747
org_id :: Data.Text.Text
4848
} deriving (
@@ -58,8 +58,8 @@ instance Data.Aeson.ToJSON CreateDefaultConfigInput where
5858
"schema" Data.Aeson..= schema a,
5959
"description" Data.Aeson..= description a,
6060
"change_reason" Data.Aeson..= change_reason a,
61-
"function_name" Data.Aeson..= function_name a,
62-
"autocomplete_function_name" Data.Aeson..= autocomplete_function_name a,
61+
"value_validation_function_name" Data.Aeson..= value_validation_function_name a,
62+
"value_compute_function_name" Data.Aeson..= value_compute_function_name a,
6363
"workspace_id" Data.Aeson..= workspace_id a,
6464
"org_id" Data.Aeson..= org_id a
6565
]
@@ -74,8 +74,8 @@ instance Data.Aeson.FromJSON CreateDefaultConfigInput where
7474
Control.Applicative.<*> (v Data.Aeson..: "schema")
7575
Control.Applicative.<*> (v Data.Aeson..: "description")
7676
Control.Applicative.<*> (v Data.Aeson..: "change_reason")
77-
Control.Applicative.<*> (v Data.Aeson..:? "function_name")
78-
Control.Applicative.<*> (v Data.Aeson..:? "autocomplete_function_name")
77+
Control.Applicative.<*> (v Data.Aeson..:? "value_validation_function_name")
78+
Control.Applicative.<*> (v Data.Aeson..:? "value_compute_function_name")
7979
Control.Applicative.<*> (v Data.Aeson..: "workspace_id")
8080
Control.Applicative.<*> (v Data.Aeson..: "org_id")
8181

@@ -88,8 +88,8 @@ data CreateDefaultConfigInputBuilderState = CreateDefaultConfigInputBuilderState
8888
schemaBuilderState :: Data.Maybe.Maybe (Data.Map.Map Data.Text.Text Data.Aeson.Value),
8989
descriptionBuilderState :: Data.Maybe.Maybe Data.Text.Text,
9090
change_reasonBuilderState :: Data.Maybe.Maybe Data.Text.Text,
91-
function_nameBuilderState :: Data.Maybe.Maybe Data.Text.Text,
92-
autocomplete_function_nameBuilderState :: Data.Maybe.Maybe Data.Text.Text,
91+
value_validation_function_nameBuilderState :: Data.Maybe.Maybe Data.Text.Text,
92+
value_compute_function_nameBuilderState :: Data.Maybe.Maybe Data.Text.Text,
9393
workspace_idBuilderState :: Data.Maybe.Maybe Data.Text.Text,
9494
org_idBuilderState :: Data.Maybe.Maybe Data.Text.Text
9595
} deriving (
@@ -103,8 +103,8 @@ defaultBuilderState = CreateDefaultConfigInputBuilderState {
103103
schemaBuilderState = Data.Maybe.Nothing,
104104
descriptionBuilderState = Data.Maybe.Nothing,
105105
change_reasonBuilderState = Data.Maybe.Nothing,
106-
function_nameBuilderState = Data.Maybe.Nothing,
107-
autocomplete_function_nameBuilderState = Data.Maybe.Nothing,
106+
value_validation_function_nameBuilderState = Data.Maybe.Nothing,
107+
value_compute_function_nameBuilderState = Data.Maybe.Nothing,
108108
workspace_idBuilderState = Data.Maybe.Nothing,
109109
org_idBuilderState = Data.Maybe.Nothing
110110
}
@@ -131,13 +131,13 @@ setChangeReason :: Data.Text.Text -> CreateDefaultConfigInputBuilder ()
131131
setChangeReason value =
132132
Control.Monad.State.Strict.modify (\s -> (s { change_reasonBuilderState = Data.Maybe.Just value }))
133133

134-
setFunctionName :: Data.Maybe.Maybe Data.Text.Text -> CreateDefaultConfigInputBuilder ()
135-
setFunctionName value =
136-
Control.Monad.State.Strict.modify (\s -> (s { function_nameBuilderState = value }))
134+
setValueValidationFunctionName :: Data.Maybe.Maybe Data.Text.Text -> CreateDefaultConfigInputBuilder ()
135+
setValueValidationFunctionName value =
136+
Control.Monad.State.Strict.modify (\s -> (s { value_validation_function_nameBuilderState = value }))
137137

138-
setAutocompleteFunctionName :: Data.Maybe.Maybe Data.Text.Text -> CreateDefaultConfigInputBuilder ()
139-
setAutocompleteFunctionName value =
140-
Control.Monad.State.Strict.modify (\s -> (s { autocomplete_function_nameBuilderState = value }))
138+
setValueComputeFunctionName :: Data.Maybe.Maybe Data.Text.Text -> CreateDefaultConfigInputBuilder ()
139+
setValueComputeFunctionName value =
140+
Control.Monad.State.Strict.modify (\s -> (s { value_compute_function_nameBuilderState = value }))
141141

142142
setWorkspaceId :: Data.Text.Text -> CreateDefaultConfigInputBuilder ()
143143
setWorkspaceId value =
@@ -155,8 +155,8 @@ build builder = do
155155
schema' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateDefaultConfigInput.CreateDefaultConfigInput.schema is a required property.") Data.Either.Right (schemaBuilderState st)
156156
description' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateDefaultConfigInput.CreateDefaultConfigInput.description is a required property.") Data.Either.Right (descriptionBuilderState st)
157157
change_reason' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateDefaultConfigInput.CreateDefaultConfigInput.change_reason is a required property.") Data.Either.Right (change_reasonBuilderState st)
158-
function_name' <- Data.Either.Right (function_nameBuilderState st)
159-
autocomplete_function_name' <- Data.Either.Right (autocomplete_function_nameBuilderState st)
158+
value_validation_function_name' <- Data.Either.Right (value_validation_function_nameBuilderState st)
159+
value_compute_function_name' <- Data.Either.Right (value_compute_function_nameBuilderState st)
160160
workspace_id' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateDefaultConfigInput.CreateDefaultConfigInput.workspace_id is a required property.") Data.Either.Right (workspace_idBuilderState st)
161161
org_id' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.CreateDefaultConfigInput.CreateDefaultConfigInput.org_id is a required property.") Data.Either.Right (org_idBuilderState st)
162162
Data.Either.Right (CreateDefaultConfigInput {
@@ -165,8 +165,8 @@ build builder = do
165165
schema = schema',
166166
description = description',
167167
change_reason = change_reason',
168-
function_name = function_name',
169-
autocomplete_function_name = autocomplete_function_name',
168+
value_validation_function_name = value_validation_function_name',
169+
value_compute_function_name = value_compute_function_name',
170170
workspace_id = workspace_id',
171171
org_id = org_id'
172172
})
@@ -182,10 +182,10 @@ instance Io.Superposition.Utility.IntoRequestBuilder CreateDefaultConfigInput wh
182182
Io.Superposition.Utility.serHeader "x-workspace" (workspace_id self)
183183
Io.Superposition.Utility.serHeader "x-org-id" (org_id self)
184184
Io.Superposition.Utility.serField "schema" (schema self)
185-
Io.Superposition.Utility.serField "autocomplete_function_name" (autocomplete_function_name self)
186185
Io.Superposition.Utility.serField "change_reason" (change_reason self)
187-
Io.Superposition.Utility.serField "function_name" (function_name self)
186+
Io.Superposition.Utility.serField "value_compute_function_name" (value_compute_function_name self)
188187
Io.Superposition.Utility.serField "description" (description self)
189188
Io.Superposition.Utility.serField "value" (value self)
190189
Io.Superposition.Utility.serField "key" (key self)
190+
Io.Superposition.Utility.serField "value_validation_function_name" (value_validation_function_name self)
191191

0 commit comments

Comments
 (0)