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
|
| Lib of Lib.t
|
||||||
| Pkg of Package.Name.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
|
module Gen (S : sig val sctx : SC.t end) = struct
|
||||||
open S
|
open S
|
||||||
|
|
||||||
|
@ -138,16 +148,6 @@ module Gen (S : sig val sctx : SC.t end) = struct
|
||||||
]);
|
]);
|
||||||
odoc_file
|
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 =
|
let odoc_include_flags requires =
|
||||||
Arg_spec.of_result_map requires ~f:(fun libs ->
|
Arg_spec.of_result_map requires ~f:(fun libs ->
|
||||||
let paths =
|
let paths =
|
||||||
|
|
Loading…
Reference in New Issue