Add ToString method to MergeStyle (#96)

This commit is contained in:
Patrick Stevens
2024-09-22 13:56:10 +01:00
committed by GitHub
parent 9f0e2c0b5e
commit 0c394a0e69

View File

@@ -18,13 +18,15 @@ type MergeStyle =
elif s = "rebase-merge" then MergeStyle.RebaseMerge elif s = "rebase-merge" then MergeStyle.RebaseMerge
else failwithf "Unrecognised merge style '%s'" s else failwithf "Unrecognised merge style '%s'" s
static member toString (s : MergeStyle) : string = override this.ToString () : string =
match s with match this with
| Merge -> "merge" | Merge -> "merge"
| RebaseMerge -> "rebase-merge" | RebaseMerge -> "rebase-merge"
| Rebase -> "rebase" | Rebase -> "rebase"
| Squash -> "squash" | Squash -> "squash"
static member toString (m : MergeStyle) = m.ToString ()
type PushMirror = type PushMirror =
{ {
GitHubAddress : Uri GitHubAddress : Uri