diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 01:30:08 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 01:30:08 +0000 |
| commit | 0f5161930584eaf91fd195b891ce7d9130c7b7f1 (patch) | |
| tree | a505f4b7bfe8dc0b0efa06c42b75502aeb2f247a /lib/Utilities.ml | |
| parent | 0b1c7ca41a6d8ce41b9783153b567c16250913ff (diff) | |
| download | RNT-0f5161930584eaf91fd195b891ce7d9130c7b7f1.tar.gz RNT-0f5161930584eaf91fd195b891ce7d9130c7b7f1.zip | |
Forsake `fmap`
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 |