소스 검색

Color optimization now works on all expressions

Taddeüs Kroes 11 년 전
부모
커밋
8b440b2781
1개의 변경된 파일2개의 추가작업 그리고 3개의 파일을 삭제
  1. 2 3
      color.ml

+ 2 - 3
color.ml

@@ -51,11 +51,10 @@ let rec short = function
   | Function ("rgb", Nary (",", [r; g; b])) ->
     Function ("rgb", Nary (",", [clip r; clip g; clip b]))
 
-  | c -> c
+  | v -> v
 
 let transform = function
-  | Declaration ("color", color, imp) ->
-    Declaration ("color", short color, imp)
+  | Expr value -> Expr (short value)
   | v -> v
 
 let compress = Util.transform_stylesheet transform