Taddeus Kroes преди 10 години
родител
ревизия
472940f268
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      util.ml

+ 1 - 1
util.ml

@@ -264,7 +264,7 @@ let sort_stylesheet =
           String.compare stem_a b
         | None, Some (stem_b, tail_b) ->
           String.compare a stem_b
-        | _ ->
+        | None, None ->
           String.compare a b
       in
       let cmp_decls (a, _, _) (b, _, _) = cmp a b in