diff options
| author | l.mai <l.mai@web.de> | 2007-10-07 18:35:09 +0200 |
|---|---|---|
| committer | l.mai <l.mai@web.de> | 2007-10-07 18:35:09 +0200 |
| commit | 8171c8abdaa79f44e3441721c43a74819ac8c8d9 (patch) | |
| tree | b43b41cd29edacab86c940c2e63bf35180655abe | |
| parent | c50b6499212bd012efdfed09bcc8fd6573274a22 (diff) | |
| download | XMonadContrib-8171c8abdaa79f44e3441721c43a74819ac8c8d9.tar.gz XMonadContrib-8171c8abdaa79f44e3441721c43a74819ac8c8d9.tar.xz XMonadContrib-8171c8abdaa79f44e3441721c43a74819ac8c8d9.zip | |
avoid compiler warning in FlexibleManipulate
darcs-hash:20071007163509-42ea9-3a373f44aeaca4204ba16afd863e9cb29c06a313.gz
| -rw-r--r-- | FlexibleManipulate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |