This commit is contained in:
Simon Cruanes 2024-07-19 14:04:00 -04:00
parent e933995733
commit cb14c0d04b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
4 changed files with 5 additions and 10 deletions

View file

@ -54,7 +54,6 @@ let[@inline] flat_map_l f o =
let[@inline] bind o f = flat_map f o
let ( >>= ) = bind
let pure x = Some x
let k_compose f g x = f x |> flat_map g
let ( >=> ) = k_compose
let ( <=< ) f g = g >=> f
@ -202,9 +201,7 @@ module Infix = struct
| _ -> None
let ( and* ) = ( and+ )
let ( >=> ) = ( >=> )
let ( <=< ) = ( <=< )
end

View file

@ -133,7 +133,6 @@ let flat_map f e =
| Error s -> Error s
let k_compose f g x = f x |> flat_map g
let ( >=> ) = k_compose
let ( <=< ) f g = g >=> f
@ -288,7 +287,6 @@ module Infix = struct
| _, Error e -> Error e
let ( and* ) = ( and+ )
let ( >=> ) = ( >=> )
let ( <=< ) = ( <=< )
end