From 7fa10a9a07c7160531baf595d1111277c17a38b2 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 25 Feb 2025 23:56:16 +0100
Subject: Compile: Emit structs in proper order

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

(limited to 'src/Interpreter')

diff --git a/src/Interpreter/Rep.hs b/src/Interpreter/Rep.hs
index 335ad1f..ac06915 100644
--- a/src/Interpreter/Rep.hs
+++ b/src/Interpreter/Rep.hs
@@ -76,7 +76,7 @@ showValue _ (STScal sty) x = case sty of
   STI32 -> shows x
   STI64 -> shows x
   STBool -> shows x
-showValue _ (STAccum t) _ = showString $ "<accumulator for " ++ ppTy 0 t ++ ">"
+showValue _ (STAccum t) _ = showString $ "<accumulator for " ++ ppSTy 0 t ++ ">"
 
 showEnv :: SList STy env -> SList Value env -> String
 showEnv = \env vals -> "[" ++ intercalate ", " (showEntries env vals) ++ "]"
-- 
cgit v1.2.3-70-g09d2