From: malcolm <unknown>
Date: Mon, 10 May 2004 09:22:59 +0000 (+0000)
Subject: [project @ 2004-05-10 09:22:59 by malcolm]
X-Git-Tag: nhc98-1-18-release~321
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f37ee04dfd080098c5c0c781a920e9fbe6bb0624;p=ghc-base.git

[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
--- 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__ */