twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 20:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Haddock formatting for a type (-->)

Browse Source
This commit is contained in:
Adam Vogt
2011-05-24 01:51:35 +00:00
parent 19c1759b35
commit a025912ab7
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/ManageHook.hs
View File

@@ -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