From 15bccc001a5ff2e76d0890f85e300e9312cddd1b Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Fri, 12 Aug 2011 03:18:46 +0200 Subject: Some strictness optimizations --- lib/Phi/Widgets/Taskbar.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/Phi/Widgets/Taskbar.hs') 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 -- cgit v1.2.3