Skip to content

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

Cleanup

parent 67ffce34
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
types.ml
View file @ 5c4c7aa3
...@@ -53,7 +53,7 @@ type statement = ...@@ -53,7 +53,7 @@ type statement =
type stylesheet = statement list type stylesheet = statement list
type traversal_box = type box =
| Expr of expr | Expr of expr
| Declaration of declaration | Declaration of declaration
| Selector of selector | Selector of selector
......
util.ml
View file @ 5c4c7aa3
...@@ -111,7 +111,7 @@ let prerr_loc_msg verbose loc msg = ...@@ -111,7 +111,7 @@ let prerr_loc_msg verbose loc msg =
| constructor decl -> decl \ | constructor decl -> decl \
| _ -> failwith ("expected " ^ #constructor) | _ -> failwith ("expected " ^ #constructor)
let transform_stylesheet (f : traversal_box -> traversal_box) stylesheet = let transform_stylesheet f stylesheet =
let rec trav_expr = function let rec trav_expr = function
| Concat terms -> f (Expr (Concat (trav_all_expr terms))) | Concat terms -> f (Expr (Concat (trav_all_expr terms)))
| Function (name, arg) -> f (Expr (Function (name, expect_expr arg))) | Function (name, arg) -> f (Expr (Function (name, expect_expr arg)))
......
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