From 73c2e989ee084a1939bd314c4cb0da899292fb30 Mon Sep 17 00:00:00 2001
From: "Trevor L. McDonell" <trevor.mcdonell@gmail.com>
Date: Sat, 9 Sep 2023 16:00:35 +0200
Subject: [PATCH] export acoerceOp

---
 src/Data/Array/Accelerate.hs             | 3 +--
 src/Data/Array/Accelerate/Interpreter.hs | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Data/Array/Accelerate.hs b/src/Data/Array/Accelerate.hs
index 0c6508ad3..a3a25937f 100644
--- a/src/Data/Array/Accelerate.hs
+++ b/src/Data/Array/Accelerate.hs
@@ -51,7 +51,7 @@
 --   reference implementation defining the semantics of the Accelerate language
 --
 -- * <http://hackage.haskell.org/package/accelerate-llvm-native accelerate-llvm-native>:
---   implementation supporting parallel execution on multicore CPUs (e.g. x86).
+--   implementation supporting parallel execution on multicore CPUs (e.g. x86-64, AARCH64).
 --
 -- * <http://hackage.haskell.org/package/accelerate-llvm-ptx accelerate-llvm-ptx>:
 --   implementation supporting parallel execution on CUDA-capable NVIDIA GPUs.
@@ -700,4 +700,3 @@ arrayReshape = S.reshape
 --  * <https://hackage.haskell.org/package/accelerate-io-serialise accelerate-io-serialise>: binary serialisation of arrays using <https://hackage.haskell.org/package/serialise serialise>
 --  * <https://hackage.haskell.org/package/accelerate-io-vector accelerate-io-vector>: efficient boxed and unboxed one-dimensional arrays
 --
-
diff --git a/src/Data/Array/Accelerate/Interpreter.hs b/src/Data/Array/Accelerate/Interpreter.hs
index 7c5a9583c..101cb6a5c 100644
--- a/src/Data/Array/Accelerate/Interpreter.hs
+++ b/src/Data/Array/Accelerate/Interpreter.hs
@@ -41,7 +41,7 @@ module Data.Array.Accelerate.Interpreter (
   run, run1, runN,
 
   -- Internal (hidden)
-  evalPrim, evalBitcastScalar, atraceOp,
+  evalPrim, evalBitcastScalar, atraceOp, acoerceOp,
 
 ) where