From cce22d561bf529b924fa2cd19d9777125b5ffd88 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Tue, 24 Jan 2023 23:35:06 +0100
Subject: load loads.

---
 app/Interpreter.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'app/Interpreter.hs')

diff --git a/app/Interpreter.hs b/app/Interpreter.hs
index 439418c..1ef39f9 100644
--- a/app/Interpreter.hs
+++ b/app/Interpreter.hs
@@ -317,4 +317,8 @@ proveStep = St.get >>= go
                   nchos
               }
     {- The End -}
-    go _ = ifail "code broken: impossible instruction combo"
+    go i =
+      ifail $
+      "code broken: impossible instruction combo hed=" ++
+      show (hed . cur $ i) ++
+      " gol=" ++ show (gol . cur $ i) ++ " stk=" ++ show (stk . cur $ i)
-- 
cgit v1.2.3