7 lines
229 B
Plaintext
7 lines
229 B
Plaintext
module O = E_O
|
|
let concatSomes = (optionals: Js.Array.t<option<'a>>): Js.Array.t<'a> =>
|
|
optionals
|
|
|> Js.Array.filter(O.isSome)
|
|
|> Js.Array.map(O.toExn("Warning: This should not have happened"))
|
|
let filter = Js.Array.filter
|