diff --git a/src/pocof.Test/PocofData.fs b/src/pocof.Test/PocofData.fs
index 0c58d6c8..ea10b979 100644
--- 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
index a22733b1..80eb1504 100644
--- 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
index 1b6a2f31..c606020c 100644
--- 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)