Commit 07163270 authored by Ross Paterson's avatar Ross Paterson
Browse files

fix build for Hugs and nhc98

parent 97a48d1a
...@@ -8,7 +8,7 @@ module Distribution.Compat.TempFile (openTempFile) where ...@@ -8,7 +8,7 @@ module Distribution.Compat.TempFile (openTempFile) where
#if __NHC__ || __HUGS__ #if __NHC__ || __HUGS__
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 ((</>)) import System.FilePath ((</>), (<.>), splitExtension)
import System.Posix.Internals (c_getpid) import System.Posix.Internals (c_getpid)
#else #else
import System.IO (openTempFile) import System.IO (openTempFile)
......
Supports Markdown
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