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

---
 test/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/Main.hs b/test/Main.hs
index b234aa2..dde2c3d 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -212,7 +212,7 @@ adTestGen expr envGenerator = property $ do
       scFwd = envScalars env gradFwd
       scCHAD = envScalars env gradCHAD
       scCHAD_S = envScalars env gradCHAD_S
-  annotate (concat (unSList (\t -> ppTy 0 t ++ " -> ") env) ++ ppTy 0 (typeOf expr))
+  annotate (concat (unSList (\t -> ppSTy 0 t ++ " -> ") env) ++ ppSTy 0 (typeOf expr))
   -- annotate (ppExpr knownEnv expr)
   -- annotate ppdterm
   -- annotate ppdterm_S
-- 
cgit v1.2.3-70-g09d2