diff --git a/libraries/base/GHC/IO/Handle/FD.hs b/libraries/base/GHC/IO/Handle/FD.hs
index 31f90eac0ab59a2027e41ddb719ea56323d1d4d0..bfb8a3db31cdfbba3d8fbdfe7a7fe42d8b72d744 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 836dcf887db58aa1c39ad8d88b901d5d37e7eec5..fa25f63e32e1905b061c879aaafd0af505fe2e33 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