diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-07-24 16:59:27 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-07-24 16:59:27 +0200 |
| commit | c7970c51835a7506eb3c2988f319bc6dced9bfc6 (patch) | |
| tree | d3207d8135ac1eb15ad2a9ca609929590d38fe51 /StackSet.hs | |
| parent | c39dc2fecbf776230cb4296e01a431837353f495 (diff) | |
| download | xmonad-c7970c51835a7506eb3c2988f319bc6dced9bfc6.tar.gz xmonad-c7970c51835a7506eb3c2988f319bc6dced9bfc6.tar.xz xmonad-c7970c51835a7506eb3c2988f319bc6dced9bfc6.zip | |
Remove redundant 'n >
darcs-hash:20070724145927-a5988-2e681f183964587aedd9d0b1e0ab33f7e25779ba.gz
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 265359c..29b2a48 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -487,7 +487,7 @@ swapMaster = modify' $ \c -> case c of -- element on the current stack, the original stackSet is returned. -- shift :: (Ord a, Eq s, Integral i) => i -> StackSet i a s sd -> StackSet i a s sd -shift n s = if n >= 0 && n `tagMember` s && n /= curtag +shift n s = if n `tagMember` s && n /= curtag then maybe s go (peek s) else s where go w = view curtag . insertUp w . view n . delete w $ s curtag = tag (workspace (current s)) |