From 0cea6155700432c3830d1a93432e810521fe5f4f Mon Sep 17 00:00:00 2001
From: mikamikasuki <211269698+mikamikasuki@users.noreply.github.com>
Date: Fri, 2 Oct 2026 12:14:38 -0700
Subject: [PATCH] Avoid initializing generic vector clones

---
 vector/src/Data/Vector/Generic.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vector/src/Data/Vector/Generic.hs b/vector/src/Data/Vector/Generic.hs
index 85e2f6db..389a1719 100644
--- a/vector/src/Data/Vector/Generic.hs
+++ b/vector/src/Data/Vector/Generic.hs
@@ -2650,7 +2650,7 @@ clone :: Vector v a => v a -> New v a
 {-# INLINE_FUSED clone #-}
 clone v = v `seq` New.create (
   do
-    mv <- M.new (basicLength v)
+    mv <- M.unsafeNew (basicLength v)
     unsafeCopy mv v
     return mv)