github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-25 11:04:00 +03:00
Code Issues Projects Releases Wiki Activity

Rejigger some parentheses to avoid a $.

Browse Source
This commit is contained in:
Rob Rix 2015-12-24 01:09:49 -05:00
parent 56aa250f96
commit 671ecc2c11
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

@ -47,4 +47,4 @@ diffAt diffTerms cost (i, j) (a : as) (b : bs) = do
recur = diffAt diffTerms cost
consWithCost :: Cost a annotation -> Diff a annotation -> [(Diff a annotation, Integer)] -> [(Diff a annotation, Integer)]
consWithCost cost diff rest = (diff, cost diff + (maybe 0 snd $ fst <$> uncons rest)) : rest
consWithCost cost diff rest = (diff, cost diff + maybe 0 snd (fst <$> uncons rest)) : rest