From b020a5f7783294770b3ead5b969f108733be7711 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Wed, 11 Feb 2015 20:39:21 -0500 Subject: Write tangle --- src/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index d69710c..74ea1d2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -18,6 +18,7 @@ import System.Environment (getArgs) import System.Exit (exitFailure) import Fragment (parseFile, parseStdin) +import Tangle (tangle) main :: IO () main = do @@ -26,7 +27,9 @@ main = do [] -> parseStdin [f] -> parseFile f _ -> usage >> exitFailure - print parsed + case parsed of + Left err -> print err >> exitFailure + Right ok -> print $ tangle ok usage :: IO () usage = putStrLn "usage: lyt [file]" -- cgit v1.2.3