diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-19 12:25:08 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-19 12:25:08 +0200 |
| commit | 387613b2f0752836524ccd6d9d8001694bd219fb (patch) | |
| tree | 7975b133db20a36865eff4f5b1e90415d963b023 /lib/Phi/Phi.hs | |
| parent | 19c4bb35212b422ce0c3d8808357e0edf8728218 (diff) | |
| download | phi-387613b2f0752836524ccd6d9d8001694bd219fb.tar phi-387613b2f0752836524ccd6d9d8001694bd219fb.zip | |
Gracefully shut down systray
Diffstat (limited to 'lib/Phi/Phi.hs')
| -rw-r--r-- | lib/Phi/Phi.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Phi/Phi.hs b/lib/Phi/Phi.hs index f7cf4c7..94655d4 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 | ResetBackground deriving (Typeable, Show) +data DefaultMessage = Repaint | ResetBackground | Shutdown | HoldShutdown | ReleaseShutdown deriving (Typeable, Show) fromMessage :: (Typeable a, Show a) => Message -> Maybe a fromMessage (Message m) = cast m |