From ca9539c9cb8140eb73054059ef059fa37819c0b4 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 9 Mar 2017 13:48:16 -0500 Subject: [PATCH] :fire: isOdd in favour of odd. :tophat: @tclem. --- src/SES/Myers.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs index c9ff1577a..626de8183 100644 --- a/src/SES/Myers.hs +++ b/src/SES/Myers.hs @@ -78,9 +78,6 @@ at v (Diagonal k) = do overlaps :: Endpoint -> Endpoint -> Bool overlaps (Endpoint x y) (Endpoint u v) = x - y == u - v && x <= u -isOdd :: Integral a => a -> Bool -isOdd = (== 1) . (`mod` 2) - inInterval :: Ord a => a -> (a, a) -> Bool inInterval k (lower, upper) = k >= lower && k <= upper