From 6e85d5b2aee0cf2c089538e74261f1d88d6b1b71 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 26 Mar 2025 23:47:59 +0100
Subject: test: Start of a list of compile tests

---
 src/Array.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/Array.hs b/src/Array.hs
index 059600f..707dce2 100644
--- a/src/Array.hs
+++ b/src/Array.hs
@@ -88,6 +88,9 @@ emptyArray n = Array (emptyShape n) V.empty
 arrayFromList :: Shape n -> [t] -> Array n t
 arrayFromList sh l = Array sh (V.fromListN (shapeSize sh) l)
 
+arrayToList :: Array n t -> [t]
+arrayToList (Array _ v) = V.toList v
+
 arrayUnit :: t -> Array Z t
 arrayUnit x = Array ShNil (V.singleton x)
 
-- 
cgit v1.2.3-70-g09d2