diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-10 03:13:08 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-10 03:13:08 +0200 |
| commit | 12510fb401dd85992dce79a4bc15005ab4c53a9d (patch) | |
| tree | 52c1ff641caa8bf5addec659e34a372c6279318b | |
| parent | e735810434ac390bf0719958ae873193e04bdc06 (diff) | |
| download | metatile-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
| -rw-r--r-- | XMonad/ManageHook.hs | 2 |
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 |