diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 04:31:20 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 04:31:20 +0100 |
commit | 1584812b212d2618b4a823c9e8a9b202f95f70cb (patch) | |
tree | bba169ce8f080cfa86fd3c7ea2278943f00172e4 /XMonad/Operations.hs | |
parent | a50fd32c3260376dbf7fc60019ec5a700271572e (diff) | |
download | xmonad-1584812b212d2618b4a823c9e8a9b202f95f70cb.tar.gz xmonad-1584812b212d2618b4a823c9e8a9b202f95f70cb.tar.xz xmonad-1584812b212d2618b4a823c9e8a9b202f95f70cb.zip |
No more liftM
darcs-hash:20071119033120-a5988-a45cb35f2b919d5e57980fb9eea9c6d4361bc61b.gz
Diffstat (limited to 'XMonad/Operations.hs')
-rw-r--r-- | XMonad/Operations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index fa5d3cc..1c18690 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -51,7 +51,7 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do sh <- io $ getWMNormalHints d w let isFixedSize = sh_min_size sh /= Nothing && sh_min_size sh == sh_max_size sh - isTransient <- isJust `liftM` io (getTransientForHint d w) + isTransient <- isJust `fmap` io (getTransientForHint d w) (sc, rr) <- floatLocation w -- ensure that float windows don't go over the edge of the screen @@ -296,7 +296,7 @@ setFocusX w = withWindowSet $ \ws -> do setButtonGrab True otherw -- If we ungrab buttons on the root window, we lose our mouse bindings. - whenX (not `liftM` isRoot w) $ setButtonGrab False w + whenX (not `fmap` isRoot w) $ setButtonGrab False w io $ do setInputFocus dpy w revertToPointerRoot 0 -- raiseWindow dpy w @@ -376,7 +376,7 @@ cleanMask km = do -- | Get the Pixel value for a named color initColor :: Display -> String -> IO Pixel -initColor dpy c = (color_pixel . fst) `liftM` allocNamedColor dpy colormap c +initColor dpy c = (color_pixel . fst) `fmap` allocNamedColor dpy colormap c where colormap = defaultColormap dpy (defaultScreen dpy) ------------------------------------------------------------------------ |