From 084e4883f70987ef74ae63a3c150a061995301d1 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 20:16:14 +0200
Subject: Use LANGUAGE pragmas over -fglasgow-exts

darcs-hash:20070928181614-a5988-85415ed570690a468bf92cdf0f66d69494cecf4e.gz
---
 FloatKeys.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'FloatKeys.hs')

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))
-- 
cgit v1.2.3