GDC: Integration Tests and Servant Agent

PR-URL: hasura/graphql-engine-mono#4467
GitOrigin-RevId: 5e81d8581197c90ad2de9106e724c63d7592ae72

Author: solomon-b

cabal.project.freeze

@@ -346,6 +346,7 @@ constraints: any.Cabal ==3.2.1.0,
              any.servant-client ==0.19,
              any.servant-client-core ==0.19,
              any.servant-openapi3 ==2.0.1.3,
+             any.servant-server ==0.19.1,
              any.setenv ==0.1.1.3,
              any.shakespeare ==2.0.25.1,
              shakespeare -test_coffee -test_export -test_roy,
@@ -444,6 +445,7 @@ constraints: any.Cabal ==3.2.1.0,
              void -safe,
              any.wai ==3.2.3,
              any.wai-extra ==3.1.8,
+             any.wai-app-static ==3.1.7.4,
              wai-extra -build-example,
              any.wai-logger ==2.4.0,
              any.warp ==3.3.19,

server/graphql-engine.cabal

@@ -137,19 +137,25 @@ library dc-api
                      , autodocodec-openapi3
                      , base
                      , bytestring
+                     , containers
                      , deepseq
+                     , file-embed
                      , hashable
                      , insert-ordered-containers
                      , lens
                      , lens-aeson
+                     , mtl
                      , openapi3
                      , scientific
                      , servant
                      , servant-client
                      , servant-client-core
                      , servant-openapi3
+                     , servant-server
                      , text
                      , unordered-containers
+                     , vector
+                     , warp
   if !flag(profiling)
     -- ghc-heap-view can't be built with profiling
     build-depends:     ghc-heap-view
@@ -166,6 +172,10 @@ library dc-api
                      , Hasura.Backends.DataConnector.API.V0.Scalar.Value
                      , Hasura.Backends.DataConnector.API.V0.Schema
                      , Hasura.Backends.DataConnector.API.V0.Table
+                     , Hasura.Backends.DataConnector.Agent.Data
+                     , Hasura.Backends.DataConnector.Agent.Query
+                     , Hasura.Backends.DataConnector.Agent.Schema
+                     , Hasura.Backends.DataConnector.Agent.Server
 
 library
   import: common-all
@@ -1003,6 +1013,7 @@ test-suite tests-hspec
     , dependent-map
     , dependent-sum
     , ekg-core
+    , dc-api
     , graphql-engine
     , graphql-parser
     , haskell-src-meta
@@ -1088,6 +1099,7 @@ test-suite tests-hspec
  -- Harness.Backend
     Harness.Backend.BigQuery
     Harness.Backend.Citus
+    Harness.Backend.DataConnector
     Harness.Backend.Mysql
     Harness.Backend.Postgres
     Harness.Backend.Sqlserver
@@ -1108,6 +1120,7 @@ test-suite tests-hspec
     Test.ColumnPresetsSpec
     Test.CustomFieldNamesSpec
     Test.DirectivesSpec
+    Test.DC.QuerySpec
     Test.EventTriggersRunSQLSpec
     Test.HelloWorldSpec
     Test.InsertCheckPermissionSpec

server/src-dc-api/Hasura/Backends/DataConnector/API.hs

@@ -2,6 +2,7 @@
 module Hasura.Backends.DataConnector.API
   ( module V0,
     Api,
+    ConfigSchemaApi,
     SchemaApi,
     QueryApi,
     ConfigHeader,

server/src-dc-api/Hasura/Backends/DataConnector/API/V0/ConfigSchema.hs

@@ -11,9 +11,10 @@ where
 
 import Control.DeepSeq (NFData)
 import Control.Lens ((%~), (&), (.~), (^?))
-import Data.Aeson (FromJSON (..), Object, ToJSON (..), Value (..), encode, object, withObject, (.:), (.=), (<?>))
+import Data.Aeson (FromJSON (..), Object, ToJSON (..), Value (..), eitherDecode, encode, object, withObject, (.:), (.=), (<?>))
 import Data.Aeson.Lens (AsPrimitive (..), key, members, values)
 import Data.Aeson.Types (JSONPathElement (..))
+import Data.Bifunctor (first)
 import Data.ByteString.Lazy qualified as BSL
 import Data.HashMap.Strict.InsOrd qualified as InsOrdHashMap
 import Data.Hashable (Hashable)
@@ -23,13 +24,17 @@ import Data.OpenApi qualified as OpenApi
 import Data.Text (Text)
 import Data.Text qualified as Text
 import Data.Text.Encoding qualified as Text
-import Servant.API (ToHttpApiData (..))
+import Servant.API (FromHttpApiData (..), ToHttpApiData (..))
 import Prelude
 
 newtype Config = Config {unConfig :: Object}
   deriving stock (Eq, Show, Ord)
   deriving newtype (Hashable, NFData, ToJSON, FromJSON)
 
+instance FromHttpApiData Config where
+  parseUrlPiece = first Text.pack . eitherDecode . BSL.fromStrict . Text.encodeUtf8
+  parseHeader = first Text.pack . eitherDecode . BSL.fromStrict
+
 instance ToHttpApiData Config where
   toUrlPiece (Config val) = Text.decodeUtf8 . BSL.toStrict $ encode val
   toHeader (Config val) = BSL.toStrict $ encode val

server/src-dc-api/Hasura/Backends/DataConnector/API/V0/Table.hs

@@ -12,7 +12,7 @@ where
 import Autodocodec
 import Autodocodec.OpenAPI ()
 import Control.DeepSeq (NFData)
-import Data.Aeson (FromJSON, ToJSON)
+import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
 import Data.Data (Data)
 import Data.Hashable (Hashable)
 import Data.OpenApi (ToSchema)
@@ -26,6 +26,7 @@ import Prelude
 newtype TableName = TableName {unTableName :: Text}
   deriving stock (Eq, Ord, Show, Generic, Data)
   deriving anyclass (NFData, Hashable)
+  deriving newtype (FromJSONKey, ToJSONKey)
   deriving (FromJSON, ToJSON, ToSchema) via Autodocodec TableName
 
 instance HasCodec TableName where