Skip to content

M
mincss
Commit 5408e87f authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Merge branch 'master' of github.com:taddeus/mincss

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