From 3d0273b956966145e8538771254c5347225cf3ec Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 6 Dec 2009 00:36:11 +0100
Subject: Generalize the type of (<+>). It can be used for keybindings too.

Ignore-this: af15248be5e483d1a6e924f786fcc1c4

darcs-hash:20091205233611-1499c-c79ec59901bb97416b25ecd5f1261a7a3331744b
---
 XMonad/ManageHook.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index be9bc58..97afce5 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -37,8 +37,8 @@ liftX = Query . lift
 idHook :: ManageHook
 idHook = doF id
 
--- | Compose two 'ManageHook's.
-(<+>) :: ManageHook -> ManageHook -> ManageHook
+-- | Infix 'mappend'. Compose two 'ManageHook' from right to left.
+(<+>) :: Monoid m => m -> m -> m
 (<+>) = mappend
 
 -- | Compose the list of 'ManageHook's.
-- 
cgit v1.2.3