From 1500c62e5167e66fac42421a0268833cc1668f45 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Wed, 24 Feb 2021 17:28:43 +0100
Subject: [PATCH] oops that doesn't need to be unsafe

---
 src/IPS/Apply.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/IPS/Apply.hs b/src/IPS/Apply.hs
index d4c1bf5..6124ccd 100644
--- a/src/IPS/Apply.hs
+++ b/src/IPS/Apply.hs
@@ -20,7 +20,7 @@ unsafeApplyM p buf =
         let offset' = fromIntegral offset
         let sz = Vector.length bs
         let dst = MVector.slice offset' sz buf
-        Vector.unsafeCopy dst bs
+        Vector.copy dst bs
       RLE {size, value} -> do
         let offset' = fromIntegral offset
         let sz = fromIntegral size