diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 22:12:05 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 22:12:05 +0200 |
commit | 595021f9a0b70483a7e26337bab8b2da68cd4757 (patch) | |
tree | 3800d5ee909f007a77205f5484a732d12a988675 /XMonad/Hooks/XPropManage.hs | |
parent | 29c6f55759fc8a080c7dddf7094ec0e3a896df39 (diff) | |
download | XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.tar.gz XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.tar.xz XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.zip |
Remove trailing whitespace from many modules
Ignore-this: 1e28ff0974578d329bd3d593c1a5125e
darcs-hash:20090705201205-1499c-581bd0bb43ab6096eccded6edbd54a7a2007b0d9.gz
Diffstat (limited to 'XMonad/Hooks/XPropManage.hs')
-rw-r--r-- | XMonad/Hooks/XPropManage.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/XPropManage.hs b/XMonad/Hooks/XPropManage.hs index adfe27b..50678a5 100644 --- a/XMonad/Hooks/XPropManage.hs +++ b/XMonad/Hooks/XPropManage.hs @@ -34,7 +34,7 @@ import XMonad.ManageHook ((-->)) -- > import XMonad.Actions.TagWindows -- > import Data.List -- --- > manageHook = xPropManageHook xPropMatches +-- > manageHook = xPropManageHook xPropMatches -- > -- > xPropMatches :: [XPropMatch] -- > xPropMatches = [ ([ (wM_CLASS, any ("gimp"==))], (\w -> float w >> return (W.shift "2"))) @@ -71,7 +71,7 @@ xPropManageHook tms = mconcat $ map propToHook tms where 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 + mkHook func = ask >>= Query . lift . fmap Endo . func getProp :: Display -> Window -> Atom -> X ([String]) getProp d w p = do |