Files
gitea-repo-config/Gitea.Declarative/Result.fs
Patrick Stevens 9a12abe0cf Subcommands (#62)
2023-08-07 12:13:53 +01:00

10 lines
234 B
Forth

namespace Gitea.Declarative
[<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