From 5c4c7aa3c36a529eeec48dd4c12b51f5e2cd41a8 Mon Sep 17 00:00:00 2001
From: Taddeus Kroes <taddeuskroes@gmail.com>
Date: Mon, 21 Jul 2014 22:48:19 +0200
Subject: [PATCH] Cleanup
---
types.ml | 2 +-
util.ml | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/types.ml b/types.ml
index 557993c..a217589 100644
--- a/types.ml
+++ b/types.ml
@@ -53,7 +53,7 @@ type statement =
type stylesheet = statement list
-type traversal_box =
+type box =
| Expr of expr
| Declaration of declaration
| Selector of selector
diff --git a/util.ml b/util.ml
index e97ab25..c5227e4 100644
--- a/util.ml
+++ b/util.ml
@@ -111,7 +111,7 @@ let prerr_loc_msg verbose loc msg =
| constructor decl -> decl \
| _ -> failwith ("expected " ^ #constructor)
-let transform_stylesheet (f : traversal_box -> traversal_box) stylesheet =
+let transform_stylesheet f stylesheet =
let rec trav_expr = function
| Concat terms -> f (Expr (Concat (trav_all_expr terms)))
| Function (name, arg) -> f (Expr (Function (name, expect_expr arg)))
--
GitLab