Changeset 15616 for src/Pugs/Prim/FileTest.hs

Timestamp:

03/12/07 01:43:31 (19 months ago)

Author:

audreyt

Message:

* Change all liftSTM into stm and all liftIO into io.

Files:

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

src/Pugs/Prim/FileTest.hs

@@ -49 +49 @@
 fileTestViaPerl5 testOp v = do
     env     <- ask
-    envSV   <- liftIO $ mkEnv env
+    envSV   <- io $ mkEnv env
     argSV   <- fromVal v
-    subSV   <- liftIO $ evalPerl5 ("sub { -" ++ testOp ++ " $_[0] }") envSV (enumCxt cxtItemAny)
+    subSV   <- io $ evalPerl5 ("sub { -" ++ testOp ++ " $_[0] }") envSV (enumCxt cxtItemAny)
     rv      <- runInvokePerl5 subSV nullSV [argSV]
     return $ case rv of