added comment when codegen ok

src/Main.hs

@@ -16,16 +16,26 @@ import           Data.List.Extra             (isSuffixOf)
 
 import Compiler (compile)
 import Renamer.Renamer (rename)
-import           System.Directory            (createDirectory, doesPathExist,
+import System.Directory (
+    createDirectory,
+    doesPathExist,
     getDirectoryContents,
     removeDirectoryRecursive,
-                                              setCurrentDirectory)
+    setCurrentDirectory,
+ )
 import System.Environment (getArgs)
-import           System.Exit                 (ExitCode, exitFailure,
+import System.Exit (
-                                              exitSuccess)
+    ExitCode,
+    exitFailure,
+    exitSuccess,
+ )
 import System.IO (stderr)
-import           System.Process.Extra        (readCreateProcess, shell,
+import System.Process.Extra (
-                                              spawnCommand, waitForProcess)
+    readCreateProcess,
+    shell,
+    spawnCommand,
+    waitForProcess,
+ )
 import TypeChecker.TypeChecker (typecheck)
 
 main :: IO ()
@@ -57,6 +67,7 @@ main' debug s = do
     --
     printToErr "\n -- Compiler --"
     generatedCode <- fromCompilerErr $ generateCode (monomorphize typechecked)
+    putStrLn "Generation of code successful"
     -- putStrLn generatedCode
 
     check <- doesPathExist "output"