From 1584812b212d2618b4a823c9e8a9b202f95f70cb Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 19 Nov 2007 04:31:20 +0100 Subject: No more liftM darcs-hash:20071119033120-a5988-a45cb35f2b919d5e57980fb9eea9c6d4361bc61b.gz --- XMonad/Core.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Core.hs') diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 8e89ac1..dd8de32 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -151,7 +151,7 @@ withWindowSet f = gets windowset >>= f -- | True if the given window is the root window isRoot :: Window -> X Bool -isRoot w = liftM (w==) (asks theRoot) +isRoot w = fmap (w==) (asks theRoot) -- | Wrapper for the common case of atom internment getAtom :: String -> X Atom @@ -216,7 +216,7 @@ class Show (layout a) => LayoutClass layout a where description = show instance LayoutClass Layout Window where - doLayout (Layout l) r s = fmap (fmap Layout) `liftM` doLayout l r s + doLayout (Layout l) r s = fmap (fmap Layout) `fmap` doLayout l r s handleMessage (Layout l) = fmap (fmap Layout) . handleMessage l description (Layout l) = description l @@ -310,7 +310,7 @@ restart mprog resume = do -- recompile :: MonadIO m => m () recompile = liftIO $ do - dir <- liftM (++ "/.xmonad") getHomeDirectory + dir <- fmap (++ "/.xmonad") getHomeDirectory let bin = dir ++ "/" ++ "xmonad" err = bin ++ ".errors" src = bin ++ ".hs" -- cgit v1.2.3