More Config.hs bugs

darcs-hash:20070503234607-a5988-3f9f46071263093707fdaba677899edc1a85edc1

1 files changed, 3 insertions, 3 deletions

diff --git a/Config.hs b/Config.hs
index 1f2598c..841b3ee 100644
--- a/Config.hs
+++ b/Config.hs
@@ -135,7 +135,7 @@ borderWidth = 1
 
 -- The default set of Layouts:
 defaultLayouts :: [Layout]
-defaultLayouts = [ full, tall defaultDelta (2%3), wide defaultDelta (2%3) ]
+defaultLayouts = [ full, tall defaultDelta (1%2), wide defaultDelta (1%2) ]
 
 --
 -- The key bindings list.
@@ -154,8 +154,8 @@ keys = M.fromList $
     , ((modMask,               xK_j     ), raise GT)
     , ((modMask,               xK_k     ), raise LT)
 
-    , ((modMask,               xK_h     ), layoutMsg Expand)
-    , ((modMask,               xK_l     ), layoutMsg Shrink)
+    , ((modMask,               xK_h     ), layoutMsg Shrink)
+    , ((modMask,               xK_l     ), layoutMsg Expand)
 
     , ((modMask .|. shiftMask, xK_c     ), kill)