blob: a55ec19fcc2cc891476919a57b057344dae6eb38 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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 }
| Use of string
| CreateMultigroup of string
[@@deriving sexp]
|
