diff options
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 32f4218c..0f1f461f 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -242,7 +242,8 @@ and pp_format_o o = ^ " Unknown)" let pp_format_tag = function - | Emp_local | Emp_global -> "Tag_empty" + | Emp_local -> "Tag_empty" + | Emp_global -> "Tag_global" | External (Some s) -> "(Tag_extern (Just \""^s^"\"))" | External None -> "(Tag_extern Nothing)" | Default -> "Tag_default" |