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_man.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ocamldoc/odoc_man.ml')

diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml
index 808136968..8a252d631 100644
--- a/ocamldoc/odoc_man.ml
+++ b/ocamldoc/odoc_man.ml
@@ -637,7 +637,7 @@ class man =
             (fun (p, desc_opt) ->
               bs b ".sp\n";
               bs b ("\""^p.mp_name^"\"\n");
-              self#man_of_module_type b m_name p.mp_type;
+              Misc.may (self#man_of_module_type b m_name) p.mp_type;
               bs b "\n";
               (
                match desc_opt with
-- 
cgit v1.2.3-70-g09d2