From 2d5c5e0c13a354251d2872f922208ca0be432cb9 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 07:34:49 +0100
Subject: little bit of strictness, based on -prof output

darcs-hash:20070309063449-9c5c1-664dc95c81b702211f3bc61f53aa31f5eb5bd81d
---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 3d77aad..8804a8d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -155,11 +155,11 @@ hide :: Window -> W ()
 hide w = withDisplay $ \d -> do
     sw <- gets screenWidth
     sh <- gets screenHeight
-    io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh)
+    io $! moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh)
 
 -- | reveal. Expose a list of windows, moving them on screen
 reveal :: Window -> W ()
-reveal w = withDisplay $ \d -> io $ moveWindow d w 0 0
+reveal w = withDisplay $ \d -> io $! moveWindow d w 0 0
 
 -- | windows. Modify the current window list with a pure function, and refresh
 windows :: (WorkSpace -> WorkSpace) -> W ()
-- 
cgit v1.2.3