minor optimization
This commit is contained in:
parent
7e32ef57c2
commit
89b3ec3d17
@ -26,9 +26,7 @@ namespace Option =
|
|||||||
None => abort("Forced None value")
|
None => abort("Forced None value")
|
||||||
Some(x) => x
|
Some(x) => x
|
||||||
|
|
||||||
function contains(e : 'a, o : option('a)) = switch(o)
|
function contains(e : 'a, o : option('a)) = o == Some(e)
|
||||||
None => false
|
|
||||||
Some(x) => x == e
|
|
||||||
|
|
||||||
function on_elem(o : option('a), f : 'a => unit) : unit = match((), f, o)
|
function on_elem(o : option('a), f : 'a => unit) : unit = match((), f, o)
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user