diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:52:01 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:52:01 -0300 |
| commit | 8cddc12efdff4fe1742039df493ab5e425a685c4 (patch) | |
| tree | ed06a2c30307a7f6c16d37622c343b29dc5928e0 /lib/evaluators/FOL.ml | |
| parent | a3acc318ead5620ac20f70815b4dfb0810ccd2a4 (diff) | |
| download | RNT-8cddc12efdff4fe1742039df493ab5e425a685c4.tar.gz RNT-8cddc12efdff4fe1742039df493ab5e425a685c4.zip | |
result fold left
Diffstat (limited to '')
| -rw-r--r-- | lib/evaluators/FOL.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/evaluators/FOL.ml b/lib/evaluators/FOL.ml index d5c6851..92b1c38 100644 --- a/lib/evaluators/FOL.ml +++ b/lib/evaluators/FOL.ml @@ -92,15 +92,14 @@ let instantiate within = let restrict attributes description = let open Utilities.Result in - BatFingerTree.fold_left + Utilities.FingerTree.fold_left (fun restricted name -> - let* restricted = restricted in let* attribute = BatMap.String.find_opt name description |> Option.to_result ~none:(Error.unknown_attribute name) in Ok (BatMap.String.add name attribute restricted) ) - (Ok BatMap.String.empty) attributes + BatMap.String.empty attributes let rec describe = let open Utilities.Result in |