Update Fantomas and format code

Author: TimLariviere

.config/dotnet-tools.json

@@ -3,7 +3,7 @@
   "isRoot": true,
   "tools": {
     "fantomas": {
-      "version": "5.2.0",
+      "version": "6.2.3",
       "commands": [
         "fantomas"
       ]

src/Fabulous.Tests/CmdTests.fs

@@ -9,25 +9,26 @@ module CmdTestsHelper =
     let execute dispatch (cmd: Cmd<'msg>) =
         for sub in cmd do
             sub dispatch
-    
+
 [<TestFixture>]
 type ``Cmd tests``() =
     [<Test>]
     member _.``Cmd.debounce only dispatch the last message``() =
         async {
             let mutable actualValue = None
+
             let dispatch msg =
                 if actualValue.IsNone then
                     actualValue <- Some msg
-            
+
             let triggerCmd = Cmd.debounce 100 NewValue
-            
+
             triggerCmd 1 |> CmdTestsHelper.execute dispatch
             do! Async.Sleep 50
             triggerCmd 2 |> CmdTestsHelper.execute dispatch
             do! Async.Sleep 75
             triggerCmd 3 |> CmdTestsHelper.execute dispatch
             do! Async.Sleep 125
-            
+
             Assert.AreEqual(Some(NewValue 3), actualValue)
-        }
+        }

src/Fabulous/Builders.fs

@@ -38,9 +38,9 @@ type WidgetBuilder<'msg, 'marker> =
               DebugName = $"{typeof<'marker>.Name}<{typeof<'msg>.Name}>"
 #endif
               ScalarAttributes =
-                  match StackList.length &scalarAttributes with
-                  | 0us -> ValueNone
-                  | _ -> ValueSome(Array.sortInPlace (fun a -> a.Key) (StackList.toArray &scalarAttributes))
+                match StackList.length &scalarAttributes with
+                | 0us -> ValueNone
+                | _ -> ValueSome(Array.sortInPlace (fun a -> a.Key) (StackList.toArray &scalarAttributes))
 
               WidgetAttributes = ValueOption.map (Array.sortInPlace(fun a -> a.Key)) widgetAttributes
 

src/Fabulous/Cmd.fs

@@ -105,24 +105,23 @@ module Cmd =
                       dispatch(failure ex)
               }
               |> ignore ]
-    
+
     /// Command to issue a message if no other message has been issued within the specified timeout
-    let debounce (timeout: int) (fn: 'value -> 'msg): 'value -> Cmd<'msg> =
+    let debounce (timeout: int) (fn: 'value -> 'msg) : 'value -> Cmd<'msg> =
         let mutable cts: CancellationTokenSource = null
-        
+
         fun (value: 'value) ->
             [ fun dispatch ->
-                if cts <> null then
-                    cts.Cancel()
-                    cts.Dispose()
-                
-                cts <- new CancellationTokenSource()
-                
-                Async.Start(
-                    async {
-                        do! Async.Sleep(timeout)
-                        dispatch (fn value)
-                    },
-                    cts.Token
-                )
-            ]
+                  if cts <> null then
+                      cts.Cancel()
+                      cts.Dispose()
+
+                  cts <- new CancellationTokenSource()
+
+                  Async.Start(
+                      async {
+                          do! Async.Sleep(timeout)
+                          dispatch(fn value)
+                      },
+                      cts.Token
+                  ) ]