add better error control

lvtrun/app/Errors.hs

@@ -0,0 +1,19 @@
+{-
+-- EPITECH PROJECT, 2023
+-- Leviator Run
+-- File description:
+-- Errors
+-}
+
+module Errors
+  (
+    exitWithError
+  )
+where
+
+import System.Exit (exitWith, ExitCode(..))
+
+exitWithError :: String -> IO a
+exitWithError msg = do
+  putStrLn msg
+  exitWith $ ExitFailure 84

lvtrun/app/Main.hs

@@ -8,7 +8,6 @@
 module Main (main) where
 
 import WasmMod.Module
-import WasmMod.Header
 
 main :: IO ()
 main = do

lvtrun/app/WasmMod/Module.hs

@@ -13,10 +13,12 @@ module WasmMod.Module
 where
 
 import qualified Data.ByteString as BS (ByteString, unpack, readFile)
+import Control.Monad (when)
 import Numeric (showHex)
 
 import WasmMod.Header
 import WasmMod.Sections
+import Errors
 
 data WasmModule = WasmModule {
   header :: ModHeader,
@@ -37,4 +39,7 @@ getFileContent path = BS.readFile path
 loadModule :: String -> IO WasmModule
 loadModule filePath = do
     bytes <- getFileContent filePath
-    return $ WasmModule (getModuleHeader bytes) []
+    let modHeader = getModuleHeader bytes
+    when (not $ isHeaderValid modHeader) $ exitWithError "Invalid header"
+    let modSections = []
+    return $ WasmModule modHeader modSections

lvtrun/lvtrun.cabal

@@ -41,6 +41,7 @@ library
 executable lvtrun-exe
   main-is: Main.hs
   other-modules:
+      Errors
       WasmMod.Header
       WasmMod.Module
       WasmMod.Sections