Move types outside of gen functor
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
2c424063ab
commit
a70ccb6d8b
20
src/odoc.ml
20
src/odoc.ml
|
@ -22,6 +22,16 @@ type target =
|
|||
| Lib of Lib.t
|
||||
| Pkg of Package.Name.t
|
||||
|
||||
type typ = Module | Mld
|
||||
|
||||
type odoc =
|
||||
{ odoc_input: Path.t
|
||||
; html_dir: Path.t
|
||||
; html_file: Path.t
|
||||
; html_alias: Build_system.Alias.t
|
||||
; typ: typ
|
||||
}
|
||||
|
||||
module Gen (S : sig val sctx : SC.t end) = struct
|
||||
open S
|
||||
|
||||
|
@ -138,16 +148,6 @@ module Gen (S : sig val sctx : SC.t end) = struct
|
|||
]);
|
||||
odoc_file
|
||||
|
||||
type typ = Module | Mld
|
||||
|
||||
type odoc =
|
||||
{ odoc_input: Path.t
|
||||
; html_dir: Path.t
|
||||
; html_file: Path.t
|
||||
; html_alias: Build_system.Alias.t
|
||||
; typ: typ
|
||||
}
|
||||
|
||||
let odoc_include_flags requires =
|
||||
Arg_spec.of_result_map requires ~f:(fun libs ->
|
||||
let paths =
|
||||
|
|
Loading…
Reference in New Issue