Removed --keep-comments option (would make tokenization difficult)

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 =

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
 

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