mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
format
This commit is contained in:
parent
e933995733
commit
cb14c0d04b
4 changed files with 5 additions and 10 deletions
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue