From: simonmar <unknown>
Date: Wed, 13 Feb 2002 14:26:01 +0000 (+0000)
Subject: [project @ 2002-02-13 14:26:01 by simonmar]
X-Git-Tag: nhc98-1-18-release~1121
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=40cb4477c2b80707a20ad64ae2e6ac69f0a630a4;p=haskell-directory.git

[project @ 2002-02-13 14:26:01 by simonmar]
Move c_unlink foreign import outside #ifdef mingw32_TARGET_OS
---

diff --git a/GHC/Posix.hs b/GHC/Posix.hs
index 17d9f56..bc20f6e 100644
--- a/GHC/Posix.hs
+++ b/GHC/Posix.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 
 -- ---------------------------------------------------------------------------
--- $Id: Posix.hs,v 1.2 2002/02/13 12:12:08 simonmar Exp $
+-- $Id: Posix.hs,v 1.3 2002/02/13 14:26:01 simonmar Exp $
 --
 -- POSIX support layer for the standard libraries
 --
@@ -323,6 +323,9 @@ foreign import ccall unsafe "utime"
 foreign import ccall unsafe "write" 
    c_write :: CInt -> Ptr CChar -> CSize -> IO CSsize
 
+foreign import ccall unsafe "unlink"
+   c_unlink :: CString -> IO CInt
+
 #ifndef mingw32_TARGET_OS
 foreign import ccall unsafe "fcntl"
    c_fcntl_read  :: CInt -> CInt -> IO CInt
@@ -354,9 +357,6 @@ foreign import ccall unsafe "tcsetattr"
 foreign import ccall unsafe "uname"
    c_uname :: Ptr CUtsname -> IO CInt
 
-foreign import ccall unsafe "unlink"
-   c_unlink :: CString -> IO CInt
-
 foreign import ccall unsafe "waitpid"
    c_waitpid :: CPid -> Ptr CInt -> CInt -> IO CPid
 #endif