Merge pull request mhallin#53 from sothebys/bugfix-one-field-query-wi…

…th-bs-record

Bugfix one field query with bs record

src/bucklescript/output_bucklescript_decoder.re

@@ -243,7 +243,11 @@ and generate_record_decoder = (config, loc, name, fields) => {
              Some(Pat.var({loc, txt: "field_" ++ field}))
            | Fr_fragment_spread(_) => None,
          )
-      |> Pat.tuple
+      |> (
+           fun
+           | [field_pattern] => field_pattern
+           | field_patterns => Pat.tuple(field_patterns)
+      )
     );
 
   let field_decoder_tuple =
@@ -279,7 +283,11 @@ and generate_record_decoder = (config, loc, name, fields) => {
              }
            | Fr_fragment_spread(_) => None,
          )
-      |> Exp.tuple
+      |> (
+           fun
+           | [field_decoder] => field_decoder
+           | field_decoders => Exp.tuple(field_decoders)
+      )
     );
 
   let record_fields =

tests_bucklescript/__tests__/record.re

@@ -8,6 +8,8 @@ type dog = {
   barkVolume: float,
 };
 
+type oneFieldQuery = {nullableString: option(string)};
+
 module MyQuery = [%graphql
   {|
   {
@@ -19,6 +21,16 @@ module MyQuery = [%graphql
 |}
 ];
 
+module OneFieldQuery = [%graphql
+  {|
+  {
+    variousScalars @bsRecord {
+      nullableString
+    }
+  }
+|}
+];
+
 module ExternalFragmentQuery = [%graphql
   {|
   fragment Fragment on VariousScalars @bsRecord {
@@ -81,6 +93,18 @@ Jest.(
       == {"variousScalars": expected};
     });
 
+    test("Decodes a record with one field in a selection", () => {
+      let expected = {nullableString: Some("a string")};
+      expect(
+        OneFieldQuery.parse(
+          Js.Json.parseExn(
+            {|{"variousScalars": {"nullableString": "a string"}}|},
+          ),
+        ),
+      )
+      |> toEqual({"variousScalars": expected});
+    });
+
     test("Decodes a record in an external fragment", () => {
       let expected = {string: "a string", int: 123};
       expect(