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 | b7585bae1e0242d6f162e42051301569cca361a3 (patch) | |
| tree | 350c688b2d7bb052d744f1384d3f8427abcfc1f7 /XMonad | |
| parent | d611131ff60def671f0de351a0f522f3e3111998 (diff) | |
| download | xmonad-b7585bae1e0242d6f162e42051301569cca361a3.tar.gz xmonad-b7585bae1e0242d6f162e42051301569cca361a3.tar.xz xmonad-b7585bae1e0242d6f162e42051301569cca361a3.zip | |
Generalize the type of (<+>). It can be used for keybindings too.
Ignore-this: af15248be5e483d1a6e924f786fcc1c4
darcs-hash:20091205233611-1499c-c79ec59901bb97416b25ecd5f1261a7a3331744b.gz
Diffstat (limited to 'XMonad')
| -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. |