fix some norm error

X-R-G-B · Jan 14, 2024 · b33e6bd · b33e6bd
1 parent 1c78d33
commit b33e6bd
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/lvtrun/src/Run/Vm.hs b/lvtrun/src/Run/Vm.hs
@@ -130,15 +130,12 @@ execFunctionWithIdx vm funcIdx currentStack =
       ceParams = params funcTypee, ceResults = results funcTypee}
 
 runMain :: VM -> FuncIdx -> Stack
-runMain vm funcIdx =
-  pushResults [] (vmStack newVm) (ceResults (currentExec newVm))
+runMain vm funcIdx = pushResults[](vmStack newVm)(ceResults(currentExec newVm))
   where
     function = getFunctionFromId funcIdx (functions (wasmModule vm))
     funcTypee = getFuncTypeFromId (funcType function) (types (wasmModule vm))
     cexec = createEmptyExec {
       ceLocals = createEmptyLocals [] (locals function),
       ceInstructions = body function,
-      ceParams = params funcTypee,
-      ceResults = results funcTypee
-    }
+      ceParams = params funcTypee, ceResults = results funcTypee}
     newVm = execFunction vm { currentExec = cexec }