urbit-hob

commit e60780a5f87b6d9bb8fa26529615a4c305bdf451
parent ae61040977ac1ec185a39850b2a33fb65e662b23
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 13 Sep 2019 16:20:09 -0230

ob: fix hlint complaint about conditionals

Removes an unnecessary if/then/else expression.

Diffstat:
M
lib/Urbit/Ob/Ob.hs
 | 
6
++----

1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/lib/Urbit/Ob/Ob.hs b/lib/Urbit/Ob/Ob.hs
@@ -100,11 +100,9 @@ fe r a b f m = loop 1 capL capR where
   capR = m `div` a
   loop j !ell !arr
     | j > r =
-        if   odd r
+        if   odd r || arr == a
         then a * arr + ell
-        else if   arr == a
-             then a * arr + ell
-             else a * ell + arr
+        else a * ell + arr
     | otherwise =
         let eff   = f (pred j) arr
             -- NB (jtobin):