1
1
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:
Rob Rix 2015-11-30 16:53:04 -05:00
parent b0b43cf3b0
commit 1704369fdc

View File

@ -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