From cfa350c31aebe2e06611d0fbb41fe88b1f30b8e8 Mon Sep 17 00:00:00 2001
From: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Date: Tue, 17 Dec 2013 03:52:50 +0000
Subject: merge generative functors

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14365 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 ocamldoc/odoc_html.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ocamldoc/odoc_html.ml')

diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml
index db7d82ce1..3bee9838b 100644
--- a/ocamldoc/odoc_html.ml
+++ b/ocamldoc/odoc_html.ml
@@ -1384,7 +1384,8 @@ class html =
 
     (** Print html code to display the type of a module parameter.. *)
     method html_of_module_parameter_type b m_name p =
-      self#html_of_module_type b m_name ~code: p.mp_type_code p.mp_type
+      match p.mp_type with None -> bs b "<code>()</code>"
+      | Some mty -> self#html_of_module_type b m_name ~code: p.mp_type_code mty
 
     (** Generate a file containing the module type in the given file name. *)
     method output_module_type in_title file mtyp =
-- 
cgit v1.2.3-70-g09d2