From f5bc6255002afd3d023c235f53c3da0b7fd520b5 Mon Sep 17 00:00:00 2001
From: Adam Wick <awick@uhsure.com>
Date: Fri, 4 Feb 2011 13:14:48 -0500
Subject: [PATCH] Add a -parse option for future distinguishment.

---
 hsrc/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/hsrc/Main.hs b/hsrc/Main.hs
index a6df63e..25efe81 100644
--- a/hsrc/Main.hs
+++ b/hsrc/Main.hs
@@ -28,6 +28,10 @@ main = do
             Right ress -> do
               mapM_ putStrLn ress
               putStrLn "Successful lex."
+    ["-parse",path] -> do
+      ast <- loadModule path
+      putStrLn "Successful parse!"
+      putStrLn (show ast)
     _ -> fail "Unacceptable arguments."
 
 pullTokens :: Parser [String]