Skip to content

M
mincss
Commit b3d2ee53 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Cleanup

parent faa045b9
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
shorthand.ml
View file @ b3d2ee53
...@@ -215,7 +215,7 @@ let rec unfold = function ...@@ -215,7 +215,7 @@ let rec unfold = function
* | top right bottom left * | top right bottom left
* | all * | all
*) *)
| (("margin"| "padding") as base, value, imp) :: tl -> | (("margin" | "padding") as base, value, imp) :: tl ->
let (top, right, bottom, left) = let (top, right, bottom, left) =
match value with match value with
| Concat [top; right; bottom; left] -> | Concat [top; right; bottom; left] ->
...@@ -265,8 +265,8 @@ let make_shorthands decls = ...@@ -265,8 +265,8 @@ let make_shorthands decls =
let keep_prop = function let keep_prop = function
| ("line-height", _, _) -> | ("line-height", _, _) ->
not (decls_mem "font" shorthands) not (decls_mem "font" shorthands)
| (name, _, imp) -> | (name, _, important) ->
imp || important ||
not (Str.string_match pattern name 0) || not (Str.string_match pattern name 0) ||
let base = Str.matched_group 1 name in let base = Str.matched_group 1 name in
let sub = Str.matched_group 2 name in let sub = Str.matched_group 2 name in
......
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