Bit testing can use unsafeRead because the length was verified

travitch · Mar 24, 2024 · 2992d7e · 2992d7e
1 parent ceb340a
commit 2992d7e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Data/Graph/Haggle/Internal/BitSet.hs b/src/Data/Graph/Haggle/Internal/BitSet.hs
@@ -44,6 +44,5 @@ testBit (BS v sz) bitIx
   | otherwise = do
     let wordIx = bitIx `div` bitsPerWord
         bitPos = bitIx `mod` bitsPerWord
-    w <- V.read v wordIx
+    w <- V.unsafeRead v wordIx
     return $ B.testBit w bitPos
-