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

remove dead code

Browse source
This commit is contained in:
Simon Cruanes 2017-03-03 14:14:48 +01:00
parent 18827b920b
commit 5713183a3a
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCOpt.ml
View file

@ -13,8 +13,6 @@ let map_or ~default f = function
| None -> default | None -> default
| Some x -> f x | Some x -> f x
let maybe f default = map_or ~default f
let is_some = function let is_some = function
| None -> false | None -> false
| Some _ -> true | Some _ -> true
@ -89,10 +87,6 @@ let fold f acc o = match o with
| None -> acc | None -> acc
| Some x -> f acc x | Some x -> f acc x
let get default x = match x with
| None -> default
| Some y -> y
let get_or ~default x = match x with let get_or ~default x = match x with
| None -> default | None -> default
| Some y -> y | Some y -> y