@@ -41,8 +41,8 @@ applyChange posMapping _ = posMapping
4141
4242toCurrent :: Range -> T.Text -> Position -> Maybe Position
4343toCurrent (Range (Position startLine startColumn) (Position endLine endColumn)) t (Position line column)
44− | line < startLine || line == startLine && column <= startColumn =
45− -- Position is before the change and thereby unchanged
44+ | line < startLine || line == startLine && column < startColumn =
45+ -- Position is before the change and thereby unchanged.
4646 Just $ Position line column
4747 | line > endLine || line == endLine && column >= endColumn =
4848 -- Position is after the change so increase line and column number
@@ -63,7 +63,7 @@ toCurrent (Range (Position startLine startColumn) (Position endLine endColumn))
6363
6464fromCurrent :: Range -> T.Text -> Position -> Maybe Position
6565fromCurrent (Range (Position startLine startColumn) (Position endLine endColumn)) t (Position line column)
66− | line < startLine || line == startLine && column <= startColumn =
66+ | line < startLine || line == startLine && column < startColumn =
6767 -- Position is before the change and thereby unchanged
6868 Just $ Position line column
6969 | line > newEndLine || line == newEndLine && column >= newEndColumn =