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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
