Rename files for case-sensitive file system

1 files changed, 0 insertions, 29 deletions

diff --git a/main.hs b/main.hs
deleted file mode 100644
index b56edfe..0000000
--- a/main.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-module Main where
-
-import System.Environment
-import System.Exit
-
-import Compiler
-import Optimiser
-import Parser
-import VM
-
-
-usage :: IO ()
-usage = do
-    progname <- getProgName
-    putStrLn $ "Usage: " ++ progname ++ " [filename.lisp]"
-
-main :: IO ()
-main = do
-    clargs <- getArgs
-    source <- case clargs of
-        [] -> getContents
-        [fname] -> readFile fname
-        _ -> usage >> exitFailure
-
-    prog <- parseProgram source >>= either (die . show) return
-    irprog <- either die return (compileProgram prog)
-    let opt = optimise irprog
-    -- print opt
-    vmRun opt