From 8e7faaa30f9bac4a39f1e9db5accef99f3a091cb Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 4 May 2007 01:56:32 +0200
Subject: Fix layout switching order

darcs-hash:20070503235632-a5988-98863d7067876591bd9da2b33d062bfe2c5b42fd
---
 Operations.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 8df287d..c1aa876 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -97,8 +97,7 @@ flipRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw)
 -- switching back , the focused window is uppermost.
 --
 switchLayout :: X ()
-switchLayout = layout rotateList where rotateList [] = []
-                                       rotateList xs = last xs : init xs
+switchLayout = layout (\(x:xs) -> xs ++ [x])
 
 data ShrinkOrExpand = Shrink | Expand deriving ( Typeable, Eq )
 
-- 
cgit v1.2.3