[project @ 2002-09-02 11:20:50 by ross]

[ghc-base.git] / System / Cmd.hs

diff --git a/System/Cmd.hs b/System/Cmd.hs
index b4bb038..f5c85ec 100644 (file)
--- a/System/Cmd.hs
+++ b/System/Cmd.hs
@@ -14,7 +14,9 @@
 
 module System.Cmd
     ( system,        -- :: String -> IO ExitCode
+#ifndef __HUGS__
       rawSystem,     -- :: String -> IO ExitCode
+#endif
     ) where
 
 import Prelude
@@ -66,7 +68,6 @@ system cmd =
         n  -> return (ExitFailure n)
 
 foreign import ccall unsafe "systemCmd" primSystem :: CString -> IO Int
-#endif  /* __HUGS__ */
 
 {- | 
 The same as 'system', but bypasses the shell.  Will behave more portably between
@@ -84,3 +85,4 @@ rawSystem cmd =
 
 foreign import ccall unsafe "rawSystemCmd" primRawSystem :: CString -> IO Int
 
+#endif  /* __HUGS__ */