reindent code

This commit is contained in:
Simon Cruanes 2018-02-01 19:01:32 -06:00
parent 6ec2fdeb1e
commit ddf709fc5b
5 changed files with 14 additions and 14 deletions

View file

@ -33,11 +33,11 @@ val flip : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c
(** Reverse the order of arguments for a binary function. *)
val curry : ('a * 'b -> 'c) -> 'a -> 'b -> 'c
(** Convert a function which accepts a pair of arguments into a function which accepts two arguments.
(** Convert a function which accepts a pair of arguments into a function which accepts two arguments.
[curry f x y] is [f (x,y)]. *)
val uncurry : ('a -> 'b -> 'c) -> ('a * 'b) -> 'c
(** Convert a function which accepts a two arguments into a function which accepts a pair of arguments.
(** Convert a function which accepts a two arguments into a function which accepts a pair of arguments.
[uncurry f (x,y)] is [f x y]. *)
val tap : ('a -> _) -> 'a -> 'a

View file

@ -141,7 +141,7 @@ module Infix : sig
val (<+>) : 'a t -> 'a t -> 'a t
(** [a <+> b] is [a] if [a] is [Some _], [b] otherwise. *)
end
end
(** {2 Conversion and IO} *)