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

Stub in a diffAt function.

Browse Source
This commit is contained in:
Rob Rix 2015-11-30 16:02:37 -05:00
parent 71dccbdf6e
commit efee13fd63
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/SES.hs
View File

@ -4,7 +4,9 @@ import Patch
import Diff
import Term
import Control.Monad.Free
import Control.Monad.State
import Data.Foldable (minimumBy)
import Data.Map
import Data.Ord (comparing)
type Compare a annotation = Term a annotation -> Term a annotation -> Maybe (Diff a annotation)
@ -21,3 +23,6 @@ ses diffTerms cost (a : as) (b : bs) = case diffTerms a b of
insert = (Pure . Insert $ b) : ses diffTerms cost (a : as) bs
sumCost script = sum $ cost <$> script
copy diff = diff : ses diffTerms cost as bs
diffAt :: (Integer, Integer) -> [(Term String Info)] -> [(Term String Info)] -> State (Map (Integer, Integer) [(Diff String Info, Integer)]) [Diff String Info]
diffAt (i, j) as bs = _