minor change

[proglang.git] / Testsyntax.hs

diff --git a/Testsyntax.hs b/Testsyntax.hs
index 45f35b972d017946d22cb22f57d36d3a3b3fb690..c5c57c5d975e21feabe8def16433630fe1d11c5a 100644 (file)
--- 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