diff options
| author | Kathy Gray | 2014-03-23 17:56:31 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-03-23 17:56:31 +0000 |
| commit | 1e8668c569b8366d4bd88fb8e354d13274db213f (patch) | |
| tree | 1bec0f1f0dc2896ca3564a7fb7045685901587ae /src/pretty_print.ml | |
| parent | 20d889aaf2801ba1af201e9595e8d38f14716579 (diff) | |
Fix more unification bugs
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 5d6e45e7..ab6e0539 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -565,7 +565,7 @@ and pp_format_o o = ^ " Unknown)" let pp_format_tag = function - | Emp -> "Tag_empty" + | Emp_local | Emp_global -> "Tag_empty" | External (Some s) -> "(Tag_extern (Just \""^s^"\"))" | External None -> "(Tag_extern Nothing)" | Default -> "Tag_default" |