diff options
| -rw-r--r-- | XMonad/Actions/RandomBackground.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/RandomBackground.hs b/XMonad/Actions/RandomBackground.hs index 8634a97..c0bbe56 100644 --- a/XMonad/Actions/RandomBackground.hs +++ b/XMonad/Actions/RandomBackground.hs @@ -24,7 +24,7 @@ module XMonad.Actions.RandomBackground ( import XMonad(X, XConf(config), XConfig(terminal), io, spawn, MonadIO, asks) import System.Random -import Control.Monad(replicateM,liftM) +import Control.Monad(liftM) import Numeric(showHex) -- $usage @@ -55,7 +55,7 @@ randPermutation xs g = swap $ zip (randoms g) xs -- | @randomBg'@ produces a random hex number in the form @'#xxyyzz'@ randomBg' :: (MonadIO m) => RandomColor -> m String -randomBg' (RGB l h) = liftM toHex $ replicateM 3 $ io $ randomRIO (l,h) +randomBg' (RGB l h) = io $ liftM (toHex . take 3 . randomRs (l,h)) newStdGen randomBg' (HSV s v) = io $ do g <- newStdGen let x = (^(2::Int)) $ fst $ randomR (0,sqrt $ pi / 3) g |