simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 19:55:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: forgot const

Browse source
This commit is contained in:
Simon Cruanes 2019-10-11 17:05:34 -05:00
parent ab5b3aa6af
commit b25cf1ea00
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/mkshims.ml
View file

@ -41,6 +41,7 @@ let cc_update_funs funs f1 f2 =
let shims_fun_pre_408 = " let shims_fun_pre_408 = "
external id : 'a -> 'a = \"%identity\" external id : 'a -> 'a = \"%identity\"
let flip f x y = f y x let flip f x y = f y x
let const x _ = x
let negate f x = not (f x) let negate f x = not (f x)
let protect ~finally f = let protect ~finally f =
try try
@ -56,6 +57,7 @@ let shims_fun_mli_pre_408 = "
(** This is an API imitating the new standard Fun module *) (** This is an API imitating the new standard Fun module *)
external id : 'a -> 'a = \"%identity\" external id : 'a -> 'a = \"%identity\"
val flip : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c val flip : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c
val const : 'a -> _ -> 'a
val negate : ('a -> bool) -> 'a -> bool val negate : ('a -> bool) -> 'a -> bool
val protect : finally:(unit -> unit) -> (unit -> 'a) -> 'a val protect : finally:(unit -> unit) -> (unit -> 'a) -> 'a