aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-07-10 03:13:08 +0200
committerAdam Vogt <vogt.adam@gmail.com>2009-07-10 03:13:08 +0200
commite18d0bb9b0ac13be7c0bbf7cdcdd2a1eb2edbe32 (patch)
tree52c1ff641caa8bf5addec659e34a372c6279318b /XMonad
parentaf0780fbc3048454def7c262888a4195e48e3ed4 (diff)
downloadxmonad-e18d0bb9b0ac13be7c0bbf7cdcdd2a1eb2edbe32.tar.gz
xmonad-e18d0bb9b0ac13be7c0bbf7cdcdd2a1eb2edbe32.tar.xz
xmonad-e18d0bb9b0ac13be7c0bbf7cdcdd2a1eb2edbe32.zip
Set infix 0 --> to reduce parentheses in ManageHooks
Ignore-this: 75804147fffeceddd328869cbca0d20f What was previously: > (appName ? darcs-hash:20090710011308-1499c-ce280fdfa6c53b5dc5e55eb9c6235867d2fedbd2.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/ManageHook.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index ac528c1..fc7017d 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -45,6 +45,8 @@ idHook = doF id
composeAll :: [ManageHook] -> ManageHook
composeAll = mconcat
+infix 0 -->
+
-- | @p --> x@. If @p@ returns 'True', execute the 'ManageHook'.
(-->) :: Query Bool -> ManageHook -> ManageHook
p --> f = p >>= \b -> if b then f else mempty