list of plans

Author: tirumaraiselvan

server/src-lib/Hasura/GraphQL/Execute.hs

@@ -1,5 +1,6 @@
 module Hasura.GraphQL.Execute
   ( GQExecPlan(..)
+  , GQFieldExecPlan(..)
 
   , ExecPlanPartial
   , getExecPlanPartial
@@ -60,12 +61,13 @@ import qualified Hasura.Logging                         as L
 --
 -- The 'a' is parameterised so this AST can represent
 -- intermediate passes
-data GQExecPlan a
+data GQFieldExecPlan a
   = GExPHasura !a
-  | GExPRemote !RemoteSchemaInfo !VQ.RootSelSet
-  | GExPMixed (Seq.Seq (Either (RemoteSchemaInfo, VQ.RootSelSet) a))
+  | GExPRemote !RemoteSchemaInfo !VQ.Field
   deriving (Functor, Foldable, Traversable)
 
+type GQExecPlan a = [GQFieldExecPlan a]
+
 -- | Execution context
 data ExecutionCtx
   = ExecutionCtx
@@ -80,7 +82,7 @@ data ExecutionCtx
   }
 
 -- This is for when the graphql query is validated
-type ExecPlanPartial = GQExecPlan (GCtx, VQ.RootSelSet)
+type ExecPlanPartial = [GQFieldExecPlan (GCtx, VQ.Field)]
 
 getExecPlanPartial
   :: (MonadError QErr m)

server/src-lib/Hasura/GraphQL/Transport/HTTP.hs

@@ -26,14 +26,13 @@ runGQ
   -> m (HttpResponse EncJSON)
 runGQ reqId userInfo reqHdrs req = do
   E.ExecutionCtx _ sqlGenCtx pgExecCtx planCache sc scVer _ enableAL <- ask
-  execPlan <- E.getResolvedExecPlan pgExecCtx planCache
+  fieldPlans <- E.getResolvedExecPlan pgExecCtx planCache
               userInfo sqlGenCtx enableAL sc scVer req
-  case execPlan of
+  forM fieldPlans (\execPlan ->  case execPlan of
     E.GExPHasura resolvedOp ->
       flip HttpResponse Nothing <$> runHasuraGQ reqId req userInfo resolvedOp
     E.GExPRemote rsi rootSelSet ->
-      E.execRemoteGQ reqId userInfo reqHdrs req rsi undefined
-    E.GExPMixed fieldPlans -> undefined
+      E.execRemoteGQ reqId userInfo reqHdrs req rsi undefined)
 
 runHasuraGQ
   :: ( MonadIO m