ensure !! won't go out of bounds in modifyGap

darcs-hash:20070528070609-9c5c1-2f1c968174a8e53b4f37e62e6fd22a70f7ecf3b0

1 files changed, 1 insertions, 1 deletions

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