From b7613ed9445fa6108aabfe1b39b9cbca8659c9ab Mon Sep 17 00:00:00 2001 From: Kent Boogaart Date: Sat, 24 Jul 2021 17:45:40 +1000 Subject: [PATCH] Further fixes --- src/Fantomas.Tests/UtilsTests.fs | 8 ++++---- src/Fantomas/Utils.fs | 1 - 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/src/Fantomas.Tests/UtilsTests.fs b/src/Fantomas.Tests/UtilsTests.fs index 661fefbe35..2e35cf5125 100644 --- a/src/Fantomas.Tests/UtilsTests.fs +++ b/src/Fantomas.Tests/UtilsTests.fs @@ -117,7 +117,7 @@ SetupTesting.generateSetupScript __SOURCE_DIRECTORY__ module List = [] - let ``When input is empty`` () = + let ``when input is empty`` () = let property (p: bool) : bool = let before, after = List.partitionWhile (fun _ _ -> p) [] before = [] && after = [] @@ -126,7 +126,7 @@ module List = Check.QuickThrowOnFailure(property false) [] - let ``When predicate always returns false`` () = + let ``when predicate always returns false`` () = let property (xs: int list) : bool = let before, after = List.partitionWhile (fun _ _ -> false) xs @@ -136,7 +136,7 @@ module List = Check.QuickThrowOnFailure property [] - let ``When predicate always returns true`` () = + let ``when predicate always returns true`` () = let property (xs: int list) : bool = let before, after = List.partitionWhile (fun _ _ -> true) xs @@ -146,7 +146,7 @@ module List = Check.QuickThrowOnFailure property [] - let ``When predicate returns true until certain index`` () = + let ``when predicate returns true until certain index`` () = let property (xs: int list, i: int) : bool = let before, after = List.partitionWhile (fun index _ -> i <> index) xs diff --git a/src/Fantomas/Utils.fs b/src/Fantomas/Utils.fs index b792ef1ff7..a4f17b3a51 100644 --- a/src/Fantomas/Utils.fs +++ b/src/Fantomas/Utils.fs @@ -163,7 +163,6 @@ module List = go 0 [] xs - module Map = let tryFindOrDefault (defaultValue: 'g) (key: 't) (map: Map<'t, 'g>) = match Map.tryFind key map with