Print in keyword after correct SynBinding. Fixes fsprojects#1143. (fs…

…projects#1180)

src/Fantomas.Tests/LetBindingTests.fs

@@ -1061,3 +1061,18 @@ let internal sepSpace =
         else
             (!- " ") ctx
 """
+
+[<Test>]
+let ``in keyword in LetOrUse with and keyword, 1176`` () =
+    formatSourceString false """
+do
+    let rec f = ()
+    and g = () in
+    ()
+"""  config
+    |> prepend newline
+    |> should equal """
+do let rec f = ()
+   and g = () in
+   ()
+"""

src/Fantomas/CodePrinter.fs

@@ -2000,7 +2000,7 @@ and genExpr astContext synExpr =
                 mkRange "IN" binding.RangeOfBindingAndRhs.End e.Range.Start
 
             Map.tryFindOrEmptyList IN ctx.TriviaTokenNodes
-            |> TriviaHelpers.``keyword token inside range`` inRange
+            |> TriviaHelpers.``keyword token after start column and on same line`` inRange
             |> List.tryHead
 
         let isInSameLine ctx =

src/Fantomas/TriviaHelpers.fs

@@ -39,6 +39,14 @@ module internal TriviaHelpers =
             | TriviaNodeType.Token (_, tok) when (RangeHelpers.``range contains`` range t.Range) -> Some(tok, t)
             | _ -> None)
 
+    let ``keyword token after start column and on same line`` (range: range) (trivia: TriviaNode list) =
+        trivia
+        |> List.choose (fun t ->
+            match t.Type with
+            | TriviaNodeType.Token (_, tok) when (range.StartLine = t.Range.StartLine
+                                                  && range.StartColumn < t.Range.StartColumn) -> Some(tok, t)
+            | _ -> None)
+
     let ``has line comment after`` triviaNode =
         triviaNode.ContentAfter
         |> List.filter (fun tn ->