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
else failwithf "Unrecognised merge style '%s'" s
static member toString (s : MergeStyle) : string =
match s with
override this.ToString () : string =
match this with
| Merge -> "merge"
| RebaseMerge -> "rebase-merge"
| Rebase -> "rebase"
| Squash -> "squash"
static member toString (m : MergeStyle) = m.ToString ()
type PushMirror =
{
GitHubAddress : Uri