atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

debug module fix

Browse Source
This commit is contained in:
atagen 2024-12-03 14:07:28 +11:00
parent 5dc38987d9
commit a2b675b21f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/debug.ml
View File

@ -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))