1 files changed, 0 insertions, 30 deletions
diff --git a/thue.hs b/thue.hs
deleted file mode 100644
index 89afcc3..0000000
--- a/thue.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-
-import System.Environment( getArgs )
-import Control.Exception( ErrorCall(..), Handler(..), catches )
-import Thue.Parser
-import Thue.Interpreter
-
-
-
-
-usageString :: String
-usageString = "Usage: thue <program file>"
-
-
-
-program :: IO ()
-program = do
-	args <- getArgs
-	fileContents <- if (length args /= 1)
-		            then error usageString
-		            else readFile (head args)
-
-	case (parseThue fileContents) of
-		Left x -> putStrLn (show x)
-		Right x -> (thue x) >>= (putStrLn . show)
-
-
-
-main = catches program
-               [ Handler ((\e -> putStrLn . show $ e) :: ErrorCall -> IO ()) ]
-