diff --git a/src/Main.hs b/src/Main.hs
index 432e038..7a718ad 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,31 +2,41 @@
 
 module Main where
 
-import           Codegen.Codegen             (generateCode)
-import           Data.Bool                   (bool)
-import           GHC.IO.Handle.Text          (hPutStrLn)
-import           Grammar.ErrM                (Err)
-import           Grammar.Par                 (myLexer, pProgram)
-import           Grammar.Print               (printTree)
+import Codegen.Codegen (generateCode)
+import Data.Bool (bool)
+import GHC.IO.Handle.Text (hPutStrLn)
+import Grammar.ErrM (Err)
+import Grammar.Par (myLexer, pProgram)
+import Grammar.Print (printTree)
 
-import           Monomorphizer.Monomorphizer (monomorphize)
+import Monomorphizer.Monomorphizer (monomorphize)
 
-import           Control.Monad               (when)
-import           Data.List.Extra             (isSuffixOf)
+import Control.Monad (when)
+import Data.List.Extra (isSuffixOf)
 
-import           Compiler                    (compile)
-import           Renamer.Renamer             (rename)
-import           System.Directory            (createDirectory, doesPathExist,
-                                              getDirectoryContents,
-                                              removeDirectoryRecursive,
-                                              setCurrentDirectory)
-import           System.Environment          (getArgs)
-import           System.Exit                 (ExitCode, exitFailure,
-                                              exitSuccess)
-import           System.IO                   (stderr)
-import           System.Process.Extra        (readCreateProcess, shell,
-                                              spawnCommand, waitForProcess)
-import           TypeChecker.TypeChecker     (typecheck)
+import Compiler (compile)
+import Renamer.Renamer (rename)
+import System.Directory (
+    createDirectory,
+    doesPathExist,
+    getDirectoryContents,
+    removeDirectoryRecursive,
+    setCurrentDirectory,
+ )
+import System.Environment (getArgs)
+import System.Exit (
+    ExitCode,
+    exitFailure,
+    exitSuccess,
+ )
+import System.IO (stderr)
+import System.Process.Extra (
+    readCreateProcess,
+    shell,
+    spawnCommand,
+    waitForProcess,
+ )
+import TypeChecker.TypeChecker (typecheck)
 
 main :: IO ()
 main =
@@ -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"