X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Testsyntax.hs;h=c5c57c5d975e21feabe8def16433630fe1d11c5a;hp=45f35b972d017946d22cb22f57d36d3a3b3fb690;hb=HEAD;hpb=93b042040034d199c925248a2dd1c321773ab6d0

diff --git a/Testsyntax.hs b/Testsyntax.hs
index 45f35b9..c5c57c5 100644
--- a/Testsyntax.hs
+++ b/Testsyntax.hs
@@ -48,9 +48,9 @@ showTree v tree
 main :: IO ()
 main = do args <- getArgs
           case args of
-            [] -> hGetContents stdin >>= run 2 pStms
-            "-s":fs -> mapM_ (runFile 0 pStms) fs
-            fs -> mapM_ (runFile 2 pStms) fs
+            [] -> hGetContents stdin >>= run 2 pProgram
+            "-s":fs -> mapM_ (runFile 0 pProgram) fs
+            fs -> mapM_ (runFile 2 pProgram) fs