diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/miscprint.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/miscprint.ml b/printing/miscprint.ml index d09af6d2ac..be3e62574a 100644 --- a/printing/miscprint.ml +++ b/printing/miscprint.ml @@ -33,9 +33,9 @@ and pr_intro_pattern_action prc = function | IntroRewrite false -> str "<-" and pr_or_and_intro_pattern prc = function - | [pl] -> + | IntroAndPattern pl -> str "(" ++ hv 0 (prlist_with_sep pr_comma (pr_intro_pattern prc) pl) ++ str ")" - | pll -> + | IntroOrPattern pll -> str "[" ++ hv 0 (prlist_with_sep pr_bar (prlist_with_sep spc (pr_intro_pattern prc)) pll) ++ str "]" |