Source file `file_syntax.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Stdune

type t = Jbuild | Dune

let equal = (=)

let hash = Hashtbl.hash

let of_basename = function
  | "jbuild" -> Some Jbuild
  | "dune" -> Some Dune
  | _ -> None

let to_dyn =
  let open Dyn.Encoder in
  function
  | Jbuild -> constr "Jbuild" []
  | Dune -> constr "Dune" []