Commit 04763327 authored by Benoit Barbot's avatar Benoit Barbot
Browse files

fix color

parent fc9128bd
Pipeline #898 passed with stage
in 22 seconds
......@@ -51,7 +51,7 @@ module Color = struct
| "darkgray" -> (169,169,169)
| "gray" -> (128,128,128)
| "lightgray" -> (211,211,211)
| x when x.[0]='#' -> begin try
| x when String.length x>=7 && x.[0]='#' -> begin try
let int_of_l = function '0'->0|'1'->1|'2'->2|'3'->3
|'4'->4|'5'->5|'6'->6|'7'->7
|'8'->8|'9'->9|'a'->10|'b'->11
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment