diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 16 |
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]" |