Source file `spin_template.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
38
39
40
module type Template = sig
  val name : string

  val file_list : string list

  val read : string -> string option
end

module Cli : Template = struct
  include Cli

  let name = "cli"
end

module Lib : Template = struct
  include Lib

  let name = "lib"
end

module Bin : Template = struct
  include Bin

  let name = "bin"
end

module Ppx : Template = struct
  include Ppx

  let name = "ppx"
end

module Spa : Template = struct
  include Spa

  let name = "spa"
end

let all : (module Template) list =
  [ (module Cli); (module Lib); (module Bin); (module Ppx); (module Spa) ]