diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/prettyp.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 6712af8b99..2eb22b177d 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -744,7 +744,9 @@ let print_path_between cls clt = let print_canonical_projections () = prlist_with_sep pr_fnl (fun ((r1,r2),o) -> - pr_global r2 ++ str " <- " ++ pr_global r1 ++ str " ( " ++ pr_lconstr o.o_DEF ++ str " )") + (match r2 with Some sr2 -> pr_global sr2 | None -> str " _") ++ + str " <- " ++ + pr_global r1 ++ str " ( " ++ pr_lconstr o.o_DEF ++ str " )") (canonical_projections ()) (*************************************************************************) |