matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move types outside of gen functor 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-06-07 11:53:20 +07:00
parent 2c424063ab
commit a70ccb6d8b
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/odoc.ml
View File

@ -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 =