Drop closeFd from Control.Concurrent, rename to closeFdWith

[ghc-base.git] / GHC / IO / FD.hs

diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index 17362dc..3ba155e 100644 (file)
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -289,7 +289,7 @@ close fd =
         else
 #endif
           c_close (fromIntegral realFd)
-  closeFd closer (fromIntegral (fdFD fd))
+  closeFdWith closer (fromIntegral (fdFD fd))
 
 release :: FD -> IO ()
 #ifdef mingw32_HOST_OS