X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FEvent%2FManager.hs;h=055d0c762e74163ad1061b92ad1cd536112e4958;hb=a524192f2d5bf30581162cb59d9c95e88b65f23c;hp=bb7379cabf68d75b0bb2c2ea2ee2dbdffda50a6d;hpb=04f9c68b4507447275c20ef9e422a3618272c1ef;p=ghc-base.git

diff --git a/GHC/Event/Manager.hs b/GHC/Event/Manager.hs
index bb7379c..055d0c7 100644
--- 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)