module System.Cmd
( system, -- :: String -> IO ExitCode
+#ifndef __HUGS__
rawSystem, -- :: String -> IO ExitCode
+#endif
) where
import Prelude
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
foreign import ccall unsafe "rawSystemCmd" primRawSystem :: CString -> IO Int
+#endif /* __HUGS__ */