styled-ppx 0.56.0 · OCaml Package

type time = [

| `s of int
| `ms of int

]

type calc_value = [

| time
| `calc of [ time | `add of calc_value * calc_value | `sub of calc_value * calc_value | `mult of calc_value * calc_value ]
| `min of t array
| `max of t array
| `num of float

]

and t = [

| time
| `min of t array
| `max of t array
| `calc of [ time | `add of calc_value * calc_value | `sub of calc_value * calc_value | `mult of calc_value * calc_value ]

]

val s : 'a -> [> `s of 'a ]

val ms : 'a -> [> `ms of 'a ]

val toString : 
  [< `calc of
       [< `add of
            [< `calc of 'b
            | `max of 'a Belt.Array.t
            | `min of 'a Belt.Array.t
            | `ms of Js.Int.t
            | `num of Js.Float.t
            | `s of Js.Int.t ] as 'c
            * 'c
       | `max of 'a Belt.Array.t
       | `min of 'a Belt.Array.t
       | `ms of Js.Int.t
       | `mult of 'c * 'c
       | `s of Js.Int.t
       | `sub of 'c * 'c ] as 'b
  | `max of 'a Belt.Array.t
  | `min of 'a Belt.Array.t
  | `ms of Js.Int.t
  | `s of Js.Int.t ms s ] as 'a ->
  string

val minmax_to_string : 
  [< `calc of
       [< `add of
            [< `calc of
                 [< `add of
                      [< `calc of 'b
                      | `max of 'a Belt.Array.t
                      | `min of 'a Belt.Array.t
                      | `ms of Js.Int.t
                      | `num of Js.Float.t
                      | `s of Js.Int.t ] as 'c
                      * 'c
                 | `max of 'a Belt.Array.t
                 | `min of 'a Belt.Array.t
                 | `ms of Js.Int.t
                 | `mult of 'c * 'c
                 | `s of Js.Int.t
                 | `sub of 'c * 'c ] as 'b
            | `max of 'a Belt.Array.t
            | `min of 'a Belt.Array.t
            | `ms of Js.Int.t
            | `s of Js.Int.t ms s ] as 'a
            * 'a
       | `mult of 'a * 'a
       | `sub of 'a * 'a ]
  | `max of 'a Belt.Array.t
  | `min of 'a Belt.Array.t
  | `ms of Js.Int.t
  | `num of Js.Float.t
  | `s of Js.Int.t max min ] ->
  string

val calc_value_to_string : 
  [< `calc of
       [< `add of 'a * 'a
       | `max of
         [< `calc of 'b
         | `max of 'c
         | `min of 'd Belt.Array.t
         | `ms of Js.Int.t
         | `s of Js.Int.t ms s ] as 'd
           Belt.Array.t as 'c
       | `min of 'd Belt.Array.t
       | `ms of Js.Int.t
       | `mult of 'a * 'a
       | `s of Js.Int.t
       | `sub of 'a * 'a ] as 'b
  | `max of 'c
  | `min of 'd Belt.Array.t
  | `ms of Js.Int.t
  | `num of Js.Float.t
  | `s of Js.Int.t ] as 'a ->
  string

val string_of_calc_min_max : 
  [< `add of
       [< `calc of 'a
       | `max of
         [< `calc of 'a
         | `max of 'c
         | `min of 'd Belt.Array.t
         | `ms of Js.Int.t
         | `s of Js.Int.t ms s ] as 'd
           Belt.Array.t as 'c
       | `min of 'd Belt.Array.t
       | `ms of Js.Int.t
       | `num of Js.Float.t
       | `s of Js.Int.t ] as 'b
       * 'b
  | `max of 'c
  | `min of 'd Belt.Array.t
  | `ms of Js.Int.t
  | `mult of 'b * 'b
  | `s of Js.Int.t
  | `sub of 'b * 'b ] as 'a ->
  string

package styled-ppx