diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 872cad9..646d967 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -3,7 +3,7 @@ module Main ) where import Language.Elna.CommandLine (CommandLine(..), commandLine, execParser) -import Language.Elna.PrinterWriter (riscv32Elf, riscv32Header) +import Language.Elna.PrinterWriter (riscv32Elf) import Language.Elna.Object.Elf (elfObject) import Language.Elna.Parser (programP) import Language.Elna.NameAnalysis (nameAnalysis) @@ -28,7 +28,7 @@ main = execParser commandLine >>= withCommandLine let symbolTable = nameAnalysis program _ = typeAnalysis symbolTable program intermediate' = intermediate symbolTable program - in elfObject output riscv32Header + in elfObject output $ riscv32Elf $ generateCode symbolTable intermediate' withParsedInput _ (Left errorBundle) = putStrLn |