Removed a trace.

This commit is contained in:
Samuel Hammersberg 2023-03-29 15:29:53 +02:00
parent f69151a7ce
commit 2f12fdd7e2

View file

@ -21,7 +21,6 @@ import Data.Map (Map)
import Data.Map qualified as Map import Data.Map qualified as Map
import Data.Maybe (fromJust, fromMaybe) import Data.Maybe (fromJust, fromMaybe)
import Data.Tuple.Extra (dupe, first, second) import Data.Tuple.Extra (dupe, first, second)
import Debug.Trace (trace)
import Grammar.ErrM (Err) import Grammar.ErrM (Err)
import Monomorphizer.MonomorphizerIr as MIR import Monomorphizer.MonomorphizerIr as MIR
import TypeChecker.TypeCheckerIr qualified as TIR import TypeChecker.TypeCheckerIr qualified as TIR
@ -188,7 +187,7 @@ test v =
generateCode :: MIR.Program -> Err String generateCode :: MIR.Program -> Err String
generateCode (MIR.Program scs) = do generateCode (MIR.Program scs) = do
let codegen = initCodeGenerator scs let codegen = initCodeGenerator scs
llvmIrToString . instructions <$> execStateT (compileScs (trace (show scs) scs)) codegen llvmIrToString . instructions <$> execStateT (compileScs scs) codegen
compileScs :: [MIR.Def] -> CompilerState () compileScs :: [MIR.Def] -> CompilerState ()
compileScs [] = do compileScs [] = do