diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2010-11-13 03:28:39 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2010-11-13 03:28:39 +0100 |
| commit | 2836dd292e18c0ec210c31446a6efa3607a35f9a (patch) | |
| tree | bb65d37e8831c1cbe9f3f945b7ff41f3f6d1aa9a /XMonad/Layout/Groups | |
| parent | c46b3f207ac6a88c041f5608ae5884712976eba9 (diff) | |
| download | XMonadContrib-2836dd292e18c0ec210c31446a6efa3607a35f9a.tar.gz XMonadContrib-2836dd292e18c0ec210c31446a6efa3607a35f9a.tar.xz XMonadContrib-2836dd292e18c0ec210c31446a6efa3607a35f9a.zip | |
Pointfree and -XRank2Types don't mix in X.L.Groups.Helpers
Ignore-this: 21aa9b687179c5622dc6fae749c7872
It used to work with ghc-6.12 (and earlier?), but ghc-7RC2 type inference
doesn't work with . instead of it's definition.
darcs-hash:20101113022839-1499c-e4b76537164f29e065c24db279215dbac727c01f.gz
Diffstat (limited to 'XMonad/Layout/Groups')
| -rw-r--r-- | XMonad/Layout/Groups/Helpers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/Groups/Helpers.hs b/XMonad/Layout/Groups/Helpers.hs index 1c979ba..972f357 100644 --- a/XMonad/Layout/Groups/Helpers.hs +++ b/XMonad/Layout/Groups/Helpers.hs @@ -209,14 +209,14 @@ focusGroupMaster = wrap G.focusGroupMaster -- group: Wrap back to the end ('True'), or create a new group before -- it ('False'). moveToGroupUp :: Bool -> X () -moveToGroupUp = wrap . G.moveToGroupUp +moveToGroupUp b = wrap (G.moveToGroupUp b) -- | Move the focused window to the next group. The 'Bool' argument -- determines what will be done if the focused window is in the very last -- group: Wrap back to the beginning ('True'), or create a new group after -- it ('False'). moveToGroupDown :: Bool -> X () -moveToGroupDown = wrap . G.moveToGroupDown +moveToGroupDown b = wrap (G.moveToGroupDown b) -- | Move the focused window to a new group before the current one moveToNewGroupUp :: X () |