fix Dset.get_mark

This commit is contained in:
Frédéric Bour 2020-03-11 16:49:47 +01:00
parent 3dc7bef490
commit 99b982b0bd
1 changed files with 2 additions and 2 deletions

View File

@ -145,12 +145,12 @@ type mark =
| Both
let get_mark marking = function
| Leaf {mark; _} ->
| Leaf {mark; _} | Join {mark; _} ->
assert (marking.valid);
if mark = old_mask then Left
else if mark = new_mask then Right
else Both
| _ -> Both
| Empty -> Both
type 'a view =
| Empty