From 6ee42109efd5f12e0203f48319ba69cc0b7fdb06 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Sat, 23 Jul 2005 13:28:24 +0000
Subject: [PATCH] [project @ 2005-07-23 13:28:24 by ross] Hugs: omit
 commandToProcess

---
 System/Process/Internals.hs |    5 +++++
 1 file changed, 5 insertions(+)

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