10 lines
228 B
Forth
10 lines
228 B
Forth
namespace PureGym.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
|