From 8171c8abdaa79f44e3441721c43a74819ac8c8d9 Mon Sep 17 00:00:00 2001
From: "l.mai" <l.mai@web.de>
Date: Sun, 7 Oct 2007 18:35:09 +0200
Subject: avoid compiler warning in FlexibleManipulate

darcs-hash:20071007163509-42ea9-3a373f44aeaca4204ba16afd863e9cb29c06a313.gz
---
 FlexibleManipulate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'FlexibleManipulate.hs')

diff --git a/FlexibleManipulate.hs b/FlexibleManipulate.hs
index bf340b1..778859c 100644
--- a/FlexibleManipulate.hs
+++ b/FlexibleManipulate.hs
@@ -79,7 +79,7 @@ mouseWindow f w = whenX (isClient w) $ withDisplay $ \d -> do
             npos = wpos + offset * atl
             nbr = (wpos + wsize) + offset * abr
             ntl = minP (nbr - (32, 32)) npos    --minimum size
-            nwidth = applySizeHints sh $ mapP round (nbr - ntl)
+            nwidth = applySizeHints sh $ mapP (round :: Double -> Integer) (nbr - ntl)
         moveResizeWindow d w (round $ fst ntl) (round $ snd ntl) `uncurry` nwidth
         return ())
         (float w)
-- 
cgit v1.2.3