From 7e98a6e8d47d84b6501c844e30c40b1ae0762e87 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Sun, 4 Nov 2007 12:11:11 +0100
Subject: Fixed a compilation issue on non 32bit machines

darcs-hash:20071104111111-d6583-fa2ab025c82b4cb547abeccbc204c491a01f4ed2.gz
---
 Xmobar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Xmobar.hs b/Xmobar.hs
index 702b1d5..5b20aeb 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -152,7 +152,7 @@ setProperties h c d w = do
   c2 <- internAtom d "ATOM"                     False
   v  <- internAtom d "_NET_WM_WINDOW_TYPE_DOCK" False
   changeProperty32 d w a1 c1 propModeReplace $ map fi $ getStrutValues h c
-  changeProperty32 d w a2 c2 propModeReplace [v]
+  changeProperty32 d w a2 c2 propModeReplace [fromIntegral v]
 
 getStrutValues :: Dimension -> Config -> [Int]
 getStrutValues h c
-- 
cgit v1.2.3