From ac44c5ce169ae077141b161b84ac52a82593824c Mon Sep 17 00:00:00 2001 From: georgeee Date: Thu, 30 Nov 2023 11:33:29 +0100 Subject: [PATCH] Nit: remove Fn.compose Fn.id --- src/lib/mina_base/ledger_hash.ml | 2 +- src/lib/mina_base/pending_coinbase.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib/mina_base/ledger_hash.ml b/src/lib/mina_base/ledger_hash.ml index 3862ae47cf39..0ae6909ab4de 100644 --- 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 index dc8639181ba2..44996128dbef 100644 --- 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