diff options
Diffstat (limited to 'lib/kernel/Path.ml')
| -rw-r--r-- | lib/kernel/Path.ml | 6 |
1 files changed, 1 insertions, 5 deletions
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 |