From 865939b660fc62a54a0b81a8831aff0c6de8eb8b Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 22 May 2007 04:38:44 +0000
Subject: [PATCH] Wibble

---
 Operations.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Operations.hs b/Operations.hs
index 16a46f7..2b35895 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -160,8 +160,7 @@ tileWindow d w r = do
 -- refresh the screen.
 rescreen :: X ()
 rescreen = do
-    dpy    <- asks display
-    xinesc <- io $ getScreenInfo dpy
+    xinesc <- withDisplay (io . getScreenInfo)
     -- TODO: This stuff is necessary because Xlib apparently caches screen
     -- width/height.  Find a better solution later.  I hate Xlib.
     let sx = maximum $ map (\r -> rect_x r + fromIntegral (rect_width  r)) xinesc