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