Added Comment constructor

stringify.ml

@@ -130,6 +130,8 @@ 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,6 +50,8 @@ type statement =
   (* @keyframes <id> { <rulesets> } *)
   | Supports of condition * statement list
   (* @supports <condition> { <rulesets> } *)
+  | Comment of string
+  (* /* ... */ *)
 
 type stylesheet = statement list