github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Remove needless parens.

Browse Source
This commit is contained in:
Rob Rix 2015-11-30 16:17:37 -05:00
parent 4a3c63473e
commit e4c7ce28c0
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

@ -24,5 +24,5 @@ ses diffTerms cost (a : as) (b : bs) = case diffTerms a b of
sumCost script = sum $ cost <$> script sumCost script = sum $ cost <$> script
copy diff = diff : ses diffTerms cost as bs copy diff = diff : ses diffTerms cost as bs
diffAt :: (Integer, Integer) -> [(Term String Info)] -> [(Term String Info)] -> State (Map.Map (Integer, Integer) [(Diff String Info, Integer)]) [Diff String Info] diffAt :: (Integer, Integer) -> [Term String Info] -> [Term String Info] -> State (Map.Map (Integer, Integer) [(Diff String Info, Integer)]) [Diff String Info]
diffAt (i, j) as bs = _ diffAt (i, j) as bs = _