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 | e18d0bb9b0ac13be7c0bbf7cdcdd2a1eb2edbe32 (patch) | |
| tree | 52c1ff641caa8bf5addec659e34a372c6279318b | |
| parent | af0780fbc3048454def7c262888a4195e48e3ed4 (diff) | |
| download | xmonad-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
| -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 |