Update Data/ByteString/Internal/Pure.hs

Co-authored-by: Matthew Craven <[email protected]>
haskell · Jan 16, 2024 · d0150ce · d0150ce
1 parent f9b2775
commit d0150ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/ByteString/Internal/Pure.hs b/Data/ByteString/Internal/Pure.hs
@@ -120,7 +120,7 @@ find_maximum !m !p !plast = do
     else find_maximum c' (plusPtr p 1) plast
 
 findMinimum :: Ptr Word8 -> Int -> IO Word8
-findMinimum !p !n = find_minimum maxBound p (plusPtr p (n - 1))
+findMinimum !p !n = assert (n > 0) $ find_minimum maxBound p (plusPtr p (n - 1))
 
 find_minimum :: Word8 -> Ptr Word8 -> Ptr Word8 -> IO Word8
 find_minimum !m !p !plast = do