Remove redundant do's

This commit is contained in:
slotThe
2019-10-09 18:34:03 +02:00
parent c3bb1cb2e7
commit bcd4dde298
15 changed files with 29 additions and 30 deletions

View File

@@ -113,7 +113,7 @@ applyMaster f k _ frac wksp rect = do
let st= S.stack wksp
let ws = S.integrate' $ st
let n = length ws + fromEnum f
if n > 1 then do
if n > 1 then
if(n<=k) then
return ((divideCol rect ws), Nothing)
else do