github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Allow the reverse path to add edits.

Browse Source
This commit is contained in:
Rob Rix 2017-03-16 13:34:56 -04:00
parent cb5e501027
commit f10a2cd32f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/SES/Myers.hs
View File

@ -141,7 +141,7 @@ decompose myers = let ?callStack = popCallStack callStack in case myers of
where at :: Vector.Vector a -> Int -> a
v `at` i = v Vector.! case direction of { Forward -> i ; Reverse -> length v - succ i }
addInBounds :: Vector.Vector a -> Int -> (a -> b) -> [b] -> [b]
addInBounds v i with to = if d /= 0 && i >= 0 && i < length v then addFor direction (with (v `at` i)) to else to
addInBounds v i with to = if (d /= 0 || direction == Reverse) && i >= 0 && i < length v then addFor direction (with (v `at` i)) to else to
GetK _ direction (Diagonal k) -> do
v <- gets (stateFor direction)