Subcommands (#62)

This commit is contained in:
Patrick Stevens
2023-08-07 12:13:53 +01:00
committed by GitHub
parent 46f24a44ec
commit 9a12abe0cf
11 changed files with 340 additions and 104 deletions

View File

@@ -0,0 +1,9 @@
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