mirror of
https://github.com/github/semantic.git
synced 2025-01-03 21:16:12 +03:00
We don’t use these bindings.
This commit is contained in:
parent
b0b43cf3b0
commit
1704369fdc
@ -26,8 +26,8 @@ ses diffTerms cost (a : as) (b : bs) = case diffTerms a b of
|
||||
|
||||
diffAt :: (Integer, Integer) -> [Term String Info] -> [Term String Info] -> State (Map.Map (Integer, Integer) [(Diff String Info, Integer)]) [Diff String Info]
|
||||
diffAt _ [] [] = return []
|
||||
diffAt (i, j) [] bs = return $ (Pure . Insert) <$> bs
|
||||
diffAt (i, j) as [] = return $ (Pure . Delete) <$> as
|
||||
diffAt _ [] bs = return $ (Pure . Insert) <$> bs
|
||||
diffAt _ as [] = return $ (Pure . Delete) <$> as
|
||||
diffAt (i, j) as bs = do
|
||||
state <- get
|
||||
case Map.lookup (i, j) state of
|
||||
|
Loading…
Reference in New Issue
Block a user