diff options
Diffstat (limited to 'app/Interpreter.hs')
| -rw-r--r-- | app/Interpreter.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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) |