From 1cca8b8dce327369a81d97e68129aa3f1da39a33 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 26 Nov 2022 16:03:45 +0100
Subject: assert actually recompiles

---
 app/Compiler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Compiler.hs')

diff --git a/app/Compiler.hs b/app/Compiler.hs
index 6ea6cbc..efa641c 100644
--- a/app/Compiler.hs
+++ b/app/Compiler.hs
@@ -48,7 +48,7 @@ compileGoals andop cut = go'
     go x = [compileGoal x]
 
 compileGoal :: PrlgInt -> Code
-compileGoal = compileArg
+compileGoal = compileArg . struct2goal
 
 compileArg :: PrlgInt -> Code
 compileArg (CallI s args) = U (Struct s) : concatMap compileArg args
-- 
cgit v1.2.3