Update style of SynExpr.TryWith with a single clause (#2260)

* Bump Fantomas

* Update style of SynExpr.TryWith with a single clause. Fixes #1881.

.config/dotnet-tools.json

@@ -21,7 +21,7 @@
       ]
     },
     "fantomas": {
-      "version": "5.0.0-alpha-006",
+      "version": "5.0.0-alpha-007",
       "commands": [
         "fantomas"
       ]

CHANGELOG.md

@@ -8,6 +8,7 @@
 
 ### Changed
 * Formatting of multi-constrained SRTP functions needs improvement. [#2230](https://github.com/fsprojects/fantomas/issues/2230)
+* Try/With with a single clause. [#1881](https://github.com/fsprojects/fantomas/issues/1881)
 
 ## [5.0.0-alpha-007] - 2022-05-16
 

src/Fantomas.Core.Tests/BlankLinesAroundNestedMultilineExpressions.fs

@@ -81,8 +81,8 @@ let topLevelFunction () =
     printfn "Something to print"
     try
         nothing ()
-    with
-    | ex -> splash ()
+    with ex ->
+        splash ()
     ()
 """
 

src/Fantomas.Core.Tests/ColMultilineItemTests.fs

@@ -135,8 +135,8 @@ let b (x: int) (y: int) : int =
 let c () =
     try
         0
-    with
-    | ex -> 1
+    with ex ->
+        1
 """
 
 [<Test>]

src/Fantomas.Core.Tests/CommentTests.fs

@@ -1724,10 +1724,10 @@ try
     try
         ()
     // xxx
-    with
-    | _ -> ()
-with
-| _ -> ()
+    with _ ->
+        ()
+with _ ->
+    ()
 """
 
 [<Test>]
@@ -1754,7 +1754,8 @@ try
 with
 
 
-| b -> c
+| b ->
+    c
 """
 
 [<Test>]
@@ -1778,13 +1779,12 @@ with
         """
 try
     a
-with
-| b ->
+with b ->
     try
         c
     // inner comment
-    with
-    | d -> ()
+    with d ->
+        ()
 """
 
 [<Test>]

src/Fantomas.Core.Tests/CompilerDirectivesTests.fs

@@ -511,8 +511,7 @@ let start (args: IArgs) =
                 .Run()
 
             0
-        with
-        | ex ->
+        with ex ->
             Log.Fatal(ex, "Host terminated unexpectedly")
             1
     finally
@@ -1317,8 +1316,8 @@ try
 #if DEF
     ()
 #endif
-with
-| _ -> ()
+with _ ->
+    ()
 """
 
 [<Test>]
@@ -2350,8 +2349,7 @@ module ReactHookExtensions =
                         do setDeferred (Deferred<'T>.InProgress)
                         let! output = operation
                         do setDeferred (Deferred<'T>.Resolved output)
-                    with
-                    | error ->
+                    with error ->
 #if DEBUG
                         Browser.Dom.console.log (error)
 #endif
@@ -2742,10 +2740,10 @@ try
 #if FOO
         ()
 #endif
-    with
-    | _ -> ()
-with
-| _ -> ()
+    with _ ->
+        ()
+with _ ->
+    ()
 """
 
 [<Test>]

src/Fantomas.Core.Tests/ComputationExpressionTests.fs

@@ -1759,8 +1759,7 @@ let sendPushNotifications =
                     let ps = PushSubscription(s.Endpoint, s.P256DH, s.Auth)
 
                     do! webPushClient.SendNotificationAsync(ps, payload, vapidDetails)
-                with
-                | :? WebPushException as wpex ->
+                with :? WebPushException as wpex ->
                     log.LogError(sprintf "Couldn't send notification to %s, %A" user.UserId wpex)
 
                     do!

src/Fantomas.Core.Tests/ControlStructureTests.fs

@@ -135,8 +135,7 @@ let result1 = divide1 100 0
 let divide1 x y =
     try
         Some(x / y)
-    with
-    | :? System.DivideByZeroException ->
+    with :? System.DivideByZeroException ->
         printfn "Division by zero!"
         None
 
@@ -279,8 +278,8 @@ let x =
     if
         try
             true
-        with
-        | Failure _ -> false
+        with Failure _ ->
+            false
     then
         ()
     else
@@ -819,7 +818,8 @@ try
     foo.CreationTime <> defaultTime
 with
 // hmm
-| :? FileNotFoundException -> false
+| :? FileNotFoundException ->
+    false
 """
 
 [<Test>]
@@ -847,7 +847,8 @@ try
     foo.CreationTime <> defaultTime
 with
 // hmm
-| :? FileNotFoundException -> false
+| :? FileNotFoundException ->
+    false
 """
 
 [<Test>]
@@ -881,7 +882,8 @@ module Foo =
             failwith ""
         with
         // hi!
-        | :? Exception as e -> failwith ""
+        | :? Exception as e ->
+            failwith ""
 """
 
 [<Test>]
@@ -914,7 +916,8 @@ module Foo =
             failwith ""
         with
         // hi!
-        | :? Exception as e -> failwith ""
+        | :? Exception as e ->
+            failwith ""
 """
 
 [<Test>]
@@ -980,7 +983,8 @@ module Foo =
                                 foo.CreationTime <> defaultTime
                             with
                             // hmm
-                            | :? FileNotFoundException -> false
+                            | :? FileNotFoundException ->
+                                false
 
                         exists
 
@@ -989,7 +993,7 @@ module Foo =
 """
 
 [<Test>]
-let ``short catch clause in try/with should have pipe, 1571`` () =
+let ``short catch clause in try/with should not have pipe, 1571`` () =
     formatSourceString
         false
         """
@@ -1006,8 +1010,8 @@ with
         """
 try
     ()
-with
-| exc -> ()
+with exc ->
+    ()
 """
 
 [<Test>]
@@ -1035,8 +1039,43 @@ let isAbstractNonVirtualMember (m: FSharpMemberOrFunctionOrValue) =
     && (try
             m.ImplementedAbstractSignatures <> null
             && m.ImplementedAbstractSignatures.Count = 0
-        with
-        | _ -> true) // exceptions here trying to acces the member means we're safe
+        with _ ->
+            true) // exceptions here trying to acces the member means we're safe
     // this member is not an override
     && not m.IsOverrideOrExplicitInterfaceImplementation
 """
+
+[<Test>]
+let ``try/with with a single clause, 1881`` () =
+    formatSourceString
+        false
+        """
+// OK
+try
+    persistState currentState
+with ex ->
+    printfn "Something went wrong: %A" ex
+
+// OK
+try
+    persistState currentState
+with :? System.ApplicationException as ex ->
+    printfn "Something went wrong: %A" ex
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+// OK
+try
+    persistState currentState
+with ex ->
+    printfn "Something went wrong: %A" ex
+
+// OK
+try
+    persistState currentState
+with :? System.ApplicationException as ex ->
+    printfn "Something went wrong: %A" ex
+"""

src/Fantomas.Core.Tests/DotGetTests.fs

@@ -992,8 +992,8 @@ type Foobar =
                        .GetSystemAssemblies()
                        .Contains(fileNameWithoutExtension filename))
                 || tcConfig.FxResolver.IsInReferenceAssemblyPackDirectory filename)
-        with
-        | _ -> false
+        with _ ->
+            false
 """
 
 [<Test>]

src/Fantomas.Core.Tests/IfThenElseTests.fs

@@ -1480,8 +1480,8 @@ let main argv =
                     new StreamWriter(outFile)
 
             buffer.Flush()
-        with
-        | exn -> eprintfn "The following exception occurred while formatting %s: %O" inFile exn
+        with exn ->
+            eprintfn "The following exception occurred while formatting %s: %O" inFile exn
 
     0
 """

src/Fantomas.Core.Tests/InterpolatedStringTests.fs

@@ -327,8 +327,8 @@ $"
                          let b = y
                          let c = 9
                          foo ()
-                     with
-                     | ex -> interpolationFailed ()}
+                     with ex ->
+                         interpolationFailed ()}
 "
 """
 

src/Fantomas.Core.Tests/KeepIndentInBranchTests.fs

@@ -732,10 +732,10 @@ type Foo() =
             try
                 try
                     cleanUp ()
-                with
-                | :? IOException -> foo ()
-            with
-            | exc -> foooo ()
+                with :? IOException ->
+                    foo ()
+            with exc ->
+                foooo ()
 """
 
 [<Test>]

src/Fantomas.Core.Tests/LetBindingTests.fs

@@ -894,8 +894,7 @@ let private authenticateRequest (logger: ILogger) header =
                 logger.LogError(sprintf "User has a valid token but lacks the correct permission")
                 return None
         }
-    with
-    | exn ->
+    with exn ->
         logger.LogError(sprintf "Could not authenticate token %s\n%A" token exn)
         task { return None }
 """

src/Fantomas.Core.Tests/MultilineFunctionApplicationsInConditionExpressionsTests.fs

@@ -95,11 +95,10 @@ module ElectrumClient =
                     stratumClient.ServerVersion
                         CLIENT_NAME_SENT_TO_STRATUM_SERVER_WHEN_HELLO
                         PROTOCOL_VERSION_SUPPORTED
-                with
-                | :? ElectrumServerReturningErrorException as except when
-                    except.Message.EndsWith
-                        (PROTOCOL_VERSION_SUPPORTED.ToString())
-                    ->
+                with :? ElectrumServerReturningErrorException as except when
+                    except.Message.EndsWith(
+                        PROTOCOL_VERSION_SUPPORTED.ToString()
+                    ) ->
 
                     failwith "xxx"
 

src/Fantomas.Core.Tests/OperatorTests.fs

@@ -234,8 +234,8 @@ try
     item.MethodInfo.Method.Invoke(null, ipa)
     |> (fun x -> x?Invoke (true))
     |> fun (t: Task) -> t.Wait()
-with
-| _ -> ()
+with _ ->
+    ()
 """
 
 [<Test>]

src/Fantomas.Core.Tests/PatternMatchingTests.fs

@@ -244,8 +244,8 @@ try
                 s' = s0 && can (type_match ty ty0) [])
             (!the_interface)
     )
-with
-| Failure _ -> s0
+with Failure _ ->
+    s0
 """
 
 [<Test>]
@@ -1263,8 +1263,8 @@ let private formatResponse<'options> () =
 
                 return sendBadRequest content
 
-            with
-            | exn -> return sendBadRequest (sprintf "%A" exn)
+            with exn ->
+                return sendBadRequest (sprintf "%A" exn)
         | Error err -> return sendInternalError (err)
     }
 """
@@ -1851,8 +1851,8 @@ match x with
  | _ ->
      try
          somethingElse ()
-     with
-     | e -> printfn "failure %A" e)
+     with e ->
+         printfn "failure %A" e)
 --*-- bar
 """