Skip to content

fix: Spec for list exp and get config endpoints #916

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
ayushjain17 wants to merge 3 commits into
base: main
Choose a base branch
from
Open

fix: Spec for list exp and get config endpoints #916

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
0397b99
fix: Spec for list exp and get config endpoints
ayushjain17 Mar 16, 2026
93c1645
fix: more fixes
ayushjain17 Mar 18, 2026
96105a6
feat: Add prefix filter in list exp
ayushjain17 Mar 20, 2026
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
1 change: 0 additions & 1 deletion Cargo.lock
View file
Open in desktop

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

40 changes: 0 additions & 40 deletions clients/haskell/sdk/Io/Superposition/Command/GetConfigFast.hs
View file
Open in desktop

This file was deleted.

94 changes: 0 additions & 94 deletions clients/haskell/sdk/Io/Superposition/Model/GetConfigFastInput.hs
View file
Open in desktop

This file was deleted.

123 changes: 0 additions & 123 deletions clients/haskell/sdk/Io/Superposition/Model/GetConfigFastOutput.hs
View file
Open in desktop

This file was deleted.

15 changes: 15 additions & 0 deletions clients/haskell/sdk/Io/Superposition/Model/GetConfigInput.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,7 @@ module Io.Superposition.Model.GetConfigInput (
setOrgId,
setPrefix,
setVersion,
setIfModifiedSince,
setContext,
build,
GetConfigInputBuilder,
Expand All @@ -11,6 +12,7 @@ module Io.Superposition.Model.GetConfigInput (
org_id,
prefix,
version,
if_modified_since,
context
) where
import qualified Control.Applicative
Expand All @@ -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
Expand All @@ -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,
Expand All @@ -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
]

Expand All @@ -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")


Expand All @@ -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
Expand All @@ -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
}

Expand All @@ -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 }))
Expand All @@ -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'
})

Expand All @@ -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)

Loading
Loading