Code cleanup

duplicates.ml

@@ -29,9 +29,9 @@ let prune_duplicates decls =
   in
   prune 0 decls
 
-let transform = function
+let compress =
+  Util.transform_stylesheet begin function
     | Statement (Ruleset (selectors, decls)) ->
       Statement (Ruleset (selectors, prune_duplicates decls))
     | v -> v
-
-let compress = Util.transform_stylesheet transform
+  end

shorthand.ml

@@ -274,16 +274,16 @@ let make_shorthands decls =
   in
   List.filter keep_prop decls @ shorthands
 
-let transform = function
+let compress =
+  Util.transform_stylesheet begin function
     | Statement (Ruleset (selectors, decls)) ->
       Statement (Ruleset (selectors, make_shorthands decls))
     | v -> v
+  end
 
-let compress = Util.transform_stylesheet transform
-
-let transform_unfold = function
+let unfold_stylesheet =
+  Util.transform_stylesheet begin function
     | Statement (Ruleset (selectors, decls)) ->
       Statement (Ruleset (selectors, unfold decls))
     | v -> v
-
-let unfold_stylesheet = Util.transform_stylesheet transform_unfold
+  end

simple.ml

@@ -47,10 +47,10 @@ let shorten_font_weight = function
   | Ident "bold"   -> Number (700.0, None)
   | v -> v
 
-let transform = function
+let compress =
+  Util.transform_stylesheet begin function
     | Expr value -> Expr (shorten_expr value)
     | Declaration ("font-weight", value, imp) ->
       Declaration ("font-weight", shorten_font_weight value, imp)
     | v -> v
-
-let compress = Util.transform_stylesheet transform
+  end

util.ml

@@ -237,7 +237,7 @@ let is_color = Color_names.is_color
 (* Sorting declarations *)
 
 let sort_stylesheet =
-  let transform_sort_decls = function
+  transform_stylesheet begin function
     | Statement (Ruleset (selectors, decls)) ->
       let pattern = Str.regexp "^\\([^-]+\\)-" in
       let stem x =
@@ -246,6 +246,4 @@ let sort_stylesheet =
       let cmp (a, _, _) (b, _, _) = String.compare (stem a) (stem b) in
       Statement (Ruleset (selectors, List.stable_sort cmp decls))
     | v -> v
-  in
-  transform_stylesheet transform_sort_decls
-
+  end