Nit: remove Fn.compose Fn.id

MinaProtocol · Dec 1, 2023 · d05242c · d05242c
1 parent 3dba63a
commit d05242c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/lib/mina_base/ledger_hash.ml b/src/lib/mina_base/ledger_hash.ml
@@ -45,7 +45,7 @@ let empty_hash = of_hash Outside_hash_image.t
 let%bench "Ledger_hash.merge ~height:1 empty_hash empty_hash" =
   merge ~height:1 empty_hash empty_hash
 
-let of_digest = Fn.compose Fn.id of_hash
+let of_digest = of_hash
 
 type path = Random_oracle.Digest.t list
 

diff --git a/src/lib/mina_base/pending_coinbase.ml b/src/lib/mina_base/pending_coinbase.ml
@@ -396,7 +396,7 @@ module Make_str (A : Wire_types.Concrete) = struct
     let empty_hash =
       Random_oracle.(digest (salt "PendingCoinbaseMerkleTree")) |> of_hash
 
-    let of_digest = Fn.compose Fn.id of_hash
+    let of_digest = of_hash
   end
 
   module Update = struct