diff options
Diffstat (limited to 'ocamldoc/odoc_str.ml')
| -rw-r--r-- | ocamldoc/odoc_str.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ocamldoc/odoc_str.ml b/ocamldoc/odoc_str.ml index 5f3a8e9e7..b36ad9596 100644 --- a/ocamldoc/odoc_str.ml +++ b/ocamldoc/odoc_str.ml @@ -125,7 +125,7 @@ let string_of_class_type_param_list l = let string_of_class_params c = let b = Buffer.create 256 in let rec iter = function - Types.Cty_fun (label, t, ctype) -> + Types.Cty_arrow (label, t, ctype) -> let parent = is_arrow_type t in Printf.bprintf b "%s%s%s%s -> " ( |