diff options
| author |  Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 22:55:06 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-31 00:19:53 +0100 |
| commit | 716eccb11f324abc120c24ce0344b7094f1aa435 (patch) | |
| tree | 85630e94c6f324b1f7b3dc876062dd0dd60d6b48 /System/Posix/Temp/ByteString.hsc | |
| parent | 4c25a0d4af899b43d557a6d2dc1b4291e5f75659 (diff) | |
Drop bitrotting HUGS support
It's very unlikely the current `unix` code stands any chance of even
remotely work with Hugs...
Diffstat (limited to 'System/Posix/Temp/ByteString.hsc')
| -rw-r--r-- | System/Posix/Temp/ByteString.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/System/Posix/Temp/ByteString.hsc b/System/Posix/Temp/ByteString.hsc index 61bd7e9..84ad49e 100644 --- a/System/Posix/Temp/ByteString.hsc +++ b/System/Posix/Temp/ByteString.hsc @@ -38,7 +38,7 @@ import System.Posix.Directory (createDirectory) import System.Posix.IO import System.Posix.Types -#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) +#if defined(__GLASGOW_HASKELL__) foreign import ccall unsafe "HsUnix.h __hscore_mkstemp" c_mkstemp :: CString -> IO CInt #endif @@ -53,7 +53,7 @@ foreign import ccall unsafe "HsUnix.h __hscore_mkstemp" mkstemp :: ByteString -> IO (RawFilePath, Handle) mkstemp template' = do let template = template' `B.append` (BC.pack "XXXXXX") -#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) +#if defined(__GLASGOW_HASKELL__) withFilePath template $ \ ptr -> do fd <- throwErrnoIfMinus1 "mkstemp" (c_mkstemp ptr) name <- peekFilePath ptr @@ -114,7 +114,7 @@ mkdtemp template' = do return name #endif -#if (!defined(__GLASGOW_HASKELL__) && !defined(__HUGS__)) || !HAVE_MKDTEMP +#if !defined(__GLASGOW_HASKELL__) || !HAVE_MKDTEMP foreign import ccall unsafe "mktemp" c_mktemp :: CString -> IO CString |