diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Utilities.ml | 2 | ||||
| -rw-r--r-- | lib/Utilities.mli | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml index 1e25176..8f278a3 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -6,14 +6,12 @@ end module Option = struct let ( let* ) = Option.bind - let fmap f m = Option.bind m f let ( |>> ) = Option.bind let sequence = function None -> Ok None | Some x -> Result.map Option.some x end module Result = struct let ( let* ) = Result.bind - let fmap f m = Result.bind m f let ( |>> ) = Result.bind end diff --git a/lib/Utilities.mli b/lib/Utilities.mli index 7af9f03..204fec3 100644 --- a/lib/Utilities.mli +++ b/lib/Utilities.mli @@ -7,7 +7,6 @@ end module Result : sig val ( let* ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result val ( |>> ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result - val fmap : ('a -> ('b, 'e) result) -> ('a, 'e) result -> ('b, 'e) result end module List : sig @@ -20,7 +19,6 @@ end module Option : sig val ( let* ) : 'a option -> ('a -> 'b option) -> 'b option val ( |>> ) : 'a option -> ('a -> 'b option) -> 'b option - val fmap : ('a -> 'b option) -> 'a option -> 'b option val sequence : ('a, 'b) result option -> ('a option, 'b) result end |