fix test on 2.8.1

This commit is contained in:
Simon Cruanes 2020-09-09 15:38:07 -04:00
parent 8eb32fa9ab
commit 9ef84f1df3

View file

@ -234,7 +234,8 @@ end = struct
let partial_check (self:t) acts : unit = let partial_check (self:t) acts : unit =
Log.debugf 4 Log.debugf 4
(fun k->k "(@[sudoku.partial-check@ :trail [@[%a@]]@])" (Fmt.iter F.pp) (trail_ acts)); (fun k->k "(@[sudoku.partial-check@ :trail [@[%a@]]@])"
(Fmt.list F.pp) (trail_ acts |> Iter.to_list));
add_slice self acts; add_slice self acts;
check_ self acts check_ self acts