diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-26 04:45:41 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-26 04:45:41 +0100 |
commit | e80fdc8ebb807632f320a5917b295daadf0d06cb (patch) | |
tree | 2f4f91d1bace28689339f1e572bccd9808fd1114 /XMonad/Layout/TabBarDecoration.hs | |
parent | 42263db712eb9b672ce92ab92e4128bb89f2d331 (diff) | |
download | XMonadContrib-e80fdc8ebb807632f320a5917b295daadf0d06cb.tar.gz XMonadContrib-e80fdc8ebb807632f320a5917b295daadf0d06cb.tar.xz XMonadContrib-e80fdc8ebb807632f320a5917b295daadf0d06cb.zip |
Fix bugs in Tabbed and TabBarDecoration -- please remember multi-head!
darcs-hash:20080326034541-a5988-94e33a7c01ac2ec88fe8601c7fd77536c48ea6d2.gz
Diffstat (limited to 'XMonad/Layout/TabBarDecoration.hs')
-rw-r--r-- | XMonad/Layout/TabBarDecoration.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/TabBarDecoration.hs b/XMonad/Layout/TabBarDecoration.hs index 9339a64..5305428 100644 --- a/XMonad/Layout/TabBarDecoration.hs +++ b/XMonad/Layout/TabBarDecoration.hs @@ -75,4 +75,4 @@ instance Eq a => DecorationStyle TabBarDecoration a where ny = case p of Top -> y Bottom -> y + fi ht - fi dht - nx = maybe x (fi . loc) $ w `elemIndex` wrs + nx = (x +) $ maybe 0 (fi . loc) $ w `elemIndex` wrs |