diff --git a/src/Test.hs b/src/Test.hs
index 5e2181a..19df1ad 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -305,21 +305,17 @@ checkBoundsCollision
     | otherwise                                  = V2 (0 * mr) (0 * mc)
     where
       ntestr
-        | ndistr <= hheight + 0.15 = True
+        = ndistr <= hheight + 0.15
         -- | ncdistsq <= 0.005        = True
-        | otherwise                = False
       ntestc
-        | ndistc <= hwidth + 0.15  = True
+        = ndistc <= hwidth + 0.15
         -- | ncdistsq <= 0.005        = True
-        | otherwise                = False
       testr
-        | distr <= hheight + 0.15  = True
+        = distr <= hheight + 0.15
         -- | cdistsq <= 0.005         = True
-        | otherwise                = False
       testc
-        | distc <= hwidth + 0.15   = True
+        = distc <= hwidth + 0.15
         -- | cdistsq <= 0.005         = True
-        | otherwise                = False
       ndistr = abs (fr - (fromIntegral (floor fr :: Int) + (minr + hheight)))
       ndistc = abs (fc - (fromIntegral (floor fc :: Int) + (minc + hwidth)))
       distr  = abs (pr - (fromIntegral (floor fr :: Int) + (minr + hheight)))