From 19c4bb35212b422ce0c3d8808357e0edf8728218 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Tue, 19 Jul 2011 11:16:50 +0200 Subject: Basic systray implementation --- lib/Phi/Phi.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Phi/Phi.hs') diff --git a/lib/Phi/Phi.hs b/lib/Phi/Phi.hs index ab384a0..f7cf4c7 100644 --- a/lib/Phi/Phi.hs +++ b/lib/Phi/Phi.hs @@ -22,7 +22,7 @@ data Phi = Phi (TChan Message) data Message = forall a. (Typeable a, Show a) => Message a deriving instance Show Message -data DefaultMessage = Repaint deriving (Typeable, Show) +data DefaultMessage = Repaint | ResetBackground deriving (Typeable, Show) fromMessage :: (Typeable a, Show a) => Message -> Maybe a fromMessage (Message m) = cast m -- cgit v1.2.3