Changeset 8681 for src/Pugs/Embed

Timestamp:

01/15/06 16:49:47 (3 years ago)

Author:

audreyt

Message:

* -BPIR now returned to its full glory.
* Test.pm doesn't work yet because of named args.

Files:

• src/Pugs/Embed/Parrot.hsc (modified) (2 diffs)

src/Pugs/Embed/Parrot.hsc

@@ -28 +28 @@
     return Nothing
 
+findExecutableInDirectory :: FilePath -> FilePath -> IO (Maybe FilePath)
 findExecutableInDirectory dir cmd = do
 ##ifdef PUGS_HAVE_POSIX
@@ -34 +35 @@
     let file = dir ++ ('\\':cmd) ++ ".exe"
 ##endif
-    print ("Exisitng", file)
     ok  <- doesFileExist file
     return $ if ok then Just file else Nothing