diff options
author | daniel <daniel@wagner-home.com> | 2008-09-26 22:41:48 +0200 |
---|---|---|
committer | daniel <daniel@wagner-home.com> | 2008-09-26 22:41:48 +0200 |
commit | 409862b6e640a0595fff9096bd14f2f8cf751cd7 (patch) | |
tree | d22faa5f95f7857d40034fdbac27981a077823ab | |
parent | 4d4d494ed4e8a815add619fb4faed31e907f3196 (diff) | |
download | XMonadContrib-409862b6e640a0595fff9096bd14f2f8cf751cd7.tar.gz XMonadContrib-409862b6e640a0595fff9096bd14f2f8cf751cd7.tar.xz XMonadContrib-409862b6e640a0595fff9096bd14f2f8cf751cd7.zip |
fix a divide by zero error in Grid
darcs-hash:20080926204148-c98ca-40ce1cc7f6400b2bc50ddb4c42503d0d655b1bef.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout/Grid.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs index be497bd..87341c8 100644 --- a/XMonad/Layout/Grid.hs +++ b/XMonad/Layout/Grid.hs @@ -56,7 +56,7 @@ arrange aspectRatio (Rectangle rx ry rw rh) st = zip st rectangles where nwins = length st ncols = max 1 . round . sqrt $ fromIntegral nwins * fromIntegral rw / (fromIntegral rh * aspectRatio) - mincs = nwins `div` ncols + mincs = max 1 $ nwins `div` ncols extrs = nwins - ncols * mincs chop :: Int -> Dimension -> [(Position, Dimension)] chop n m = ((0, m - k * fromIntegral (pred n)) :) . map (flip (,) k) . tail . reverse . take n . tail . iterate (subtract k') $ m' |