Changeset 14349 for src/Pugs/Prim.hs

Timestamp:

10/17/06 08:25:59 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

21206

Message:

* Pugs.Prim: foo.exe - make it nonfatal.

Files:

• src/Pugs/Prim.hs (modified) (1 diff)

src/Pugs/Prim.hs

@@ -473 +473 @@
     str <- fromVal v
     cxt <- asks envContext
-    (res, exitCode) <- guardIO $ do
+    (res, exitCode) <- tryIO ("", ExitFailure (-1)) $ do
         (inp,out,_,pid) <- runInteractiveCommand (encodeUTF8 str)
         hClose inp