[project @ 2004-05-10 09:22:59 by malcolm]

RawSystem inclusion belongs inside the __GLASGOW_HASKELL__ ifdef.

diff --git a/System/Cmd.hs b/System/Cmd.hs
index cb8d2d9..978c7a0 100644 (file)
--- a/System/Cmd.hs
+++ b/System/Cmd.hs
@@ -71,10 +71,11 @@ system cmd =
         n  -> return (ExitFailure n)
 
 foreign import ccall unsafe "systemCmd" primSystem :: CString -> IO Int
-#endif  /* __GLASGOW_HASKELL__ */
 
 -- ---------------------------------------------------------------------------
 -- rawSystem
 
 -- rawSystem is in a separate file, so we can #include it various places.
 #include "RawSystem.hs-inc"
+
+#endif  /* __GLASGOW_HASKELL__ */