diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-07-11 00:51:11 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-07-11 00:51:11 -0300 |
| commit | bb3156b8ab78b035ce886bbe3021ec7cbe269d03 (patch) | |
| tree | 82dd52655d25e49519a035f1245c703e910a2152 /lib/Utilities.ml | |
| parent | 85bff2fc22a131cce5ec2b4eb4b3dd8269c247cd (diff) | |
| download | RNT-bb3156b8ab78b035ce886bbe3021ec7cbe269d03.tar.gz RNT-bb3156b8ab78b035ce886bbe3021ec7cbe269d03.zip | |
FOL: First Order Logic Execution Engine
Co-authored-by: Estevan Castilho <tevo@riajuu.net>
Diffstat (limited to '')
| -rw-r--r-- | lib/Utilities.ml | 4 | ||||
| -rw-r--r-- | lib/Utilities.mli | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml new file mode 100644 index 0000000..bd604c9 --- /dev/null +++ b/lib/Utilities.ml @@ -0,0 +1,4 @@ +module Result = struct + let ( let* ) = Result.bind + let fmap f m = Result.bind m f +end diff --git a/lib/Utilities.mli b/lib/Utilities.mli new file mode 100644 index 0000000..c9852f0 --- /dev/null +++ b/lib/Utilities.mli @@ -0,0 +1,4 @@ +module Result : sig + val ( let* ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result + val fmap : ('a -> ('b, 'e) result) -> ('a, 'e) result -> ('b, 'e) result +end |