Parse fragments

1 files changed, 15 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index f569b1a..d69710c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -14,5 +14,19 @@ this program.  If not, see <http://www.gnu.org/licenses/>. -}
 
 module Main where
 
+import System.Environment (getArgs)
+import System.Exit (exitFailure)
+
+import Fragment (parseFile, parseStdin)
+
 main :: IO ()
-main = putStrLn "Hello, world!"
+main = do
+  args <- getArgs
+  parsed <- case args of
+              [] -> parseStdin
+              [f] -> parseFile f
+              _ -> usage >> exitFailure
+  print parsed
+
+usage :: IO ()
+usage = putStrLn "usage: lyt [file]"