summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-05-22 06:38:44 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-05-22 06:38:44 +0200
commit16ec3fae883c915346c4aeada67975789f0a56cb (patch)
treef92da8dacec52e58c2d251439942c924734a4e79
parent2d4d422162e442c3b9fc88dd31e808c2f536c778 (diff)
downloadmetatile-16ec3fae883c915346c4aeada67975789f0a56cb.tar
metatile-16ec3fae883c915346c4aeada67975789f0a56cb.zip
Wibble
darcs-hash:20070522043844-a5988-964764300d3bae3751718d2ce9c583a2c8e710af
-rw-r--r--Operations.hs3
1 files changed, 1 insertions, 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