diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 00:38:27 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 00:38:27 +0100 |
| commit | fb927daed709343c2823857230ac91bb9b37fe76 (patch) | |
| tree | 5033088116818d425d0930d2fea8e92ad3b20200 /XMonad/Hooks/XPropManage.hs | |
| parent | c2aff0e5ea8a51eb3a99f27f556a7411867442ef (diff) | |
| download | XMonadContrib-fb927daed709343c2823857230ac91bb9b37fe76.tar.gz XMonadContrib-fb927daed709343c2823857230ac91bb9b37fe76.tar.xz XMonadContrib-fb927daed709343c2823857230ac91bb9b37fe76.zip | |
Remove redundant imports
darcs-hash:20071207233827-a5988-9e41d51120499637f14d115f2cf1428edaf326bb.gz
Diffstat (limited to 'XMonad/Hooks/XPropManage.hs')
| -rw-r--r-- | XMonad/Hooks/XPropManage.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/XMonad/Hooks/XPropManage.hs b/XMonad/Hooks/XPropManage.hs index 1e4b135..3f6c90f 100644 --- a/XMonad/Hooks/XPropManage.hs +++ b/XMonad/Hooks/XPropManage.hs @@ -20,11 +20,8 @@ module XMonad.Hooks.XPropManage ( import Data.Char (chr) import Data.List (concat) import Data.Monoid (mconcat, Endo(..)) - -import Control.Monad.Reader -import Graphics.X11.Xlib -import Graphics.X11.Xlib.Extras +import Control.Monad.Trans (lift) import XMonad import XMonad.ManageHook ((-->)) @@ -70,7 +67,7 @@ pmP f _ = return f xPropManageHook :: [XPropMatch] -> ManageHook xPropManageHook tms = mconcat $ map propToHook tms where - propToHook (ms, f) = liftM and (mapM mkQuery ms) --> mkHook f + propToHook (ms, f) = fmap and (mapM mkQuery ms) --> mkHook f mkQuery (a, tf) = fmap tf (getQuery a) mkHook func = ask >>= Query . lift . fmap Endo . func |