From 2c36009622e993d2944f999bd2720cffabe6f6e6 Mon Sep 17 00:00:00 2001
From: Alec Berryman <alec@thened.net>
Date: Sun, 1 Apr 2007 16:42:29 +0200
Subject: Fix type error in dimensions field of XState record for 64-bit
 systems

Fallout from Int->CInt conversion.

darcs-hash:20070401144229-39448-a124d5c3906bbc527e04ef041d9321d871fc93b3.gz
---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index d571f96..363ed72 100644
--- a/Main.hs
+++ b/Main.hs
@@ -48,7 +48,9 @@ main = do
             , theRoot       = rootw
             , wmdelete      = wmdelt
             , wmprotocols   = wmprot
-            , dimensions    = (displayWidth  dpy dflt, displayHeight dpy dflt)
+            -- fromIntegral needed for X11 versions that use Int instead of CInt.
+            , dimensions    = (fromIntegral (displayWidth dpy dflt),
+                               fromIntegral (displayHeight dpy dflt))
             , workspace     = W.empty workspaces
             , layoutDescs   = M.empty
             , dispositions  = M.empty
-- 
cgit v1.2.3