From 0a99440e52d872287b1add151c2608f089c45c5c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 06:04:39 +0100 Subject: No more tabs darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz --- XMonad/Actions/FocusNth.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'XMonad/Actions/FocusNth.hs') diff --git a/XMonad/Actions/FocusNth.hs b/XMonad/Actions/FocusNth.hs index 8c140cd..af70dc7 100644 --- a/XMonad/Actions/FocusNth.hs +++ b/XMonad/Actions/FocusNth.hs @@ -38,12 +38,13 @@ focusNth :: Int -> X () focusNth = windows . modify' . focusNth' focusNth' :: Int -> Stack a -> Stack a -focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s - | otherwise = listToStack n (integrate s) +focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s + | otherwise = listToStack n (integrate s) listToStack :: Int -> [a] -> Stack a listToStack n l = Stack t ls rs - where (t:rs) = drop n l - ls = reverse (take n l) + where + (t:rs) = drop n l + ls = reverse (take n l) -- cgit v1.2.3