package cascade

  1. Overview
  2. Docs
package cascade
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file sort.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
type t =
  | Token
  | Component
  | Block
  | Function
  | At_rule
  | Qualified_rule
  | Declaration
  | Selector
  | Property_value
  | Stylesheet

(* A closed enum with no payloads, so structural equality is its equality. *)
let equal (a : t) (b : t) = a = b

let pp : t Pp.t =
 fun ctx t ->
  let s =
    match t with
    | Token -> "token"
    | Component -> "component"
    | Block -> "block"
    | Function -> "function"
    | At_rule -> "at-rule"
    | Qualified_rule -> "qualified-rule"
    | Declaration -> "declaration"
    | Selector -> "selector"
    | Property_value -> "property-value"
    | Stylesheet -> "stylesheet"
  in
  Pp.string ctx s

let to_string t = Pp.to_string pp t