From a524192f2d5bf30581162cb59d9c95e88b65f23c Mon Sep 17 00:00:00 2001
From: Bas van Dijk <v.dijk.bas@gmail.com>
Date: Mon, 4 Apr 2011 20:53:24 +0200
Subject: [PATCH] Removed Show instance for IOCallback and FdData The
 IOCallback instance conflicts with the more general
 instance Show (a -> b) defined in Text.Show.Functions

---
 GHC/Event/Manager.hs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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)
-- 
1.7.10.4