From 215b5fabba19875f9032d7ce7bf33c0291149b47 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 15 Aug 2007 04:55:04 +0200
Subject: Add greedyView, make it the default action for mod-wer

darcs-hash:20070815025504-a5988-00ff316a056c48cc07c5e90925702d2ac09ae666
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index d5a5d3e..dce8195 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -92,7 +92,7 @@ shift n = windows (W.shift n)
 
 -- | view. Change the current workspace to workspace at offset n (0 indexed).
 view :: WorkspaceId -> X ()
-view = windows . W.view
+view = windows . W.greedyView
 
 -- | Modify the size of the status gap at the top of the current screen
 -- Taking a function giving the current screen, and current geometry.
-- 
cgit v1.2.3