Commit 6267c075 authored by Malcolm.Wallace's avatar Malcolm.Wallace
Browse files

nhc98 does not have System.Posix.Internals

parent 749830ad
......@@ -9,7 +9,12 @@ module Distribution.Compat.TempFile (openTempFile) where
import System.IO (openFile, Handle, IOMode(ReadWriteMode))
import System.Directory (doesFileExist)
import System.FilePath ((</>), (<.>), splitExtension)
#if __NHC__
import System.Posix.Types (CPid(..))
foreign import ccall unsafe "getpid" c_getpid :: IO CPid
#else
import System.Posix.Internals (c_getpid)
#endif
#else
import System.IO (openTempFile)
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment