diff --git a/stringify.ml b/stringify.ml index b165a599d2237c18ed410931106b29cca502169d..e442337a1ec3da776136b54a2cbddef00e6889c4 100644 --- a/stringify.ml +++ b/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 diff --git a/types.ml b/types.ml index 094c21722bf9b17db9522db67939a256ed1a2a67..dada6de242a9768219283fb4881d4e4a9eeb0096 100644 --- a/types.ml +++ b/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