haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2024-12-16 06:36:30 +03:00
Code Issues Projects Releases Wiki Activity

Add property tests for PositionMapping (#2265)

Browse Source
This commit is contained in:
Moritz Kiefer 2019-07-23 17:05:44 +02:00 committed by Gary Verhaegen
parent 61c37a93b3
commit 904ab6d6fa
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Development/IDE/Core/PositionMapping.hs
View File

@ -41,8 +41,8 @@ applyChange posMapping _ = posMapping
toCurrent :: Range -> T.Text -> Position -> Maybe Position
toCurrent (Range (Position startLine startColumn) (Position endLine endColumn)) t (Position line column)
| line < startLine || line == startLine && column <= startColumn =
-- Position is before the change and thereby unchanged
| line < startLine || line == startLine && column < startColumn =
-- Position is before the change and thereby unchanged.
Just $ Position line column
| line > endLine || line == endLine && column >= endColumn =
-- Position is after the change so increase line and column number
@ -63,7 +63,7 @@ toCurrent (Range (Position startLine startColumn) (Position endLine endColumn))
fromCurrent :: Range -> T.Text -> Position -> Maybe Position
fromCurrent (Range (Position startLine startColumn) (Position endLine endColumn)) t (Position line column)
| line < startLine || line == startLine && column <= startColumn =
| line < startLine || line == startLine && column < startColumn =
-- Position is before the change and thereby unchanged
Just $ Position line column
| line > newEndLine || line == newEndLine && column >= newEndColumn =