diff --git a/src/GraphQL/Client/Variables.purs b/src/GraphQL/Client/Variables.purs index 8c707f8..bac1475 100644 --- a/src/GraphQL/Client/Variables.purs +++ b/src/GraphQL/Client/Variables.purs @@ -213,6 +213,7 @@ class VarsTypeChecked schema query where instance varsTypeCheckedWithVars :: ( GetGqlQueryVars schema query { | gqlVars } , HFoldlWithIndex (CombineVarsProp { | gqlVars }) GqlQueryVarsN { | vars } GqlQueryVarsN + , GetVar query {| vars} ) => VarsTypeChecked schema (WithVars query { | vars }) where getVarsJson _ (WithVars encode _ vars) = encode vars diff --git a/test/GraphQL/Client/Variable.Test.purs b/test/GraphQL/Client/Variable.Test.purs index fc669fe..a1697b4 100644 --- a/test/GraphQL/Client/Variable.Test.purs +++ b/test/GraphQL/Client/Variable.Test.purs @@ -34,16 +34,15 @@ spec = , orders: { name: Var :: Var "nameVar" String } =>> - { user_id: Var :: Var "myOtherVar" Int } + { user_id: unit } } getVarsTypeNames testSchemaProxy ( q `withVars` { myVar: 1 , nameVar: "name" - , myOtherVar: 2 } ) `shouldEqual` - "($nameVar: Name!, $myVar: customId!, $myOtherVar: UserId!)" + "($nameVar: Name!, $myVar: customId!)" it "should return vars for a query with vars in arrays in arguments" do let