From 2836dd292e18c0ec210c31446a6efa3607a35f9a Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sat, 13 Nov 2010 03:28:39 +0100 Subject: 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 --- XMonad/Layout/Groups/Helpers.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Layout/Groups') 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 () -- cgit v1.2.3