Skip to content

M
mincss
Commit cfccb863 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Added Comment constructor

parent 9a5848cf
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 0 deletions
stringify.ml
View file @ cfccb863
...@@ -130,6 +130,8 @@ let rec string_of_statement = function ...@@ -130,6 +130,8 @@ let rec string_of_statement = function
| Supports (condition, statements) -> | Supports (condition, statements) ->
"@supports " ^ stringify_condition " " condition ^ "@supports " ^ stringify_condition " " condition ^
block (cat "\n\n" string_of_statement statements) block (cat "\n\n" string_of_statement statements)
| Comment text ->
"/*" ^ text ^ "*/"
let string_of_stylesheet = cat "\n\n" string_of_statement let string_of_stylesheet = cat "\n\n" string_of_statement
......
types.ml
View file @ cfccb863
...@@ -50,6 +50,8 @@ type statement = ...@@ -50,6 +50,8 @@ type statement =
(* @keyframes <id> { <rulesets> } *) (* @keyframes <id> { <rulesets> } *)
| Supports of condition * statement list | Supports of condition * statement list
(* @supports <condition> { <rulesets> } *) (* @supports <condition> { <rulesets> } *)
| Comment of string
(* /* ... */ *)
type stylesheet = statement list type stylesheet = statement list
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment