diff --git a/project.cabal b/project.cabal index eccbaa4..60ff6fb 100644 --- a/project.cabal +++ b/project.cabal @@ -24,7 +24,7 @@ executable compiler ByteCode.ByteUtil, ByteCode.ClassFile, ByteCode.Assembler, - ByteCode.Generator, + ByteCode.Builder, ByteCode.Constants test-suite tests @@ -47,5 +47,5 @@ test-suite tests ByteCode.ByteUtil, ByteCode.ClassFile, ByteCode.Assembler, - ByteCode.Generator, + ByteCode.Builder, ByteCode.Constants diff --git a/src/ByteCode/Generator.hs b/src/ByteCode/Builder.hs similarity index 98% rename from src/ByteCode/Generator.hs rename to src/ByteCode/Builder.hs index d6a8980..dfebf89 100644 --- a/src/ByteCode/Generator.hs +++ b/src/ByteCode/Builder.hs @@ -1,4 +1,4 @@ -module ByteCode.Generator where +module ByteCode.Builder where import ByteCode.Constants import ByteCode.ClassFile (ClassFile (..), ConstantInfo (..), MemberInfo(..), Operation(..), Attribute(..), opcodeEncodingLength) diff --git a/src/Main.hs b/src/Main.hs index 27bf217..3f4c329 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -4,7 +4,7 @@ import Example import Typecheck import Parser.Lexer (alexScanTokens) import Parser.JavaParser -import ByteCode.Generator +import ByteCode.Builder import ByteCode.ClassFile import Data.ByteString (pack, writeFile) import System.Environment @@ -12,9 +12,9 @@ import System.FilePath.Posix (takeDirectory) main = do args <- getArgs - let filename = if (length args) > 0 - then args!!0 - else error "Missing filename, I need to know what to compile" + let filename = if null args + then error "Missing filename, I need to know what to compile" + else args!!0 let outputDirectory = takeDirectory filename print ("Compiling " ++ filename) file <- readFile filename