Sourceval freeze' :
?min_lower:commit list ->
?max_lower:commit list ->
?min_upper:commit list ->
?max_upper:commit list ->
?recovery:bool ->
?hook:
[ `After_Clear
| `Before_Clear
| `Before_Copy
| `Before_Copy_Newies
| `Before_Copy_Last_Newies
| `Before_Flip ]
Hook.t ->
repo ->
unit Lwt.t Sourceval upper_in_use : repo -> [ `Upper0 | `Upper1 ]