fix: Spec for list exp and get config endpoints

clients/haskell/sdk/Io/Superposition/Command/GetConfigFast.hs → clients/haskell/sdk/Io/Superposition/Command/GetExperimentConfig.hs

@@ -1,27 +1,27 @@
-module Io.Superposition.Command.GetConfigFast (
-    GetConfigFastError (..),
-    getConfigFast
+module Io.Superposition.Command.GetExperimentConfig (
+    GetExperimentConfigError (..),
+    getExperimentConfig
 ) where
 import qualified Data.Aeson
 import qualified Data.Maybe
 import qualified Data.Text
 import qualified GHC.Generics
 import qualified GHC.Show
-import qualified Io.Superposition.Model.GetConfigFastInput
-import qualified Io.Superposition.Model.GetConfigFastOutput
+import qualified Io.Superposition.Model.GetExperimentConfigInput
+import qualified Io.Superposition.Model.GetExperimentConfigOutput
 import qualified Io.Superposition.Model.InternalServerError
 import qualified Io.Superposition.SuperpositionClient
 import qualified Io.Superposition.Utility
 
-data GetConfigFastError =
+data GetExperimentConfigError =
     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
        deriving (GHC.Generics.Generic, GHC.Show.Show)
 
-instance Data.Aeson.ToJSON GetConfigFastError
-instance Io.Superposition.Utility.OperationError GetConfigFastError where
+instance Data.Aeson.ToJSON GetExperimentConfigError
+instance Io.Superposition.Utility.OperationError GetExperimentConfigError where
     mkBuilderError = BuilderError
     mkDeSerializationError = DeSerializationError
     mkUnexpectedError = UnexpectedError
@@ -31,10 +31,10 @@ instance Io.Superposition.Utility.OperationError GetConfigFastError where
         | otherwise = Nothing
 
 
-getConfigFast :: Io.Superposition.SuperpositionClient.SuperpositionClient -> Io.Superposition.Model.GetConfigFastInput.GetConfigFastInputBuilder () -> IO (Either GetConfigFastError Io.Superposition.Model.GetConfigFastOutput.GetConfigFastOutput)
-getConfigFast client builder =
+getExperimentConfig :: Io.Superposition.SuperpositionClient.SuperpositionClient -> Io.Superposition.Model.GetExperimentConfigInput.GetExperimentConfigInputBuilder () -> IO (Either GetExperimentConfigError Io.Superposition.Model.GetExperimentConfigOutput.GetExperimentConfigOutput)
+getExperimentConfig client builder =
     let endpoint = Io.Superposition.SuperpositionClient.endpointUri client
         manager = Io.Superposition.SuperpositionClient.httpManager client
         auth = Io.Superposition.SuperpositionClient.getAuth client
-    in Io.Superposition.Utility.runOperation endpoint manager auth (Io.Superposition.Model.GetConfigFastInput.build builder)
+    in Io.Superposition.Utility.runOperation endpoint manager auth (Io.Superposition.Model.GetExperimentConfigInput.build builder)
 

clients/haskell/sdk/Io/Superposition/Model/GetConfigInput.hs

@@ -3,6 +3,7 @@ module Io.Superposition.Model.GetConfigInput (
     setOrgId,
     setPrefix,
     setVersion,
+    setIfModifiedSince,
     setContext,
     build,
     GetConfigInputBuilder,
@@ -11,6 +12,7 @@ module Io.Superposition.Model.GetConfigInput (
     org_id,
     prefix,
     version,
+    if_modified_since,
     context
 ) where
 import qualified Control.Applicative
@@ -22,6 +24,7 @@ import qualified Data.Functor
 import qualified Data.Map
 import qualified Data.Maybe
 import qualified Data.Text
+import qualified Data.Time
 import qualified GHC.Generics
 import qualified GHC.Show
 import qualified Io.Superposition.Utility
@@ -32,6 +35,7 @@ data GetConfigInput = GetConfigInput {
     org_id :: Data.Text.Text,
     prefix :: Data.Maybe.Maybe ([] Data.Text.Text),
     version :: Data.Maybe.Maybe Data.Text.Text,
+    if_modified_since :: Data.Maybe.Maybe Data.Time.UTCTime,
     context :: Data.Maybe.Maybe (Data.Map.Map Data.Text.Text Data.Aeson.Value)
 } deriving (
   GHC.Show.Show,
@@ -45,6 +49,7 @@ instance Data.Aeson.ToJSON GetConfigInput where
         "org_id" Data.Aeson..= org_id a,
         "prefix" Data.Aeson..= prefix a,
         "version" Data.Aeson..= version a,
+        "if_modified_since" Data.Aeson..= if_modified_since a,
         "context" Data.Aeson..= context a
         ]
 
@@ -57,6 +62,7 @@ instance Data.Aeson.FromJSON GetConfigInput where
         Control.Applicative.<*> (v Data.Aeson..: "org_id")
         Control.Applicative.<*> (v Data.Aeson..:? "prefix")
         Control.Applicative.<*> (v Data.Aeson..:? "version")
+        Control.Applicative.<*> (v Data.Aeson..:? "if_modified_since")
         Control.Applicative.<*> (v Data.Aeson..:? "context")
 
 
@@ -67,6 +73,7 @@ data GetConfigInputBuilderState = GetConfigInputBuilderState {
     org_idBuilderState :: Data.Maybe.Maybe Data.Text.Text,
     prefixBuilderState :: Data.Maybe.Maybe ([] Data.Text.Text),
     versionBuilderState :: Data.Maybe.Maybe Data.Text.Text,
+    if_modified_sinceBuilderState :: Data.Maybe.Maybe Data.Time.UTCTime,
     contextBuilderState :: Data.Maybe.Maybe (Data.Map.Map Data.Text.Text Data.Aeson.Value)
 } deriving (
   GHC.Generics.Generic
@@ -78,6 +85,7 @@ defaultBuilderState = GetConfigInputBuilderState {
     org_idBuilderState = Data.Maybe.Nothing,
     prefixBuilderState = Data.Maybe.Nothing,
     versionBuilderState = Data.Maybe.Nothing,
+    if_modified_sinceBuilderState = Data.Maybe.Nothing,
     contextBuilderState = Data.Maybe.Nothing
 }
 
@@ -99,6 +107,10 @@ setVersion :: Data.Maybe.Maybe Data.Text.Text -> GetConfigInputBuilder ()
 setVersion value =
    Control.Monad.State.Strict.modify (\s -> (s { versionBuilderState = value }))
 
+setIfModifiedSince :: Data.Maybe.Maybe Data.Time.UTCTime -> GetConfigInputBuilder ()
+setIfModifiedSince value =
+   Control.Monad.State.Strict.modify (\s -> (s { if_modified_sinceBuilderState = value }))
+
 setContext :: Data.Maybe.Maybe (Data.Map.Map Data.Text.Text Data.Aeson.Value) -> GetConfigInputBuilder ()
 setContext value =
    Control.Monad.State.Strict.modify (\s -> (s { contextBuilderState = value }))
@@ -110,12 +122,14 @@ build builder = do
     org_id' <- Data.Maybe.maybe (Data.Either.Left "Io.Superposition.Model.GetConfigInput.GetConfigInput.org_id is a required property.") Data.Either.Right (org_idBuilderState st)
     prefix' <- Data.Either.Right (prefixBuilderState st)
     version' <- Data.Either.Right (versionBuilderState st)
+    if_modified_since' <- Data.Either.Right (if_modified_sinceBuilderState st)
     context' <- Data.Either.Right (contextBuilderState st)
     Data.Either.Right (GetConfigInput { 
         workspace_id = workspace_id',
         org_id = org_id',
         prefix = prefix',
         version = version',
+        if_modified_since = if_modified_since',
         context = context'
     })
 
@@ -129,6 +143,7 @@ instance Io.Superposition.Utility.IntoRequestBuilder GetConfigInput where
         Io.Superposition.Utility.serQuery "prefix" (prefix self)
         Io.Superposition.Utility.serQuery "version" (version self)
         Io.Superposition.Utility.serHeader "x-workspace" (workspace_id self)
+        Io.Superposition.Utility.serHeader "if-modified-since" (if_modified_since self)
         Io.Superposition.Utility.serHeader "x-org-id" (org_id self)
         Io.Superposition.Utility.serField "context" (context self)