Source

ocaml-indent / pos.ml

Diff from to

File pos.ml

     { p  with pos_cnum = p .pos_cnum + diff },
     { p' with pos_cnum = p'.pos_cnum + diff } 
 
+  let show (p1,p2) = Printf.sprintf "%s-%s" (Position.show p1) (Position.show p2)
+  let format ppf = Format.string ppf @@ show
+
   let contain (start, end_) pos = 
     match Position.compare start pos, Position.compare pos end_ with
     | (-1 | 0), (-1 | 0) -> `In