diff --git a/ConsumePlugin/ConsumePlugin.fsproj b/ConsumePlugin/ConsumePlugin.fsproj
index 32f118a..5b99cc1 100644
--- a/ConsumePlugin/ConsumePlugin.fsproj
+++ b/ConsumePlugin/ConsumePlugin.fsproj
@@ -56,6 +56,17 @@
Args.fs
+
+
+ swagger-gitea.json
+
+ true
+ Gitea
+
+
+
+ GeneratedSwaggerGitea.fs
+
diff --git a/ConsumePlugin/Generated2SwaggerGitea.fs b/ConsumePlugin/Generated2SwaggerGitea.fs
new file mode 100644
index 0000000..48126fd
--- /dev/null
+++ b/ConsumePlugin/Generated2SwaggerGitea.fs
@@ -0,0 +1,42464 @@
+//------------------------------------------------------------------------------
+// This code was generated by myriad.
+// Changes to this file will be lost when the code is regenerated.
+//------------------------------------------------------------------------------
+
+
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the APIError type
+[]
+module APIErrorJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type APIError with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : APIError) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "message",
+ (input.Message
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "url",
+ (input.Url
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the AccessToken type
+[]
+module AccessTokenJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type AccessToken with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : AccessToken) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "id",
+ (input.Id
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "scopes",
+ (input.Scopes
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "sha1",
+ (input.Sha1
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "token_last_eight",
+ (input.TokenLastEight
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the ActivityPub type
+[]
+module ActivityPubJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type ActivityPub with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : ActivityPub) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "@context",
+ (input.Context
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the AddCollaboratorOption type
+[]
+module AddCollaboratorOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type AddCollaboratorOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : AddCollaboratorOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "permission",
+ (input.Permission
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the AddTimeOption type
+[]
+module AddTimeOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type AddTimeOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : AddTimeOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "created",
+ (input.Created
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("time", (input.Time |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "user_name",
+ (input.UserName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the AnnotatedTagObject type
+[]
+module AnnotatedTagObjectJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type AnnotatedTagObject with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : AnnotatedTagObject) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "sha",
+ (input.Sha
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "type",
+ (input.Type
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "url",
+ (input.Url
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the Attachment type
+[]
+module AttachmentJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type Attachment with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : Attachment) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "browser_download_url",
+ (input.BrowserDownloadUrl
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "created_at",
+ (input.CreatedAt
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "download_count",
+ (input.DownloadCount
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "id",
+ (input.Id
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "size",
+ (input.Size
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "uuid",
+ (input.Uuid
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the BranchProtection type
+[]
+module BranchProtectionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type BranchProtection with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : BranchProtection) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "approvals_whitelist_teams",
+ (input.ApprovalsWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "approvals_whitelist_username",
+ (input.ApprovalsWhitelistUsername
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_official_review_requests",
+ (input.BlockOnOfficialReviewRequests
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_outdated_branch",
+ (input.BlockOnOutdatedBranch
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_rejected_reviews",
+ (input.BlockOnRejectedReviews
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "branch_name",
+ (input.BranchName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "created_at",
+ (input.CreatedAt
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "dismiss_stale_approvals",
+ (input.DismissStaleApprovals
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_approvals_whitelist",
+ (input.EnableApprovalsWhitelist
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_merge_whitelist",
+ (input.EnableMergeWhitelist
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_push",
+ (input.EnablePush
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_push_whitelist",
+ (input.EnablePushWhitelist
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_status_check",
+ (input.EnableStatusCheck
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "merge_whitelist_teams",
+ (input.MergeWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "merge_whitelist_usernames",
+ (input.MergeWhitelistUsernames
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "protected_file_patterns",
+ (input.ProtectedFilePatterns
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "push_whitelist_deploy_keys",
+ (input.PushWhitelistDeployKeys
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "push_whitelist_teams",
+ (input.PushWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "push_whitelist_usernames",
+ (input.PushWhitelistUsernames
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "require_signed_commits",
+ (input.RequireSignedCommits
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "required_approvals",
+ (input.RequiredApprovals
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "rule_name",
+ (input.RuleName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "status_check_contexts",
+ (input.StatusCheckContexts
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "unprotected_file_patterns",
+ (input.UnprotectedFilePatterns
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "updated_at",
+ (input.UpdatedAt
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the ChangedFile type
+[]
+module ChangedFileJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type ChangedFile with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : ChangedFile) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "additions",
+ (input.Additions
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "changes",
+ (input.Changes
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "contents_url",
+ (input.ContentsUrl
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "deletions",
+ (input.Deletions
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "filename",
+ (input.Filename
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "html_url",
+ (input.HtmlUrl
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "previous_filename",
+ (input.PreviousFilename
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "raw_url",
+ (input.RawUrl
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "status",
+ (input.Status
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CommitAffectedFiles type
+[]
+module CommitAffectedFilesJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CommitAffectedFiles with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CommitAffectedFiles) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "filename",
+ (input.Filename
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CommitDateOptions type
+[]
+module CommitDateOptionsJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CommitDateOptions with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CommitDateOptions) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "author",
+ (input.Author
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "committer",
+ (input.Committer
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CommitMeta type
+[]
+module CommitMetaJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CommitMeta with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CommitMeta) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "created",
+ (input.Created
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "sha",
+ (input.Sha
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "url",
+ (input.Url
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CommitStats type
+[]
+module CommitStatsJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CommitStats with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CommitStats) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "additions",
+ (input.Additions
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "deletions",
+ (input.Deletions
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "total",
+ (input.Total
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CommitUser type
+[]
+module CommitUserJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CommitUser with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CommitUser) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "date",
+ (input.Date
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "email",
+ (input.Email
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateAccessTokenOption type
+[]
+module CreateAccessTokenOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateAccessTokenOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateAccessTokenOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add ("name", (input.Name |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "scopes",
+ (input.Scopes
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateBranchProtectionOption type
+[]
+module CreateBranchProtectionOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateBranchProtectionOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateBranchProtectionOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "approvals_whitelist_teams",
+ (input.ApprovalsWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "approvals_whitelist_username",
+ (input.ApprovalsWhitelistUsername
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_official_review_requests",
+ (input.BlockOnOfficialReviewRequests
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_outdated_branch",
+ (input.BlockOnOutdatedBranch
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_rejected_reviews",
+ (input.BlockOnRejectedReviews
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "branch_name",
+ (input.BranchName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "dismiss_stale_approvals",
+ (input.DismissStaleApprovals
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_approvals_whitelist",
+ (input.EnableApprovalsWhitelist
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_merge_whitelist",
+ (input.EnableMergeWhitelist
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_push",
+ (input.EnablePush
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_push_whitelist",
+ (input.EnablePushWhitelist
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "enable_status_check",
+ (input.EnableStatusCheck
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "merge_whitelist_teams",
+ (input.MergeWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "merge_whitelist_usernames",
+ (input.MergeWhitelistUsernames
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "protected_file_patterns",
+ (input.ProtectedFilePatterns
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "push_whitelist_deploy_keys",
+ (input.PushWhitelistDeployKeys
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "push_whitelist_teams",
+ (input.PushWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "push_whitelist_usernames",
+ (input.PushWhitelistUsernames
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "require_signed_commits",
+ (input.RequireSignedCommits
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "required_approvals",
+ (input.RequiredApprovals
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "rule_name",
+ (input.RuleName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "status_check_contexts",
+ (input.StatusCheckContexts
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "unprotected_file_patterns",
+ (input.UnprotectedFilePatterns
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateBranchRepoOption type
+[]
+module CreateBranchRepoOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateBranchRepoOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateBranchRepoOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add ("new_branch_name", (input.NewBranchName |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "old_branch_name",
+ (input.OldBranchName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateEmailOption type
+[]
+module CreateEmailOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateEmailOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateEmailOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "emails",
+ (input.Emails
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateForkOption type
+[]
+module CreateForkOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateForkOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateForkOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "organization",
+ (input.Organization
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateGPGKeyOption type
+[]
+module CreateGPGKeyOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateGPGKeyOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateGPGKeyOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "armored_public_key",
+ (input.ArmoredPublicKey |> System.Text.Json.Nodes.JsonValue.Create)
+ )
+
+ node.Add (
+ "armored_signature",
+ (input.ArmoredSignature
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateHookOptionConfig type
+[]
+module CreateHookOptionConfigJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateHookOptionConfig with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateHookOptionConfig) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, System.Text.Json.Nodes.JsonValue.Create value)
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateIssueCommentOption type
+[]
+module CreateIssueCommentOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateIssueCommentOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateIssueCommentOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add ("body", (input.Body |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateIssueOption type
+[]
+module CreateIssueOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateIssueOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateIssueOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "assignee",
+ (input.Assignee
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "assignees",
+ (input.Assignees
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "body",
+ (input.Body
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "closed",
+ (input.Closed
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "due_date",
+ (input.DueDate
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "labels",
+ (input.Labels
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "milestone",
+ (input.Milestone
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "ref",
+ (input.Ref
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("title", (input.Title |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateKeyOption type
+[]
+module CreateKeyOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateKeyOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateKeyOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add ("key", (input.Key |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "read_only",
+ (input.ReadOnly
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("title", (input.Title |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateLabelOption type
+[]
+module CreateLabelOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateLabelOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateLabelOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add ("color", (input.Color |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "description",
+ (input.Description
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "exclusive",
+ (input.Exclusive
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("name", (input.Name |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateMilestoneOption type
+[]
+module CreateMilestoneOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateMilestoneOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateMilestoneOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "description",
+ (input.Description
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "due_on",
+ (input.DueOn
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "state",
+ (input.State
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "title",
+ (input.Title
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateOAuth2ApplicationOptions type
+[]
+module CreateOAuth2ApplicationOptionsJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateOAuth2ApplicationOptions with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateOAuth2ApplicationOptions) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "confidential_client",
+ (input.ConfidentialClient
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "redirect_uris",
+ (input.RedirectUris
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateOrgOption type
+[]
+module CreateOrgOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateOrgOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateOrgOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "description",
+ (input.Description
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "full_name",
+ (input.FullName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "location",
+ (input.Location
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "repo_admin_change_team_access",
+ (input.RepoAdminChangeTeamAccess
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("username", (input.Username |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "visibility",
+ (input.Visibility
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "website",
+ (input.Website
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreatePullRequestOption type
+[]
+module CreatePullRequestOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreatePullRequestOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreatePullRequestOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "assignee",
+ (input.Assignee
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "assignees",
+ (input.Assignees
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "base",
+ (input.Base
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "body",
+ (input.Body
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "due_date",
+ (input.DueDate
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "head",
+ (input.Head
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "labels",
+ (input.Labels
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "milestone",
+ (input.Milestone
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "title",
+ (input.Title
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreatePullReviewComment type
+[]
+module CreatePullReviewCommentJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreatePullReviewComment with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreatePullReviewComment) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "body",
+ (input.Body
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "new_position",
+ (input.NewPosition
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "old_position",
+ (input.OldPosition
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "path",
+ (input.Path
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreatePushMirrorOption type
+[]
+module CreatePushMirrorOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreatePushMirrorOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreatePushMirrorOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "interval",
+ (input.Interval
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "remote_address",
+ (input.RemoteAddress
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "remote_password",
+ (input.RemotePassword
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "remote_username",
+ (input.RemoteUsername
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "sync_on_commit",
+ (input.SyncOnCommit
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateReleaseOption type
+[]
+module CreateReleaseOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateReleaseOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateReleaseOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "body",
+ (input.Body
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "draft",
+ (input.Draft
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "prerelease",
+ (input.Prerelease
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("tag_name", (input.TagName |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "target_commitish",
+ (input.TargetCommitish
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateRepoOption type
+[]
+module CreateRepoOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateRepoOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateRepoOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "auto_init",
+ (input.AutoInit
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "default_branch",
+ (input.DefaultBranch
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "description",
+ (input.Description
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "gitignores",
+ (input.Gitignores
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "issue_labels",
+ (input.IssueLabels
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "license",
+ (input.License
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("name", (input.Name |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "private",
+ (input.Private
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "readme",
+ (input.Readme
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "template",
+ (input.Template
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "trust_model",
+ (input.TrustModel
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateStatusOption type
+[]
+module CreateStatusOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateStatusOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateStatusOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "context",
+ (input.Context
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "description",
+ (input.Description
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "state",
+ (input.State
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "target_url",
+ (input.TargetUrl
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateTagOption type
+[]
+module CreateTagOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateTagOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateTagOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "message",
+ (input.Message
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("tag_name", (input.TagName |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "target",
+ (input.Target
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the Type1 type
+[]
+module Type1JsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type Type1 with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : Type1) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, System.Text.Json.Nodes.JsonValue.Create value)
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateTeamOption type
+[]
+module CreateTeamOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateTeamOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateTeamOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "can_create_org_repo",
+ (input.CanCreateOrgRepo
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "description",
+ (input.Description
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "includes_all_repositories",
+ (input.IncludesAllRepositories
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("name", (input.Name |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "permission",
+ (input.Permission
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "units",
+ (input.Units
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "units_map",
+ (input.UnitsMap
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field -> Type1.toJsonNode field
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateUserOption type
+[]
+module CreateUserOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateUserOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateUserOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "created_at",
+ (input.CreatedAt
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("email", (input.Email |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "full_name",
+ (input.FullName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "login_name",
+ (input.LoginName
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "must_change_password",
+ (input.MustChangePassword
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("password", (input.Password |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "restricted",
+ (input.Restricted
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "send_notify",
+ (input.SendNotify
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "source_id",
+ (input.SourceId
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add ("username", (input.Username |> System.Text.Json.Nodes.JsonValue.Create))
+
+ node.Add (
+ "visibility",
+ (input.Visibility
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the CreateWikiPageOptions type
+[]
+module CreateWikiPageOptionsJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type CreateWikiPageOptions with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : CreateWikiPageOptions) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "content_base64",
+ (input.ContentBase64
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "message",
+ (input.Message
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "title",
+ (input.Title
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the Cron type
+[]
+module CronJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type Cron with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : Cron) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "exec_times",
+ (input.ExecTimes
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "next",
+ (input.Next
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "prev",
+ (input.Prev
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "schedule",
+ (input.Schedule
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the DeleteEmailOption type
+[]
+module DeleteEmailOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type DeleteEmailOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : DeleteEmailOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "emails",
+ (input.Emails
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the DismissPullReviewOptions type
+[]
+module DismissPullReviewOptionsJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type DismissPullReviewOptions with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : DismissPullReviewOptions) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "message",
+ (input.Message
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "priors",
+ (input.Priors
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the EditAttachmentOptions type
+[]
+module EditAttachmentOptionsJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type EditAttachmentOptions with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : EditAttachmentOptions) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "name",
+ (input.Name
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node :> _
+namespace Gitea
+
+open WoofWare.Myriad.Plugins
+
+/// Module containing JSON serializing extension members for the EditBranchProtectionOption type
+[]
+module EditBranchProtectionOptionJsonSerializeExtension =
+ /// Extension methods for JSON parsing
+ type EditBranchProtectionOption with
+
+ /// Serialize to a JSON node
+ static member toJsonNode (input : EditBranchProtectionOption) : System.Text.Json.Nodes.JsonNode =
+ let node = System.Text.Json.Nodes.JsonObject ()
+
+ do
+ for KeyValue (key, value) in input.AdditionalProperties do
+ node.Add (key, id value)
+
+ node.Add (
+ "approvals_whitelist_teams",
+ (input.ApprovalsWhitelistTeams
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "approvals_whitelist_username",
+ (input.ApprovalsWhitelistUsername
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ ((fun field ->
+ let arr = System.Text.Json.Nodes.JsonArray ()
+
+ for mem in field do
+ arr.Add (System.Text.Json.Nodes.JsonValue.Create mem)
+
+ arr
+ )
+ field)
+ :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_official_review_requests",
+ (input.BlockOnOfficialReviewRequests
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_outdated_branch",
+ (input.BlockOnOutdatedBranch
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "block_on_rejected_reviews",
+ (input.BlockOnRejectedReviews
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create field) :> System.Text.Json.Nodes.JsonNode
+ ))
+ )
+
+ node.Add (
+ "dismiss_stale_approvals",
+ (input.DismissStaleApprovals
+ |> (fun field ->
+ match field with
+ | None -> null :> System.Text.Json.Nodes.JsonNode
+ | Some field ->
+ (System.Text.Json.Nodes.JsonValue.Create