From 281425310c5db21f87981eeb9601a71d1974d98d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 10 Apr 2014 05:25:03 +1000
Subject: Rearranging files

---
 unlambda.hs | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 unlambda.hs

(limited to 'unlambda.hs')

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