From 375d834783ca58b71f8ea411b0ed34a853ee392d Mon Sep 17 00:00:00 2001 From: Matthew Craven Date: Wed, 14 Feb 2024 21:40:52 -0500 Subject: [PATCH] Remove another dead branch from toStrict 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)