diff options
-rw-r--r-- | parsing/printmod.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/parsing/printmod.ml b/parsing/printmod.ml index 292967b1c..b20eb5f46 100644 --- a/parsing/printmod.ml +++ b/parsing/printmod.ml @@ -109,6 +109,7 @@ and print_modexpr locals mexpr = match mexpr with let rec printable_body dir = let dir = dirpath_prefix dir in + dir = empty_dirpath || try match Nametab.locate_dir (qualid_of_dirpath dir) with DirOpenModtype _ -> false |