Skip to content

M
mincss
Commit 557f9f42 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Bugfix

parent 64d75979
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
color.ml
View file @ 557f9f42
...@@ -7,9 +7,9 @@ let is_num = function ...@@ -7,9 +7,9 @@ let is_num = function
| _ -> false | _ -> false
let clip = function let clip = function
| Number (n, (None | Some "%")) when n < 0. -> Number (0., Some "%") | Number (n, u) when n < 0. -> Number (0., u)
| Number (n, None) when n > 255. -> Number (255., None) | Number (n, None) when n > 255. -> Number (255., None)
| Number (n, Some "%") when n > 100. -> Number (100., Some "%") | Number (n, Some "%") when n > 100. -> Number (100., Some "%")
| value -> value | value -> value
let rec short = function let rec short = function
......
Markdown is supported
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