From 7dec5f051d924e154862b5041a6a5954183d1b96 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Wed, 13 Sep 2017 08:26:11 +0300
Subject: [PATCH] Fix corner case

---
 main.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index 90b1d00..0a32e9c 100644
--- a/main.ml
+++ b/main.ml
@@ -3323,11 +3323,12 @@ let describe_location () =
     | l :: [] -> Printf.sprintf "Page %d" (l.pageno+1)
     | l :: rest ->
        let rangestr a b =
-         let sep = if a.pageno+1 = b.pageno then " " else ".." in
-         Printf.sprintf "%d%s%d" (a.pageno+1) sep (b.pageno+1)
+         if a.pageno = b.pageno then Printf.sprintf "%d" (a.pageno+1)
+         else
+           let sep = if a.pageno+1 = b.pageno then " " else ".." in
+           Printf.sprintf "%d%s%d" (a.pageno+1) sep (b.pageno+1)
        in
        let rec fold s la lb = function
-         | [] when la == lb -> Printf.sprintf "%s %d" s (la.pageno+1)
          | [] -> Printf.sprintf "%s %s" s (rangestr la lb)
          | l :: rest when l.pageno = succ lb.pageno -> fold s la l rest
          | l :: rest -> fold (s ^ " " ^ rangestr la lb) l l rest
-- 
2.11.4.GIT