From 0f5161930584eaf91fd195b891ce7d9130c7b7f1 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 01:30:08 +0000 Subject: Forsake `fmap` --- lib/Utilities.ml | 2 -- 1 file changed, 2 deletions(-) (limited to 'lib/Utilities.ml') 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 -- cgit v1.2.3