From 0829ab94ad1b2579700ed27cdaadb7cebe4de62a Mon Sep 17 00:00:00 2001
From: Taddeus Kroes <taddeuskroes@gmail.com>
Date: Mon, 21 Jul 2014 15:16:40 +0200
Subject: [PATCH] Removed --keep-comments option (would make tokenization
difficult)
---
main.ml | 5 -----
stringify.ml | 2 --
types.ml | 2 --
3 files changed, 9 deletions(-)
diff --git a/main.ml b/main.ml
index eb32bcc..bc82dfe 100644
--- a/main.ml
+++ b/main.ml
@@ -6,7 +6,6 @@ type args = {
mutable outfile : string option;
mutable verbose : int;
mutable echo : bool;
- mutable keep_comments : bool;
}
(* Parse command-line arguments *)
@@ -16,7 +15,6 @@ let parse_args () =
outfile = None;
verbose = 1;
echo = false;
- keep_comments = false;
} in
let args_spec = [
("<file> ...", Arg.Rest (fun _ -> ()),
@@ -31,9 +29,6 @@ let parse_args () =
("--echo", Arg.Unit (fun _ -> args.echo <- true),
" Don't minify, just pretty-print the parsed CSS");
-
- ("--keep-comments", Arg.Unit (fun _ -> args.keep_comments <- true),
- "\n Preserve top-level comments");
] in
let usage =
diff --git a/stringify.ml b/stringify.ml
index e442337..b165a59 100644
--- a/stringify.ml
+++ b/stringify.ml
@@ -130,8 +130,6 @@ let rec string_of_statement = function
| Supports (condition, statements) ->
"@supports " ^ stringify_condition " " condition ^
block (cat "\n\n" string_of_statement statements)
- | Comment text ->
- "/*" ^ text ^ "*/"
let string_of_stylesheet = cat "\n\n" string_of_statement
diff --git a/types.ml b/types.ml
index d5c7a5c..d9f315b 100644
--- a/types.ml
+++ b/types.ml
@@ -50,8 +50,6 @@ type statement =
(* @keyframes <id> { <rulesets> } *)
| Supports of condition * statement list
(* @supports <condition> { <rulesets> } *)
- | Comment of string
- (* /* ... */ *)
type stylesheet = statement list
--
GitLab