From a7121ed7ba1a5a55845b5ffa4846b8aa0e293e5d Mon Sep 17 00:00:00 2001
From: Jim Fehrle
Date: Wed, 7 Nov 2018 00:23:07 -0800
Subject: Get hyps and goal the same way Printer does; don't omit info Allow
 for new goals that don't map to old goals Include background_goals in
 all_goals return value Fix incorrect change to raw diffs in shorten_diff_span
 Fixes #8922

---
 lib/pp_diff.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/pp_diff.ml')

diff --git a/lib/pp_diff.ml b/lib/pp_diff.ml
index 7b4b1eab73..a485bf31c0 100644
--- a/lib/pp_diff.ml
+++ b/lib/pp_diff.ml
@@ -86,7 +86,7 @@ let shorten_diff_span dtype diff_list =
       if (get_variant !src) = dtype then begin
         if (lt !dst !src) then
           dst := !src;
-        while (lt !dst len) && (get_variant !dst) <> `Common do
+        while (lt !dst len) && (get_variant !dst) = dtype do
           dst := !dst + incr;
         done;
         if (lt !dst len) && (get_str !src) = (get_str !dst) then begin
-- 
cgit v1.2.3