Fix #39

fsprojects · Jul 3, 2013 · b7cf96b · b7cf96b
1 parent 9d3d0f8
commit b7cf96b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/OperatorTests.fs b/src/Fantomas.Tests/OperatorTests.fs
@@ -115,3 +115,9 @@ let ``should keep space between ( and * in *= operator definition``() =
     formatSourceString false """let inline ( *=) l v = update (( *) v) l
     """ config
     |> should equal """let inline ( *= ) l v = update ((*) v) l"""
+
+[<Test>]
+let ``should not add space around ? operator``() =
+    formatSourceString false """let x = y?z.d?c.[2]?d.xpto()""" config
+    |> should equal """let x = y?z.d?c.[2]?d.xpto()"""
+
diff --git a/src/Fantomas/FormatConfig.fs b/src/Fantomas/FormatConfig.fs
@@ -306,7 +306,7 @@ let internal unindentOnWith(ctx : Context) =
     if ctx.Config.IndentOnTryWith then unindent ctx else ctx
 
 /// Don't put space before and after these operators
-let internal NoSpaceInfixOps = set [".."]
+let internal NoSpaceInfixOps = set [".."; "?"]
 
 /// Always break into newlines on these operators
 let internal NewLineInfixOps = set ["|>"; "||>"; "|||>"; ">>"]