minor optimization

This commit is contained in:
radrow 2020-08-26 12:10:24 +02:00
parent 7e32ef57c2
commit 89b3ec3d17

View File

@ -26,9 +26,7 @@ namespace Option =
None => abort("Forced None value")
Some(x) => x
function contains(e : 'a, o : option('a)) = switch(o)
None => false
Some(x) => x == e
function contains(e : 'a, o : option('a)) = o == Some(e)
function on_elem(o : option('a), f : 'a => unit) : unit = match((), f, o)