From 12510fb401dd85992dce79a4bc15005ab4c53a9d Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 10 Jul 2009 03:13:08 +0200
Subject: 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
---
 XMonad/ManageHook.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'XMonad')

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
-- 
cgit v1.2.3