Commit bda5c1c0 authored by Taddeüs Kroes's avatar Taddeüs Kroes

Bugfix in comparisons like padding and padding-left

parent c7157ba4
...@@ -260,7 +260,12 @@ let sort_stylesheet = ...@@ -260,7 +260,12 @@ let sort_stylesheet =
| 0 -> cmp tail_a tail_b | 0 -> cmp tail_a tail_b
| n -> n | n -> n
end 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 in
let cmp_decls (a, _, _) (b, _, _) = cmp a b in let cmp_decls (a, _, _) (b, _, _) = cmp a b in
Statement (Ruleset (selectors, List.stable_sort cmp_decls decls)) Statement (Ruleset (selectors, List.stable_sort cmp_decls decls))
......
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