From 767a2a36a4b8d1b5b32eb66a5871d60d1b90e3e9 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 13 Jun 2017 20:53:01 -0400 Subject: [PATCH] Avoid unnecessary do notation. --- src/SES/Myers.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs index 37e826795..77a7c3acf 100644 --- a/src/SES/Myers.hs +++ b/src/SES/Myers.hs @@ -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