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

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