From 9936595ba676f944be1969dab30e1ced37034400 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 16 Nov 2007 13:52:47 +0100
Subject: XUtils: remove stringToPixel

darcs-hash:20071116125247-a5988-f866973d279808a3e15659be7d0f16fbdcef7a42.gz
---
 XMonad/Util/XUtils.hs | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs
index 98db6d5..af7aea4 100644
--- a/XMonad/Util/XUtils.hs
+++ b/XMonad/Util/XUtils.hs
@@ -37,15 +37,6 @@ import XMonad.Util.Font
 -- $usage
 -- See Tabbed or DragPane for usage examples
 
--- | Get the Pixel value for a named color: if an invalid name is
--- given the black pixel will be returned.
-stringToPixel :: String -> X Pixel
-stringToPixel s = do
-  d <- asks display
-  io $ catch (getIt d) (fallBack d)
-    where getIt    d = initColor d s
-          fallBack d = const $ return $ blackPixel d (defaultScreen d)
-
 -- | Compute the weighted average the colors of two given Pixel values.
 averagePixels :: Pixel -> Pixel -> Double -> X Pixel
 averagePixels p1 p2 f =
-- 
cgit v1.2.3