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