Commit d60d5996 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix the Windows build some more

parent 93eb0f3f
......@@ -53,11 +53,12 @@ import qualified Data.Binary as Bin
import qualified Data.Binary.Get as Bin
#if __GLASGOW_HASKELL__ < 612 || defined(mingw32_HOST_OS)
-- mingw32 needs these for getExecDir, GHC <6.12 needs them for openNewFile
import Foreign
import Foreign.C
#if __GLASGOW_HASKELL__ < 612
import Foreign.C
import System.Posix.Internals
#if __GLASGOW_HASKELL__ >= 611
import GHC.IO.Handle.FD (fdToHandle)
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