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 ...@@ -9,7 +9,12 @@ module Distribution.Compat.TempFile (openTempFile) where
import System.IO (openFile, Handle, IOMode(ReadWriteMode)) import System.IO (openFile, Handle, IOMode(ReadWriteMode))
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import System.FilePath ((</>), (<.>), splitExtension) import System.FilePath ((</>), (<.>), splitExtension)
#if __NHC__
import System.Posix.Types (CPid(..))
foreign import ccall unsafe "getpid" c_getpid :: IO CPid
import System.Posix.Internals (c_getpid) import System.Posix.Internals (c_getpid)
#else #else
import System.IO (openTempFile) import System.IO (openTempFile)
#endif #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