fix examples to run process /bin/date well : System.Process uses cmd or command.com shell on Windows, doen't use Cygwin or MSYS shell

2005-05-21 11:23:18 +00:00
parent 685ba637b6
commit 491477aeac
5 changed files with 18 additions and 3 deletions
--- a/examples/makewith/io/TestIO.conf.in
+++ b/examples/makewith/io/TestIO.conf.in
@ -13,5 +13,10 @@ resource = testio { field = date }
 -- call a shell command , returning it's output
 --
 date :: IO String
-date = do (_,out,_,_) <- catch (runInteractiveCommand "/bin/date") (\_->error "popen failed")
+date = do
+#if !defined(CYGWIN) || !defined(__MINGW32__)
+          (_,out,_,_) <- catch (runInteractiveCommand "/bin/date") (\_->error "popen failed")
+#else
+          (_,out,_,_) <- catch (runInteractiveCommand "@PREFIX@/../../bin/date") (\_->error "popen failed")
+#endif
          hGetLine out