From b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 01:50:35 +0000 Subject: Formatting --- lib/kernel/Path.ml | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'lib/kernel/Path.ml') diff --git a/lib/kernel/Path.ml b/lib/kernel/Path.ml index 24d3d10..4dfba36 100644 --- a/lib/kernel/Path.ml +++ b/lib/kernel/Path.ml @@ -49,11 +49,7 @@ let walking ?missing f g handle path = let lookup handle path = walking (fun _ _ f -> f ()) Result.ok handle path let find handle path = - walking - ~missing:(fun () -> Ok None) - (fun _ _ f -> f ()) - (fun h -> Ok (Some h)) - handle path + walking ~missing:(fun () -> Ok None) (fun _ _ f -> f ()) (fun h -> Ok (Some h)) handle path let update handle path key reference value = let open Utilities.Result in -- cgit v1.2.3