deriving (Eq, Ord, Enum, Show, Read, Typeab) for ConsoleEvent

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index 1654163..7435b92 100644 (file)
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -36,6 +36,7 @@ import Foreign
 import Foreign.C
 import GHC.IOBase
 import GHC.Handle
+import Data.Typeable
 
 data Handler
  = Default
@@ -49,6 +50,7 @@ data ConsoleEvent
     -- these are sent to Services only.
  | Logoff
  | Shutdown
+ deriving (Eq, Ord, Enum, Show, Read, Typeable)
 
 installHandler :: Handler -> IO Handler
 installHandler handler =