Some adjustments.

krymtkts · Dec 23, 2023 · 6720c3b · 6720c3b
1 parent cf6560a
commit 6720c3b
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 9 deletions.
diff --git a/src/pocof.Test/PocofData.fs b/src/pocof.Test/PocofData.fs
@@ -27,9 +27,7 @@ module ``Action fromString should returns`` =
               String.lower a.Name
               String.upper a.Name ]
             |> List.map Action.fromString
-            |> List.iter (fun s ->
-                s
-                |> shouldEqual (Ok(FSharpValue.MakeUnion(a, [||]) :?> Action))))
+            |> List.iter (shouldEqual (Ok(FSharpValue.MakeUnion(a, [||]) :?> Action))))
 
 let ``Error Unknown.``<'a> (fromString: string -> 'a) =
     shouldFail (fun () -> fromString "Unknown" |> ignore)
@@ -41,9 +39,7 @@ let ``known matchers.``<'a> (fromString: string -> 'a) =
           String.lower a.Name
           String.upper a.Name ]
         |> List.map fromString
-        |> List.iter (fun s ->
-            s
-            |> shouldEqual (FSharpValue.MakeUnion(a, [||]) :?> 'a)))
+        |> List.iter (shouldEqual (FSharpValue.MakeUnion(a, [||]) :?> 'a)))
 
 module ``Matcher fromString should returns`` =
     [<Fact>]

diff --git a/src/pocof.Test/PocofQuery.fs b/src/pocof.Test/PocofQuery.fs
@@ -224,7 +224,7 @@ module run =
         let props = Map []
 
         open System.Collections
-        let mapToDict = List.map (PocofData.Dict)
+        let mapToDict = List.map PocofData.Dict
 
         let entries =
             mapToDict [ DictionaryEntry("John", "Doe")

diff --git a/src/pocof/Data.fs b/src/pocof/Data.fs
@@ -65,8 +65,7 @@ module PocofData =
 
     let unwrap (entries: Entry list) =
         entries
-        |> List.map (fun o ->
-            match o with
+        |> List.map (function
             | Dict (dct) -> dct :> obj
             | Obj (o) -> o)