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
#if __NHC__ || __HUGS__
import System.IO (openFile, Handle, IOMode(ReadWriteMode))
import System.Directory (doesFileExist)
import System.FilePath ((</>))
import System.FilePath ((</>), (<.>), splitExtension)
import System.Posix.Internals (c_getpid)
#else
import System.IO (openTempFile)
......
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