[commit: base] master: Fix build on Windows (56c0127)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/56c012702c4d8eb0ea281306758e7b76155eb0fb

>---------------------------------------------------------------

commit 56c012702c4d8eb0ea281306758e7b76155eb0fb
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon Jun 20 20:20:01 2011 +0100

    Fix build on Windows

>---------------------------------------------------------------

 GHC/IO/Handle/FD.hs |    2 +-
 GHC/Windows.hs      |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/IO/Handle/FD.hs b/GHC/IO/Handle/FD.hs
index 31f90ea..bfb8a3d 100644
--- a/GHC/IO/Handle/FD.hs
+++ b/GHC/IO/Handle/FD.hs
@@ -90,7 +90,7 @@ stdHandleFinalizer fp m = do
 -- translation that the CRT IO library does.
 setBinaryMode :: FD.FD -> IO ()
 #ifdef mingw32_HOST_OS
-setBinaryMode fd = do _ <- setmode (fdFD fd) True
+setBinaryMode fd = do _ <- setmode (FD.fdFD fd) True
                       return ()
 #else
 setBinaryMode _ = return ()
diff --git a/GHC/Windows.hs b/GHC/Windows.hs
index 836dcf8..fa25f63 100644
--- a/GHC/Windows.hs
+++ b/GHC/Windows.hs
@@ -20,7 +20,7 @@
 
 module GHC.Windows (
         HANDLE, DWORD, LPTSTR, iNFINITE,
-        throwGetLastError, maperrno
+        throwGetLastError, c_maperrno
     ) where
 
 import GHC.Base