1 files changed, 0 insertions, 34 deletions
diff --git a/devel/compiler/Top.hs b/devel/compiler/Top.hs
deleted file mode 100644
index 64a8a6f70..000000000
--- a/devel/compiler/Top.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-module Main where
-
-import IO ( stdin, hGetContents )
-import System ( getArgs, getProgName )
-
-import LexSrc
-import ParSrc
-import SkelSrc
-import PrintSrc
-import AbsSrc
-
-import Compile
-import PrEnv
-
-import ErrM
-
-type ParseFun a = [Token] -> Err a
-
-myLLexer = myLexer
-
-runFile :: ParseFun Grammar -> FilePath -> IO ()
-runFile p f = readFile f >>= run p
-
-run :: ParseFun Grammar -> String -> IO ()
-run p s = let ts = myLLexer s in case p ts of
-           Bad s    -> do putStrLn "Parse Failed...\n"
-                          putStrLn s
-           Ok  tree -> prEnv $ compile tree
-
-main :: IO ()
-main = do args <- getArgs
-          case args of
-            fs -> mapM_ (runFile pGrammar) fs
-