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

color.ml

@@ -7,7 +7,7 @@ let is_num = function
   | _ -> false
 
 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, Some "%") when n > 100. -> Number (100., Some "%")
   | value -> value