From: ross <unknown>
Date: Sat, 23 Jul 2005 13:28:24 +0000 (+0000)
Subject: [project @ 2005-07-23 13:28:24 by ross]
X-Git-Tag: cmm-merge2~43
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6ee42109efd5f12e0203f48319ba69cc0b7fdb06;p=haskell-directory.git

[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
--- 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