Removed Show instance for IOCallback and FdData The IOCallback instance conflicts...

diff --git a/GHC/Event/Manager.hs b/GHC/Event/Manager.hs
index bb7379c..055d0c7 100644 (file)
--- a/GHC/Event/Manager.hs
+++ b/GHC/Event/Manager.hs
@@ -90,7 +90,7 @@ data FdData = FdData {
       fdKey       :: {-# UNPACK #-} !FdKey
     , fdEvents    :: {-# UNPACK #-} !Event
     , _fdCallback :: !IOCallback
-    } deriving (Show)
+    }
 
 -- | A file descriptor registration cookie.
 data FdKey = FdKey {
@@ -101,9 +101,6 @@ data FdKey = FdKey {
 -- | Callback invoked on I/O events.
 type IOCallback = FdKey -> Event -> IO ()
 
-instance Show IOCallback where
-    show _ = "IOCallback"
-
 -- | A timeout registration cookie.
 newtype TimeoutKey   = TK Unique
     deriving (Eq)