You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
551 B
34 lines
551 B
6 years ago
|
let orThrow = (message, opt) =>
|
||
|
|
switch (opt) {
|
||
|
|
| None => failwith(message)
|
||
|
|
| Some(x) => x
|
||
|
|
};
|
||
|
|
|
||
|
|
let map = (fn, opt) =>
|
||
|
|
switch (opt) {
|
||
|
|
| None => None
|
||
|
|
| Some(x) => Some(fn(x))
|
||
|
|
};
|
||
|
|
|
||
|
|
let bind = (fn, opt) =>
|
||
|
|
switch (opt) {
|
||
|
|
| None => None
|
||
|
|
| Some(x) => fn(x)
|
||
|
|
};
|
||
|
|
|
||
|
|
let fold = (none, some, opt) =>
|
||
|
|
switch (opt) {
|
||
|
|
| None => none()
|
||
|
|
| Some(x) => some(x)
|
||
|
|
};
|
||
|
|
|
||
|
|
let toResult = (error, opt) =>
|
||
|
|
switch (opt) {
|
||
|
|
| None => Error(error)
|
||
|
|
| Some(x) => Ok(x)
|
||
|
|
};
|
||
|
|
|
||
|
|
let some = x => Some(x);
|
||
|
|
|
||
|
|
let (or) = (opt, b) => fold(() => b, x => x, opt);
|