From 05d0194ee4da9fee8e7c08a74fd19fc8e669ae33 Mon Sep 17 00:00:00 2001
From: Cyril Sobierajewicz <sobierajewicz.cyril@gmail.com>
Date: Mon, 28 Dec 2020 12:37:13 +0100
Subject: [PATCH] Replace Data.Array.ST.empty by Data.Array.ST.new

---
 src/Data/Array.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Array.purs b/src/Data/Array.purs
index 17e5e804..ae535298 100644
--- a/src/Data/Array.purs
+++ b/src/Data/Array.purs
@@ -611,7 +611,7 @@ intersperse a arr = case length arr of
   len | len < 2 -> arr
       | otherwise -> STA.run do
           let unsafeGetElem idx = unsafePartial (unsafeIndex arr idx)
-          out <- STA.empty
+          out <- STA.new
           _ <- STA.push (unsafeGetElem 0) out
           ST.for 1 len \idx -> do
             _ <- STA.push a out