Fixed a compilation issue on non 32bit machines

darcs-hash:20071104111111-d6583-fa2ab025c82b4cb547abeccbc204c491a01f4ed2.gz

1 files changed, 1 insertions, 1 deletions

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