diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-12-06 00:36:11 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-12-06 00:36:11 +0100 |
| commit | 3d0273b956966145e8538771254c5347225cf3ec (patch) | |
| tree | 350c688b2d7bb052d744f1384d3f8427abcfc1f7 | |
| parent | 087d3e7a45761d4570daf151bf3dd13f7c879858 (diff) | |
| download | metatile-3d0273b956966145e8538771254c5347225cf3ec.tar metatile-3d0273b956966145e8538771254c5347225cf3ec.zip | |
Generalize the type of (<+>). It can be used for keybindings too.
Ignore-this: af15248be5e483d1a6e924f786fcc1c4
darcs-hash:20091205233611-1499c-c79ec59901bb97416b25ecd5f1261a7a3331744b
| -rw-r--r-- | XMonad/ManageHook.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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. |