From: panne <unknown>
Date: Sat, 14 Jun 2003 16:54:24 +0000 (+0000)
Subject: [project @ 2003-06-14 16:54:24 by panne]
X-Git-Tag: Approx_11550_changesets_converted~768
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=984c225de77786cdb289001082166e77cc3e8733;p=ghc-hetmet.git

[project @ 2003-06-14 16:54:24 by panne]
Attempt to fix the nightly builds (untested):
Use our forefathers' syntax to import rawSystem
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index f9138cd..6cde1ad 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -745,7 +745,7 @@ rawSystem cmd args =
             0  -> return ExitSuccess
             n  -> return (ExitFailure n)
 
-foreign import ccall unsafe "rawSystem"
+foreign import ccall "rawSystem" unsafe
   c_rawSystem :: CString -> Ptr CString -> IO Int
 
 #else
@@ -770,7 +770,7 @@ translate str = '"' : foldr escape "\"" str
 	escape '\\' str = '\\' : '\\' : str
 	escape c    str = c : str
 
-foreign import ccall unsafe "rawSystem"
+foreign import ccall "rawSystem" unsafe
   c_rawSystem :: CString -> IO Int
 
 #endif