diff options
Diffstat (limited to 'XMonad/Util')
-rw-r--r-- | XMonad/Util/Font.cpphs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/XMonad/Util/Font.cpphs b/XMonad/Util/Font.cpphs index dd232f1..b6cf2ad 100644 --- a/XMonad/Util/Font.cpphs +++ b/XMonad/Util/Font.cpphs @@ -31,6 +31,8 @@ module XMonad.Util.Font ( import XMonad import Foreign +import Control.Applicative +import Data.Maybe #ifdef XFT import Data.List @@ -49,10 +51,10 @@ data XMonadFont = Core FontStruct -- | Get the Pixel value for a named color: if an invalid name is -- given the black pixel will be returned. -stringToPixel :: MonadIO m => Display -> String -> m Pixel -stringToPixel d s = liftIO $ catch getIt fallBack +stringToPixel :: (Functor m, MonadIO m) => Display -> String -> m Pixel +stringToPixel d s = fromMaybe fallBack <$> liftIO getIt where getIt = initColor d s - fallBack = const $ return $ blackPixel d (defaultScreen d) + fallBack = blackPixel d (defaultScreen d) -- | Given a fontname returns the font structure. If the font name is |