Generalize the type of (<+>). It can be used for keybindings too.

This commit is contained in:
Adam Vogt 2009-12-05 23:36:11 +00:00
parent a16bb44934
commit d5aadf2538

View File

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