Perf: short-circuit (+>) in ShortExpression mode (#919)

* Shortcut (+>) when ConfirmedMultiline * clean
fsprojects · Jun 13, 2020 · f502c77 · f502c77
1 parent 2a4e344
commit f502c77
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Fantomas/Context.fs b/src/Fantomas/Context.fs
@@ -304,7 +304,10 @@ let internal atCurrentColumnIndent (f : _ -> Context) (ctx : Context) =
 
 /// Function composition operator
 let internal (+>) (ctx : Context -> Context) (f : _ -> Context) x =
-    f (ctx x)
+    let y = ctx x
+    match y.WriterModel.Mode with
+    | ShortExpression infos when infos |> Seq.exists (fun x -> x.ConfirmedMultiline) -> y
+    | _ -> f y
 
 /// Break-line and append specified string
 let internal (++) (ctx : Context -> Context) (str : string) x =