diff options
| -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 |