No more liftM

darcs-hash:20071119033120-a5988-a45cb35f2b919d5e57980fb9eea9c6d4361bc61b

1 files changed, 3 insertions, 3 deletions

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"