X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FCmd.hs;h=f5c85ecb7449e56779d639df05114ac67df2de87;hb=7fcfe821e3900658a8396db15cc6995acea3db65;hp=b4bb038728eb5826ea0db3cce10be9171a7d552e;hpb=30c6b2c1e57c8724fac6c284ace227584bccfb0b;p=ghc-base.git

diff --git a/System/Cmd.hs b/System/Cmd.hs
index b4bb038..f5c85ec 100644
--- 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__ */