diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-04-10 05:25:03 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-10 05:25:03 +1000 |
| commit | 281425310c5db21f87981eeb9601a71d1974d98d (patch) | |
| tree | bef4643d906c93622c311fef2cf758fe94f1f651 /unlambda.hs | |
| parent | e8695600977769008f285f9958eb043cca1b9b29 (diff) | |
Rearranging files
Diffstat (limited to 'unlambda.hs')
| -rw-r--r-- | unlambda.hs | 30 |
1 files changed, 0 insertions, 30 deletions
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 ()) ] - |