From 0cf2a2fd9f28b4f29b5ce66dbf21730f6f4cb87d Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 17 Jul 2009 01:49:55 +0200
Subject: Fix defaulting warning with A.RandomBackground

Ignore-this: 55dddcc134aa173d2c8e015fc462ff99

darcs-hash:20090716234955-1499c-07b855977f83d0898150dbf173c07a8ee9466971.gz
---
 XMonad/Actions/RandomBackground.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/XMonad/Actions/RandomBackground.hs b/XMonad/Actions/RandomBackground.hs
index 21dc4f8..b5cdd2f 100644
--- a/XMonad/Actions/RandomBackground.hs
+++ b/XMonad/Actions/RandomBackground.hs
@@ -41,8 +41,7 @@ randomBg' ::  (MonadIO m) => RandomColor -> m String
 randomBg' (RGB l h) = liftM toHex $ replicateM 3 $ io $ randomRIO (l,h)
 randomBg' (HSV s v) = io $ do
     g <- newStdGen
-    let -- x = (sqrt 3 - tan theta) / sqrt 3
-        x = (^2) $ fst $ randomR (0,sqrt $ pi / 3) g
+    let x = (^(2::Int)) $ fst $ randomR (0,sqrt $ pi / 3) g
     return $ toHex $ map round $ randPermutation [v,(v-s)*x + s,s] g
 
 randomBg :: RandomColor -> X ()
-- 
cgit v1.2.3