diff options
author | ross <unknown> | 2003-05-27 10:18:58 +0000 |
---|---|---|
committer | ross <unknown> | 2003-05-27 10:18:58 +0000 |
commit | a265cb8bb4e9b763b97d0dff9c7c449553390cd6 (patch) | |
tree | 59bbc9e5793cf7c47d4ee1ed77bcd4f674b77995 /System | |
parent | 7b2889a06ae08b46417e714a5b050a6618a8f198 (diff) |
[project @ 2003-05-27 10:18:58 by ross]
Hugs only: use fdToHandle (like GHC)
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Temp.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/Temp.hsc b/System/Posix/Temp.hsc index 83e4ffe..eef5e34 100644 --- a/System/Posix/Temp.hsc +++ b/System/Posix/Temp.hsc @@ -40,7 +40,7 @@ mkstemp template = do withCString template $ \ ptr -> do fd <- throwErrnoIfMinus1 "mkstemp" (c_mkstemp ptr) name <- peekCString ptr -#ifdef __GLASGOW_HASKELL__ +#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) h <- fdToHandle fd #else closeFd fd |