diff options
author | simonmar <unknown> | 2003-09-19 09:27:35 +0000 |
---|---|---|
committer | simonmar <unknown> | 2003-09-19 09:27:35 +0000 |
commit | 3ea22075e673b0e162603e0256868f302fac1b8c (patch) | |
tree | c4aba0aa83be496a63a9f7a07be160c30e29ef9c | |
parent | ea8b6c17bee53bdaf26a7f72fc73eb6569f60b78 (diff) |
[project @ 2003-09-19 09:27:35 by simonmar]
Kill mktemp: it causes link warnings whenever someone uses -package
unix on Linux & FreeBSD at least, and is bogus anyway.
mktemp is still used to implement mkstemp when !GLASGOW_HASKELL and
!HUGS. Why is this?
-rw-r--r-- | System/Posix/Temp.hsc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/System/Posix/Temp.hsc b/System/Posix/Temp.hsc index d16d169..861fc76 100644 --- a/System/Posix/Temp.hsc +++ b/System/Posix/Temp.hsc @@ -15,8 +15,7 @@ module System.Posix.Temp ( - mktemp - , mkstemp + mkstemp {- Not ported (yet?): tmpfile: can we handle FILE*? @@ -48,7 +47,6 @@ mkstemp template = do name <- mktemp template h <- openFile name ReadWriteMode return (name, h) -#endif -- |'mktemp' - make a unique file name -- This function should be considered deprecated @@ -59,8 +57,10 @@ mktemp template = do ptr <- throwErrnoIfNull "mktemp" (c_mktemp ptr) peekCString ptr +foreign import ccall unsafe "mktemp" + c_mktemp :: CString -> IO CString +#endif + foreign import ccall unsafe "mkstemp" c_mkstemp :: CString -> IO Fd -foreign import ccall unsafe "mktemp" - c_mktemp :: CString -> IO CString |