Source file `syntax.ml`

1
2
3
4
5
6
7
8
9
10
type t = Jbuild | Dune

let equal = (=)

let hash = Hashtbl.hash

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