Add more helpers to Fantomas library (#7)

WoofWare.Whippet.Fantomas/SynBinding.fs

@@ -43,6 +43,30 @@ module SynBinding =
                     SynLeadingKeyword.Let range0
         }
 
+    /// A simple binding:
+    /// `let {a, b} = {body}`
+    let basicTuple (args : SynPat list) (body : SynExpr) : SynBinding =
+        let valInfo : SynValInfo =
+            args
+            |> List.map getArgInfo
+            |> fun x -> SynValInfo.SynValInfo (x, SynArgInfo.SynArgInfo ([], false, None))
+
+        SynBinding.SynBinding (
+            None,
+            SynBindingKind.Normal,
+            false,
+            false,
+            [],
+            PreXmlDoc.Empty,
+            SynValData.SynValData (None, valInfo, None),
+            SynPat.tupleNoParen args,
+            None,
+            body,
+            range0,
+            DebugPointAtBinding.Yes range0,
+            triviaZero false
+        )
+
     /// A simple binding:
     /// `let {name} {args} = {body}`
     ///