diff options
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 |