Cleanup

CHANGELOG.md

@@ -3,7 +3,7 @@
 * Fixed `Data.Zebra.Word.fillRange`.
   Previously it produced malformed trees in certain cases.
 
-## 1.0.0.1 -- April 2024
+## 1.0.0.1 -- May 2024
 
 * Radix tree performance tweaks
 

src/Data/Zebra/Word/Debug.hs

@@ -19,7 +19,7 @@ import           Numeric.Long
 import           Radix.Word.Foundation
 import           Radix.Word.Debug
 
-import Debug.Trace
+
 
 -- | \(\mathcal{O}(n)\).
 --   Shows the internal structure of the tree.

src/Radix/Word/Debug.hs

@@ -22,9 +22,9 @@ data S = L -- ^ Left. Masked bit of the prefix above this node must be @0@.
 validPrefix :: Prefix -> S -> Prefix -> Bool
 validPrefix p s o =
   let low = p .&. negate p
-  in even p && case s of
-                 L -> o < p && p - o < low
-                 R -> p < o && o - p < low
+  in case s of
+       L -> o < p && p - o < low
+       R -> p < o && o - p < low
 
 -- | Check whether the key below aligns with the side the branch is on.
 validKey :: Prefix -> S -> Key -> Bool

src/Radix/Word8/Debug.hs

@@ -22,9 +22,9 @@ data S = L -- ^ Left. Masked bit of the prefix above this node must be @0@.
 validPrefix :: Prefix -> S -> Prefix -> Bool
 validPrefix p s o =
   let low = p .&. negate p
-  in even p && case s of
-                 L -> o < p && p - o < low
-                 R -> p < o && o - p < low
+  in case s of
+       L -> o < p && p - o < low
+       R -> p < o && o - p < low