From 06893c2505abc8cd99dd20ce242545b2bad1c980 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Tue, 24 May 2011 03:51:35 +0200
Subject: Haddock formatting for a type (-->)

Ignore-this: 1d5ef3e32540bbfbf60578858895d7c

darcs-hash:20110524015135-1499c-391404d33d5cdb8a5444c8bd016369eb033308c2
---
 XMonad/ManageHook.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index b96933e..856c742 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -48,7 +48,8 @@ composeAll = mconcat
 infix 0 -->
 
 -- | @p --> x@.  If @p@ returns 'True', execute the 'ManageHook'.
--- (-->) :: Monoid m => Query Bool -> Query m -> Query m
+--
+-- > (-->) :: Monoid m => Query Bool -> Query m -> Query m -- a simpler type
 (-->) :: (Monad m, Monoid a) => m Bool -> m a -> m a
 p --> f = p >>= \b -> if b then f else return mempty
 
-- 
cgit v1.2.3