blob: 0b6107f5d9e7ed2fe0aa6e05ffa2acbe3a4c29cc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
open Sexplib.Std
type merge_strategy = PreferLeft | PreferRight | RevertToAncestor
[@@deriving sexp]
type statement =
| CreateBranch of { name : string; hash : string option [@sexp.option] }
| Checkout of string
| GetHead
| GetBranchTip of string
| UpdateBranchTip of { name : string; hash : string }
| Merge of { left : string; right : string; strategy : merge_strategy }
[@@deriving sexp]
|
