From dd7393a432dbf8e15b3be8484d14f568ae12b8db Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 28 Mar 2007 09:14:36 +0200 Subject: Compatibility with CInt'ified X11 darcs-hash:20070328071436-a5988-247885dd8c1711b4739921fc4082e6a4ecf2b3d6 --- Main.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index c3cc33a..586831d 100644 --- a/Main.hs +++ b/Main.hs @@ -142,7 +142,9 @@ handle (UnmapEvent {window = w}) = do b <- isClient w; when b $ unmanage -- set keyboard mapping handle e@(MappingNotifyEvent {window = w}) = do - let m = (request e, first_keycode e, count e) + -- this fromIntegral is only necessary with the old X11 version that uses + -- Int instead of CInt. TODO delete it when there is a new release of X11 + let m = (request e, first_keycode e, fromIntegral $ count e) io $ refreshKeyboardMapping m when (request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w @@ -176,7 +178,9 @@ handle e@(ConfigureRequestEvent {window = w}) = do , wcHeight = height e , wcBorderWidth = border_width e , wcSibling = above e - , wcStackMode = detail e + -- this fromIntegral is only necessary with the old X11 version that uses + -- Int instead of CInt. TODO delete it when there is a new release of X11 + , wcStackMode = fromIntegral $ detail e } io $ sync dpy False -- cgit v1.2.3