- let { sat ; todo; _ } = List.hd(M.find last_round m) in
- let c = (last_round, sat, todo) in color c, text_color c
+ let { sat ; todo; _ } =
+ match M.find last_round m with
+ [] -> { sat = StateSet.empty; todo= StateSet.empty; msg = "ERROR" }
+ | [ e ] -> e
+ | l -> List.hd (List.tl (List.rev l))
+ in
+ let c = (last_round, StateSet.union sat todo, StateSet.empty) in color c, text_color c