[project @ 2005-07-23 13:28:24 by ross]

Hugs: omit commandToProcess

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index fc527e9..a7918b5 100644 (file)
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -27,7 +27,9 @@ module System.Process.Internals (
        runProcessWin32, translate,
 # endif
 #endif
+#ifndef __HUGS__
        commandToProcess,
+#endif
        withFilePathException, withCEnvironment
   ) where
 
@@ -269,6 +271,7 @@ translate str = '"' : snd (foldr escape (True,"\"") str)
 
 #endif
 
+#ifndef __HUGS__
 -- ----------------------------------------------------------------------------
 -- commandToProcess
 
@@ -344,6 +347,8 @@ foreign import stdcall unsafe "__hscore_get_osver"
   c_get_osver :: IO CUInt
 #endif
 
+#endif /* __HUGS__ */
+
 -- ----------------------------------------------------------------------------
 -- Utils