Add top-level of pretty printerHEADmaster

1 files changed, 6 insertions, 2 deletions

diff --git a/app/Main.hs b/app/Main.hs
index a81cf7c..409fa18 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,9 +1,13 @@
 import GSA
 
-import qualified Data.Text.IO as T (readFile)
+import qualified Data.Text.IO as T (readFile, writeFile)
 import Data.Text (Text)
 
 main :: IO ()
 main = do
   t <- T.readFile "main.gsa"
-  print $ parse "main.gsa" t
+  let p = case parse "main.gsa" t of
+            Left s -> error s
+            Right p' -> p'
+  print p
+  T.writeFile "main_out.gsa" $ programPrinter p