From 23b9921553ef926e99b69171466524ed5d0bb0d5 Mon Sep 17 00:00:00 2001
From: Greg Hale <imalsogreg@gmail.com>
Date: Tue, 21 Nov 2023 15:59:54 -0800
Subject: [PATCH] Remove use of deprecated function from primitive

---
 src/Crypto/Hash/PoseidonNative.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Crypto/Hash/PoseidonNative.hs b/src/Crypto/Hash/PoseidonNative.hs
index fb409c49a..b89644908 100644
--- a/src/Crypto/Hash/PoseidonNative.hs
+++ b/src/Crypto/Hash/PoseidonNative.hs
@@ -180,7 +180,7 @@ getC :: Int -> Int -> Integer
 getC = \ti i ->
   cData `SmallArray.indexSmallArray` ti `Array.indexArray` i
   where
-  cData = SmallArray.smallArrayFromList $ map Array.fromList
+  cData = SmallArray.smallArrayFromList $ map Array.arrayFromList
     [
       [
         0x09c46e9ec68e9bd4fe1faaba294cba38a71aa177534cdd1b6c7dc0dbd0abd7a7,