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

Get the state in the general case.

Browse Source
This commit is contained in:
Rob Rix 2015-11-30 16:25:00 -05:00
parent 47f3b61395
commit f81de8d289
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SES.hs
View File

@ -28,4 +28,6 @@ diffAt :: (Integer, Integer) -> [Term String Info] -> [Term String Info] -> Stat
diffAt _ [] [] = return []
diffAt (i, j) [] bs = return $ (Pure . Insert) <$> bs
diffAt (i, j) as [] = return $ (Pure . Delete) <$> as
diffAt (i, j) as bs = _
diffAt (i, j) as bs = do
state <- get
return _