diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-17 01:49:55 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-17 01:49:55 +0200 |
| commit | 0cf2a2fd9f28b4f29b5ce66dbf21730f6f4cb87d (patch) | |
| tree | a58cfd32438385658875e9fe3ce894959675c349 | |
| parent | 984ccf48fee2ded4e758f818e53019c625e9e0d8 (diff) | |
| download | XMonadContrib-0cf2a2fd9f28b4f29b5ce66dbf21730f6f4cb87d.tar.gz XMonadContrib-0cf2a2fd9f28b4f29b5ce66dbf21730f6f4cb87d.tar.xz XMonadContrib-0cf2a2fd9f28b4f29b5ce66dbf21730f6f4cb87d.zip | |
Fix defaulting warning with A.RandomBackground
Ignore-this: 55dddcc134aa173d2c8e015fc462ff99
darcs-hash:20090716234955-1499c-07b855977f83d0898150dbf173c07a8ee9466971.gz
| -rw-r--r-- | XMonad/Actions/RandomBackground.hs | 3 |
1 files changed, 1 insertions, 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 () |