package melange

  1. Overview
  2. Docs
Toolchain to produce JS from Reason/OCaml

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (30)

Authors

  1. A
    Antonio Nuno Monteiro <anmonteiro@gmail.com>

Maintainers

  1. A
    Antonio Nuno Monteiro <anmonteiro@gmail.com>

Sources

melange-6.0.1-414.tbz
sha256=c1cce011864740dc43ee0f4e8130f70725f5e7042942cce653be5b6a8b439fb5
sha512=04fc82d97d5b9632c4ee041414d9fe104556a8c329e7444ffd71017baa00612da103fda91c309fc29a16e143c29d8748e1b1035a74681b61ff65fcfdf7f4e59c

doc/src/melange.js_parser/enum_common.ml.html

Source file enum_common.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
34
35
36
37
type explicit_type =
  | Boolean
  | Number
  | String
  | Symbol
  | BigInt [@@deriving ord]
include
  struct
    let _ = fun (_ : explicit_type) -> ()
    let rec compare_explicit_type :
      explicit_type -> explicit_type -> int =
      ((          fun lhs rhs ->
            match (lhs, rhs) with
            | (Boolean, Boolean) -> 0
            | (Number, Number) -> 0
            | (String, String) -> 0
            | (Symbol, Symbol) -> 0
            | (BigInt, BigInt) -> 0
            | _ ->
                let to_int =
                  function
                  | Boolean -> 0
                  | Number -> 1
                  | String -> 2
                  | Symbol -> 3
                  | BigInt -> 4 in
                compare (to_int lhs) (to_int rhs))
      [@ocaml.warning "-39"][@ocaml.warning "-A"])[@@ocaml.warning "-39"]
    let _ = compare_explicit_type
  end[@@ocaml.doc "@inline"][@@merlin.hide ]
let string_of_explicit_type =
  function
  | Boolean -> "boolean"
  | Number -> "number"
  | String -> "string"
  | Symbol -> "symbol"
  | BigInt -> "bigint"