diff options
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]" |