mirror of
https://github.com/Smaug123/managed-git
synced 2025-10-05 15:58:41 +00:00
36 lines
767 B
Forth
36 lines
767 B
Forth
namespace Git
|
|
|
|
open Microsoft.FSharp.Data.UnitSystems.SI.UnitNames
|
|
|
|
type BranchName =
|
|
| BranchName of string
|
|
|
|
/// Human-readable round-tripping representation.
|
|
override this.ToString () =
|
|
match this with
|
|
| BranchName s -> s
|
|
|
|
type Contributor =
|
|
{
|
|
Name : string
|
|
Email : string
|
|
Date : int<second>
|
|
DateTimezone : string
|
|
}
|
|
|
|
override this.ToString () =
|
|
sprintf "%s <%s> %i %s" this.Name this.Email this.Date this.DateTimezone
|
|
|
|
type ObjectType =
|
|
| Commit
|
|
| Blob
|
|
| Tag
|
|
| Tree
|
|
|
|
override this.ToString () =
|
|
match this with
|
|
| ObjectType.Commit -> "commit"
|
|
| ObjectType.Blob -> "blob"
|
|
| ObjectType.Tag -> "tag"
|
|
| ObjectType.Tree -> "tree"
|