diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 03:18:46 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 03:18:46 +0200 |
commit | 15bccc001a5ff2e76d0890f85e300e9312cddd1b (patch) | |
tree | 2e880537f1a1eedebe021ffbd3cb521c2a8c3a28 /lib/Phi/Widgets/Taskbar.hs | |
parent | 180285af85c4c6c02c885dd6c276a33e0bf00d1a (diff) | |
download | phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.tar phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.zip |
Some strictness optimizations
Diffstat (limited to 'lib/Phi/Widgets/Taskbar.hs')
-rw-r--r-- | lib/Phi/Widgets/Taskbar.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Phi/Widgets/Taskbar.hs b/lib/Phi/Widgets/Taskbar.hs index a5a6fdc..e1a4adc 100644 --- a/lib/Phi/Widgets/Taskbar.hs +++ b/lib/Phi/Widgets/Taskbar.hs @@ -152,10 +152,10 @@ data WindowState = WindowState { windowTitle :: !String , windowVisible :: !Bool } deriving (Show, Eq) -data TaskbarMessage = WindowListUpdate [Xlib.Window] (M.Map Window WindowState) (M.Map Window [(Int, Surface)]) (M.Map Window (IORef (Maybe (Int, Surface)))) (M.Map Window Xlib.Rectangle) - | DesktopCountUpdate Int - | CurrentDesktopUpdate Int - | ActiveWindowUpdate Window +data TaskbarMessage = WindowListUpdate ![Xlib.Window] !(M.Map Window WindowState) !(M.Map Window [(Int, Surface)]) !(M.Map Window (IORef (Maybe (Int, Surface)))) !(M.Map Window Xlib.Rectangle) + | DesktopCountUpdate !Int + | CurrentDesktopUpdate !Int + | ActiveWindowUpdate !Window deriving (Show, Typeable) instance Show (IORef a) where |