From 0267c5922763f64951798fcddf417127702389e4 Mon Sep 17 00:00:00 2001 From: atagen Date: Tue, 3 Dec 2024 14:18:46 +1100 Subject: [PATCH] remove old debug detritus --- lib/parse.ml | 35 +---------------------------------- 1 file changed, 1 insertion(+), 34 deletions(-) diff --git a/lib/parse.ml b/lib/parse.ml index 9ea22a2..6ee26c5 100644 --- a/lib/parse.ml +++ b/lib/parse.ml @@ -36,39 +36,6 @@ let parse_env_order s = parse_string ~consume:Consume.All Parsers.semi_digits s |> unpack |> Array.of_list -let debug_print = - let print_colour = - List.fold_left - (fun _acc el -> - match el with - | Fg c -> ( - match c with - | Simple n | Intrinsic n -> - print_endline ("fg simple/intrinsic " ^ string_of_int n) - | RGB (r, g, b) -> - print_endline - ("fg rgb: " - ^ List.fold_left - (fun acc el -> acc ^ ", " ^ string_of_int el) - "" [ r; g; b ])) - | Bg c -> ( - match c with - | Simple n | Intrinsic n -> - print_endline ("bg simple/intrinsic " ^ string_of_int n) - | RGB (r, g, b) -> - print_endline - ("bg rgb: " - ^ List.fold_left - (fun acc el -> acc ^ ", " ^ string_of_int el) - "" [ r; g; b ])) - | Reset -> print_endline "ansi reset" - | Other n -> print_endline ("other ansi: " ^ string_of_int n)) - () - in - function - | Text s | Separator s | Delimiter s -> print_endline ("parsed '" ^ s ^ "'") - | Ansi a -> print_colour a - let%test "sep_parse" = parse_string ~consume:Consume.All sep " " |> function | Ok (Separator " ") -> true @@ -98,7 +65,7 @@ let%test "culr_parse" = ] -> true | Ok n -> - n |> List.fold_left (fun _acc el -> el |> debug_print) (); + n |> List.fold_left (fun _acc el -> el |> Debug.debug_print) (); false | _ -> false