diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2011-05-24 03:51:35 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2011-05-24 03:51:35 +0200 |
| commit | 369f1776dff5a14670edbb90e937db3baa4241a6 (patch) | |
| tree | c29799ef8a329cfae7e34abaf031c1f098dbeef5 /XMonad | |
| parent | 39735df206f45d77e25bfdd96a049c4e1507bf85 (diff) | |
| download | xmonad-369f1776dff5a14670edbb90e937db3baa4241a6.tar.gz xmonad-369f1776dff5a14670edbb90e937db3baa4241a6.tar.xz xmonad-369f1776dff5a14670edbb90e937db3baa4241a6.zip | |
Haddock formatting for a type (-->)
Ignore-this: 1d5ef3e32540bbfbf60578858895d7c
darcs-hash:20110524015135-1499c-391404d33d5cdb8a5444c8bd016369eb033308c2.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/ManageHook.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |