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

Avoid unnecessary do notation.

Browse Source
This commit is contained in:
Rob Rix 2017-06-13 20:53:01 -04:00
parent 54149c5000
commit 767a2a36a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SES/Myers.hs
View File

@ -79,10 +79,10 @@ runSES eq (EditGraph as bs)
else if k == negate d || k == negate m then
-- The lower/left extent of the search region or edit graph, whichever is smaller.
moveDownFrom (getK (succ k))
else if k /= d && k /= n then do
else if k /= d && k /= n then
-- Somewhere in the interior of the search region and edit graph.
let prev = getK (pred k)
let next = getK (succ k)
next = getK (succ k) in
if x prev < x next then
moveDownFrom next
else