From 9832240080efc3a5a6ee9b114f8f07145f1e7a42 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 1 Dec 2006 14:40:32 +0000 Subject: [PATCH] deriving (Eq, Ord, Enum, Show, Read, Typeab) for ConsoleEvent --- GHC/ConsoleHandler.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs index 1654163..7435b92 100644 --- 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 = -- 1.7.10.4