github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00
Code Issues Projects Releases Wiki Activity

We’re going to need these.

Browse Source
This commit is contained in:
Rob Rix 2015-11-30 16:54:51 -05:00
parent 1704369fdc
commit 461c7629c9
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.hs
View File

@ -28,7 +28,7 @@ diffAt :: (Integer, Integer) -> [Term String Info] -> [Term String Info] -> Stat
diffAt _ [] [] = return []
diffAt _ [] bs = return $ (Pure . Insert) <$> bs
diffAt _ as [] = return $ (Pure . Delete) <$> as
diffAt (i, j) as bs = do
diffAt (i, j) (a : as) (b : bs) = do
state <- get
case Map.lookup (i, j) state of
Just diffs -> return $ fmap fst diffs