diff options
author | Benjamin Barenblat <bbaren@mit.edu> | 2015-02-11 20:39:21 -0500 |
---|---|---|
committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-02-11 20:39:21 -0500 |
commit | b020a5f7783294770b3ead5b969f108733be7711 (patch) | |
tree | 49b46658139f6538d7d12f762550022f604208f0 /src/Main.hs | |
parent | 0c384514d88e58eeac0c62e5ec370ffbdc5ae202 (diff) |
Write tangle
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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]" |