From a70ccb6d8b3c0aa7308abb8d2ad21eb009c52de3 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Thu, 7 Jun 2018 11:53:20 +0700
Subject: [PATCH] Move types outside of gen functor

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/odoc.ml | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/odoc.ml b/src/odoc.ml
index 9b8bbae8..b7ccdddc 100644
--- a/src/odoc.ml
+++ b/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 =