From 659ae683d198c108cddc93d4445df9567e4a7511 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <daniel.schoepe@gmail.com>
Date: Sat, 22 Aug 2009 00:56:46 +0200
Subject: Add backwards compatability in X.H.FadeInactive

Ignore-this: d2ef91429d80fde5126b2aa8f0de9b1f

darcs-hash:20090821225646-7f603-f88c0e9cc292247e44175343f9b3a91e03c98afb.gz
---
 XMonad/Hooks/FadeInactive.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Hooks/FadeInactive.hs')

diff --git a/XMonad/Hooks/FadeInactive.hs b/XMonad/Hooks/FadeInactive.hs
index aeacc3c..343b3ee 100644
--- a/XMonad/Hooks/FadeInactive.hs
+++ b/XMonad/Hooks/FadeInactive.hs
@@ -55,7 +55,7 @@ import Control.Monad
 -- | Converts a percentage to the format required for _NET_WM_WINDOW_OPACITY
 rationalToOpacity :: Integral a => Rational -> a
 rationalToOpacity perc
-    | perc < 0 || perc > 1 = 0xffffffff -- invalid input, default to opaque
+    | perc < 0 || perc > 1 = round perc -- to maintain backwards-compatability
     | otherwise = round $ perc * 0xffffffff
 
 -- | sets the opacity of a window
-- 
cgit v1.2.3