X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FIO%2FFD.hs;h=bf7c619cc6db3840802a41fb66b25ddffdbb6275;hb=8afc9fecd586d3c4f7ef9c69fb1686a79e5f441d;hp=32f4e9bb1957c7d12c52979c98367c67218d1a6f;hpb=0194bd1aa23f3c93c9fea3f6acdf5b968c024886;p=ghc-base.git

diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index 32f4e9b..bf7c619 100644
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -30,7 +30,7 @@ import GHC.Real
 import GHC.Show
 import GHC.Enum
 import Data.Maybe
-import Control.Monad
+-- import Control.Monad
 import Data.Typeable
 
 import GHC.IO
@@ -47,7 +47,7 @@ import Foreign.C
 import qualified System.Posix.Internals
 import System.Posix.Internals hiding (FD, setEcho, getEcho)
 import System.Posix.Types
-import GHC.Ptr
+-- import GHC.Ptr
 
 -- -----------------------------------------------------------------------------
 -- The file-descriptor IO device