diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-06-20 20:20:01 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-06-20 20:20:01 +0100 |
| commit | 88d77e01824286a75955ad89df0376b9e93b8d08 (patch) | |
| tree | fd1c8041c5966a7364a5300bda128eda74215c3c | |
| parent | a61aedc730e68a1b0c166b81a65a8ea575e8094b (diff) | |
| download | haskell-88d77e01824286a75955ad89df0376b9e93b8d08.tar.gz | |
Fix build on Windows
| -rw-r--r-- | libraries/base/GHC/IO/Handle/FD.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/Windows.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/IO/Handle/FD.hs b/libraries/base/GHC/IO/Handle/FD.hs index 31f90eac0a..bfb8a3db31 100644 --- a/libraries/base/GHC/IO/Handle/FD.hs +++ b/libraries/base/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/libraries/base/GHC/Windows.hs b/libraries/base/GHC/Windows.hs index 836dcf887d..fa25f63e32 100644 --- a/libraries/base/GHC/Windows.hs +++ b/libraries/base/GHC/Windows.hs @@ -20,7 +20,7 @@ module GHC.Windows ( HANDLE, DWORD, LPTSTR, iNFINITE, - throwGetLastError, maperrno + throwGetLastError, c_maperrno ) where import GHC.Base |