From 0bb3f8f85a3fef1fc6481eaf9b280989f390ba30 Mon Sep 17 00:00:00 2001
From: Tenshi <tenshii.tv@gmail.com>
Date: Sun, 14 Jan 2024 23:40:02 +0100
Subject: [PATCH] fix norm

---
 lvtrun/src/Run/Vm.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lvtrun/src/Run/Vm.hs b/lvtrun/src/Run/Vm.hs
index 3fc31d9..9b7c161 100644
--- a/lvtrun/src/Run/Vm.hs
+++ b/lvtrun/src/Run/Vm.hs
@@ -127,7 +127,8 @@ executeElse cEx@(CurrentExec {ceStack = stack}) =
 execIf :: CurrentExec -> CurrentExec
 execIf cEx@(CurrentExec {ceStack = stack}) = case stackTop stack of
   I_32 0 -> goToEndInstruction cEx
-  I_32 1 -> executeElse (addLabel (cEx { crBlockIndents = (crBlockIndents cEx) + 1 }))
+  I_32 1 ->
+    executeElse (addLabel (cEx { crBlockIndents = (crBlockIndents cEx) + 1 }))
   I_32 _ -> throw $ RuntimeError "execIf: bad if statement"
   _ -> throw $ RuntimeError "execIf: bad type"