From 4a0e8989b4746df7aa5e4d1a039903c2e654e273 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Mon, 28 May 2007 09:06:09 +0200
Subject: ensure !! won't go out of bounds in modifyGap

darcs-hash:20070528070609-9c5c1-2f1c968174a8e53b4f37e62e6fd22a70f7ecf3b0
---
 Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index ca142cb..f9a66d2 100644
--- a/Config.hs
+++ b/Config.hs
@@ -120,7 +120,7 @@ keys = M.fromList $
     , ((modMask              , xK_period), sendMessage (IncMasterN (-1))) -- @@ Deincrement the number of windows in the master area
 
     -- toggle the status bar gap
-    , ((modMask              , xK_b     ), modifyGap (\i n -> let x = defaultGaps !! i in if n == x then (0,0,0,0) else x)) -- @@ Toggle the status bar gap
+    , ((modMask              , xK_b     ), modifyGap (\i n -> let x = (defaultGaps ++ repeat (0,0,0,0)) !! i in if n == x then (0,0,0,0) else x)) -- @@ Toggle the status bar gap
 
     -- quit, or restart
     , ((modMask .|. shiftMask, xK_q                     ), io (exitWith ExitSuccess)) -- @@ Quit xmonad
-- 
cgit v1.2.3