10 lines
231 B
Forth
10 lines
231 B
Forth
namespace AnkiStatic.App
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Result =
|
|
|
|
let cata<'ok, 'err, 'result> onOk onError (r : Result<'ok, 'err>) : 'result =
|
|
match r with
|
|
| Ok ok -> onOk ok
|
|
| Error e -> onError e
|