Explorar el Código

Bugfix in comparisons like padding and padding-left

Taddeus Kroes hace 10 años
padre
commit
bda5c1c0fc
Se han modificado 1 ficheros con 6 adiciones y 1 borrados
  1. 6 1
      util.ml

+ 6 - 1
util.ml

@@ -260,7 +260,12 @@ let sort_stylesheet =
             | 0 -> cmp tail_a tail_b
             | n -> n
           end
-        | _ -> String.compare a b
+        | Some (stem_a, tail_a), None ->
+          String.compare stem_a b
+        | None, Some (stem_b, tail_b) ->
+          String.compare a stem_b
+        | _ ->
+          String.compare a b
       in
       let cmp_decls (a, _, _) (b, _, _) = cmp a b in
       Statement (Ruleset (selectors, List.stable_sort cmp_decls decls))