diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 20:16:14 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 20:16:14 +0200 |
| commit | 084e4883f70987ef74ae63a3c150a061995301d1 (patch) | |
| tree | 97b129837434ce6dac79ea16c04bab0c705a7765 /FloatKeys.hs | |
| parent | 1f5cf9d0ac990d24bd078db3dbd03dda53da00fb (diff) | |
| download | XMonadContrib-084e4883f70987ef74ae63a3c150a061995301d1.tar.gz XMonadContrib-084e4883f70987ef74ae63a3c150a061995301d1.tar.xz XMonadContrib-084e4883f70987ef74ae63a3c150a061995301d1.zip | |
Use LANGUAGE pragmas over -fglasgow-exts
darcs-hash:20070928181614-a5988-85415ed570690a468bf92cdf0f66d69494cecf4e.gz
Diffstat (limited to '')
| -rw-r--r-- | FloatKeys.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FloatKeys.hs b/FloatKeys.hs index 79d236f..5ea5e11 100644 --- a/FloatKeys.hs +++ b/FloatKeys.hs @@ -1,4 +1,3 @@ -{-# OPTIONS_GHC -fglasgow-exts #-} ----------------------------------------------------------------------------- -- | -- Module : XMonadContrib.FloatKeys @@ -87,8 +86,10 @@ keysAbsResizeWindow' :: SizeHints -> P -> D -> D -> D -> (P,D) keysAbsResizeWindow' sh (x,y) (w,h) (dx,dy) (ax, ay) = ((round nx, round ny), (nw, nh)) where (nw, nh) = applySizeHints sh (w + dx, h + dy) - nx :: Rational = fromIntegral (ax * w + nw * (fromIntegral x - ax)) / fromIntegral w - ny :: Rational = fromIntegral (ay * h + nh * (fromIntegral y - ay)) / fromIntegral h + nx :: Rational + nx = fromIntegral (ax * w + nw * (fromIntegral x - ax)) / fromIntegral w + ny :: Rational + ny = fromIntegral (ay * h + nh * (fromIntegral y - ay)) / fromIntegral h keysResizeWindow' :: SizeHints -> P -> D -> D -> G -> (P,D) keysResizeWindow' sh (x,y) (w,h) (dx,dy) (gx, gy) = ((nx, ny), (nw, nh)) |