diff options
| -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 () |