From 0e1f435314b382cb78056f04d0997df43e4f8fcf Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Mon, 26 Mar 2018 21:34:51 +0200
Subject: Rename files for case-sensitive file system

---
 main.hs | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 main.hs

(limited to 'main.hs')

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
-- 
cgit v1.2.3-54-g00ecf