formatting

Author: TheAngryByrd

src/FsToolkit.ErrorHandling.JobResult/JobOptionCE.fs

@@ -88,7 +88,8 @@ module JobOptionCE =
             let mutable doContinue = true
             let mutable result = Some()
 
-            while doContinue && guard () do
+            while doContinue
+                  && guard () do
                 match! computation with
                 | Some () -> ()
                 | None ->

src/FsToolkit.ErrorHandling.JobResult/JobResultCE.fs

@@ -80,20 +80,26 @@ module JobResultCE =
             ) : Job<Result<'U, 'TError>> =
             job.Using(resource, binder)
 
-        member this.While(guard: unit -> bool, computation: Job<Result<unit, 'TError>>) : Job<Result<unit, 'TError>> = job {
-            let mutable doContinue = true
-            let mutable result = Ok()
+        member this.While
+            (
+                guard: unit -> bool,
+                computation: Job<Result<unit, 'TError>>
+            ) : Job<Result<unit, 'TError>> =
+            job {
+                let mutable doContinue = true
+                let mutable result = Ok()
 
-            while doContinue && guard () do
-                match! computation with
-                | Ok () -> ()
-                | Error e ->
-                    doContinue <- false
-                    result <- Error e
+                while doContinue
+                      && guard () do
+                    match! computation with
+                    | Ok () -> ()
+                    | Error e ->
+                        doContinue <- false
+                        result <- Error e
 
-            return result
+                return result
 
-        }
+            }
 
         member inline this.For
             (

src/FsToolkit.ErrorHandling/OptionCE.fs

@@ -77,7 +77,8 @@ module OptionCE =
             let mutable doContinue = true
             let mutable result = Some()
 
-            while doContinue && guard () do
+            while doContinue
+                  && guard () do
                 match generator () with
                 | Some () -> ()
                 | None ->

src/FsToolkit.ErrorHandling/ResultCE.fs

@@ -78,7 +78,8 @@ module ResultCE =
             let mutable doContinue = true
             let mutable result = Ok()
 
-            while doContinue && guard () do
+            while doContinue
+                  && guard () do
                 match generator () with
                 | Ok () -> ()
                 | Error e ->
@@ -94,7 +95,11 @@ module ResultCE =
             ) : Result<unit, 'TError> =
             this.Using(
                 sequence.GetEnumerator(),
-                fun enum -> this.While((fun () -> enum.MoveNext()), this.Delay(fun () -> binder enum.Current))
+                fun enum ->
+                    this.While(
+                        (fun () -> enum.MoveNext()),
+                        this.Delay(fun () -> binder enum.Current)
+                    )
             )
 
         member inline _.BindReturn

src/FsToolkit.ErrorHandling/ValidationCE.fs

@@ -77,7 +77,8 @@ module ValidationCE =
             let mutable doContinue = true
             let mutable result = Ok()
 
-            while doContinue && guard () do
+            while doContinue
+                  && guard () do
                 match generator () with
                 | Ok () -> ()
                 | Error e ->

src/FsToolkit.ErrorHandling/ValueOptionCE.fs

@@ -76,7 +76,8 @@ module ValueOptionCE =
             let mutable doContinue = true
             let mutable result = ValueSome()
 
-            while doContinue && guard () do
+            while doContinue
+                  && guard () do
                 match generator () with
                 | ValueSome () -> ()
                 | ValueNone ->

tests/FsToolkit.ErrorHandling.JobResult.Tests/JobOptionCE.fs

@@ -227,7 +227,10 @@ let ceTests =
             Expect.equal actual (Some data) "Should be ok"
         }
         yield! [
-            let maxIndices = [ 10; 1000000 ]
+            let maxIndices = [
+                10
+                1000000
+            ]
 
             for maxIndex in maxIndices do
                 testCaseJob
@@ -272,7 +275,10 @@ let ceTests =
             let! actual = jobOption {
                 while loopCount < data.Length do
                     let! x = data.[loopCount]
-                    loopCount <- loopCount + 1
+
+                    loopCount <-
+                        loopCount
+                        + 1
 
                 return sideEffect ()
             }

tests/FsToolkit.ErrorHandling.JobResult.Tests/JobResultCE.fs

@@ -290,7 +290,10 @@ let ``JobResultCE using Tests`` =
 let ``JobResultCE loop Tests`` =
     testList "JobResultCE loop Tests" [
         yield! [
-            let maxIndices = [ 10; 1000000 ]
+            let maxIndices = [
+                10
+                1000000
+            ]
 
             for maxIndex in maxIndices do
                 testCaseJob
@@ -335,7 +338,10 @@ let ``JobResultCE loop Tests`` =
             let! actual = jobResult {
                 while loopCount < data.Length do
                     let! x = data.[loopCount]
-                    loopCount <- loopCount + 1
+
+                    loopCount <-
+                        loopCount
+                        + 1
 
                 return sideEffect ()
             }

tests/FsToolkit.ErrorHandling.TaskResult.Tests/BackgroundTaskResultCE.fs

@@ -349,7 +349,10 @@ let ``BackgroundTaskResultCE using Tests`` =
 let ``BackgroundTaskResultCE loop Tests`` =
     testList "BackgroundTaskResultCE loop Tests" [
         yield! [
-            let maxIndices = [ 10; 1000000 ]
+            let maxIndices = [
+                10
+                1000000
+            ]
 
             for maxIndex in maxIndices do
                 testCaseTask

tests/FsToolkit.ErrorHandling.TaskResult.Tests/TaskOptionCE.fs

@@ -282,7 +282,10 @@ let ceTests =
             Expect.equal actual (Some data) "Should be ok"
            }
         yield! [
-            let maxIndices = [ 10; 1000000 ]
+            let maxIndices = [
+                10
+                1000000
+            ]
 
             for maxIndex in maxIndices do
                 testCaseTask
@@ -321,7 +324,12 @@ let ceTests =
                 return index
             }
 
-            Expect.equal index (items.Length - 1) "Index should reach maxIndex"
+            Expect.equal
+                index
+                (items.Length
+                 - 1)
+                "Index should reach maxIndex"
+
             Expect.equal actual (None) "Should be NOPE"
            }
         testCaseTask "while fail"