Cosmetics.

This commit is contained in:
Christian Rinderknecht 2019-05-24 19:31:03 +02:00
parent c1f0743cb0
commit 533c801c10

View File

@ -74,7 +74,7 @@ let make ~(start: Pos.t) ~(stop: Pos.t) =
(* Conversions to strings *) (* Conversions to strings *)
method to_string ?(file=true) ?(offsets=true) mode = method to_string ?(file=true) ?(offsets=true) mode =
let horizontal = if offsets then "character" else "column" let horizontal = if offsets then "character" else "column"
and start_offset = and start_offset =
if offsets then start#offset mode else start#column mode if offsets then start#offset mode else start#column mode
and stop_offset = and stop_offset =