From 4941d9914af73ca405d423ecad076e5e21936302 Mon Sep 17 00:00:00 2001 From: Matthew Craven Date: Tue, 9 Apr 2024 16:59:06 -0400 Subject: [PATCH] Remove another dead branch from toStrict (#663) Looking at a test coverage report brought it to my attention. --- Data/ByteString/Lazy/Internal.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Data/ByteString/Lazy/Internal.hs b/Data/ByteString/Lazy/Internal.hs index b0eefacef..3d520b9f2 100644 --- a/Data/ByteString/Lazy/Internal.hs +++ b/Data/ByteString/Lazy/Internal.hs @@ -355,7 +355,6 @@ toStrict = \cs -> goLen0 cs cs -- Copy the data goCopy Empty !_ = return () - goCopy (Chunk (S.BS _ 0 ) cs) !ptr = goCopy cs ptr goCopy (Chunk (S.BS fp len) cs) !ptr = do S.memcpyFp ptr fp len goCopy cs (ptr `S.plusForeignPtr` len)