table: refactor cleanup functions

voodoos · Apr 21, 2024 · d848f95 · d848f95
1 parent 6880df2
commit d848f95
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/lib/brr_lwd_ui/table/virtual_table.ml b/lib/brr_lwd_ui/table/virtual_table.ml
@@ -176,12 +176,14 @@ let make (type data) ~(ui_table : Schema.fixed_row_height)
           in
           let _ =
             let open Fut.Result_syntax in
-            let () = Int_uniqueue.clear unload_queue in
+            let () =
+              (* Cleanup *)
+              Lwd_table.clear table;
+              Hashtbl.clear row_index;
+              Int_uniqueue.clear unload_queue
+            in
             let+ total = total_items in
             if not (Lwd.peek num_rows = total) then Lwd.set num_rows total;
-            Lwd_table.clear table;
-            Hashtbl.clear row_index;
-            Int_uniqueue.clear unload_queue;
             for i = 0 to total - 1 do
               let set = { index = i; content = None; render } in
               Hashtbl.add row_index i @@ Lwd_table.append ~set table