Changeset 4852 for src/Main.hs

Timestamp:

06/19/05 18:31:00 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* oops, unbreak Main.hs

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -304 +304 @@
 
 runPIR :: String -> IO ()
-runPIR = do
-    pir <- doCompile "PIR" "-"
+runPIR prog = do
+    pir <- doCompile "PIR" "-" prog
     writeFile "a.pir" pir
     evalParrotFile "a.pir"