diff --git a/lib/debug.ml b/lib/debug.ml index e6dc6e5..9aa5b3a 100644 --- a/lib/debug.ml +++ b/lib/debug.ml @@ -2,10 +2,10 @@ open Types let print_colour = function | Simple n | Intrinsic n -> - print_endline ("fg simple/intrinsic " ^ string_of_int n) + print_endline ("simple/intrinsic " ^ string_of_int n) | RGB (r, g, b) -> print_endline - ("fg rgb: " + ("rgb: " ^ List.fold_left (fun acc el -> acc ^ ", " ^ string_of_int el) "" [ r; g; b ]) @@ -13,8 +13,8 @@ let print_colour = function let print_ansi = List.fold_left (fun _acc el -> match el with - | Fg c -> print_colour c - | Bg c -> print_colour c + | Fg c -> print_string "fg "; print_colour c + | Bg c -> print_string "bg "; print_colour c | Reset -> print_endline "ansi reset" | Other n -> print_endline ("other ansi: " ^ string_of_int n))