From 30314e18f48851edc3d39315ac4dd3f60a0a8421 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 26 Oct 2024 21:28:28 +0200
Subject: Show accumulator as dummy string, not error

---
 src/Interpreter/Rep.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Interpreter/Rep.hs b/src/Interpreter/Rep.hs
index baf38fc..7ef9088 100644
--- a/src/Interpreter/Rep.hs
+++ b/src/Interpreter/Rep.hs
@@ -10,6 +10,7 @@ import GHC.TypeError
 
 import Array
 import AST
+import AST.Pretty
 
 
 type family Rep t where
@@ -74,4 +75,4 @@ showValue _ (STScal sty) x = case sty of
   STI32 -> shows x
   STI64 -> shows x
   STBool -> shows x
-showValue _ STAccum{} _ = error "Cannot show accumulators"
+showValue _ (STAccum t) _ = showString $ "<accumulator for " ++ ppTy 0 t ++ ">"
-- 
cgit v1.2.3-70-g09d2