From 16ec3fae883c915346c4aeada67975789f0a56cb Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 22 May 2007 06:38:44 +0200
Subject: Wibble

darcs-hash:20070522043844-a5988-964764300d3bae3751718d2ce9c583a2c8e710af
---
 Operations.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Operations.hs')

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
-- 
cgit v1.2.3