From: simonmar <unknown>
Date: Wed, 24 Apr 2002 16:09:35 +0000 (+0000)
Subject: [project @ 2002-04-24 16:09:12 by simonmar]
X-Git-Tag: nhc98-1-18-release~1055
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2253e3a64bf39c8d43be740961a5869787717cb7;p=ghc-base.git

[project @ 2002-04-24 16:09:12 by simonmar]
Update foreign import syntax
---

diff --git a/System/Cmd.hs b/System/Cmd.hs
index 92ac6ed..7f7ca20 100644
--- a/System/Cmd.hs
+++ b/System/Cmd.hs
@@ -8,7 +8,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Cmd.hs,v 1.1 2002/02/06 10:14:26 simonmar Exp $
+-- $Id: Cmd.hs,v 1.2 2002/04/24 16:09:12 simonmar Exp $
 --
 -- Executing a command.
 --
@@ -50,4 +50,4 @@ system cmd =
         0  -> return ExitSuccess
         n  -> return (ExitFailure n)
 
-foreign import ccall "systemCmd" unsafe primSystem :: CString -> IO Int
+foreign import ccall unsafe "systemCmd" primSystem :: CString -> IO Int
diff --git a/System/Environment.hs b/System/Environment.hs
index d85a52d..76005a9 100644
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -8,7 +8,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Environment.hs,v 1.4 2002/01/02 14:40:11 simonmar Exp $
+-- $Id: Environment.hs,v 1.5 2002/04/24 16:09:22 simonmar Exp $
 --
 -- Miscellaneous information about the system environment.
 --
@@ -47,7 +47,7 @@ getArgs =
    peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
 
    
-foreign import "getProgArgv" unsafe 
+foreign import ccall unsafe "getProgArgv"
   getProgArgv :: Ptr CInt -> Ptr (Ptr CString) -> IO ()
 
 -- Computation `getProgName' returns the name of the program
@@ -97,5 +97,5 @@ getEnv name =
         else ioException (IOError Nothing NoSuchThing "getEnv"
 			  "no environment variable" (Just name))
 
-foreign import ccall "getenv" unsafe 
+foreign import ccall unsafe "getenv"
    c_getenv :: CString -> IO (Ptr CChar)
diff --git a/System/Mem.hs b/System/Mem.hs
index a6e752c..13dcbcb 100644
--- a/System/Mem.hs
+++ b/System/Mem.hs
@@ -8,7 +8,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Mem.hs,v 1.2 2002/02/13 12:17:14 simonmar Exp $
+-- $Id: Mem.hs,v 1.3 2002/04/24 16:09:35 simonmar Exp $
 --
 -- Memory-related system things.
 --
@@ -21,5 +21,5 @@ module System.Mem (
 import Prelude
 
 #ifdef __GLASGOW_HASKELL__
-foreign import {-safe-} "performGC" performGC :: IO ()
+foreign import ccall {-safe-} "performGC" performGC :: IO ()
 #endif