summaryrefslogtreecommitdiffstats
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
commit12510fb401dd85992dce79a4bc15005ab4c53a9d (patch)
tree52c1ff641caa8bf5addec659e34a372c6279318b /XMonad
parente735810434ac390bf0719958ae873193e04bdc06 (diff)
downloadmetatile-12510fb401dd85992dce79a4bc15005ab4c53a9d.tar
metatile-12510fb401dd85992dce79a4bc15005ab4c53a9d.zip
Set infix 0 --> to reduce parentheses in ManageHooks
Ignore-this: 75804147fffeceddd328869cbca0d20f What was previously: > (appName ?= x <&&> classname ?= y) --> (doFloat <+> doIgnore) Can now be: > appName ?= x <&&> classname ?= y --> doFloat <+> doIgnore darcs-hash:20090710011308-1499c-ce280fdfa6c53b5dc5e55eb9c6235867d2fedbd2
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