summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs3
1 files changed, 1 insertions, 2 deletions
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 )