summaryrefslogtreecommitdiffhomepage
path: root/Xmobar.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-04 12:11:11 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-04 12:11:11 +0100
commit7e98a6e8d47d84b6501c844e30c40b1ae0762e87 (patch)
treecbefd3f03f45381a05f3ddae9ea31fb15f72bb5d /Xmobar.hs
parent9b3e57397a1c8a6e22a593867cbed392cebb947d (diff)
downloadxmobar-7e98a6e8d47d84b6501c844e30c40b1ae0762e87.tar.gz
xmobar-7e98a6e8d47d84b6501c844e30c40b1ae0762e87.tar.bz2
Fixed a compilation issue on non 32bit machines
darcs-hash:20071104111111-d6583-fa2ab025c82b4cb547abeccbc204c491a01f4ed2.gz
Diffstat (limited to 'Xmobar.hs')
-rw-r--r--Xmobar.hs2
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