diff options
| author | Miikka Koskinen <arcatan@kapsi.fi> | 2007-05-22 08:21:18 +0200 |
|---|---|---|
| committer | Miikka Koskinen <arcatan@kapsi.fi> | 2007-05-22 08:21:18 +0200 |
| commit | 84eaa44096b62df28755fa00e6b483dc2b860c89 (patch) | |
| tree | dacf1c0e124bda4785b3cf181c42c54027bc9bb7 /DwmPromote.hs | |
| parent | 72fdae2450b73e99ba1f3f204e48de7677870d25 (diff) | |
| download | XMonadContrib-84eaa44096b62df28755fa00e6b483dc2b860c89.tar.gz XMonadContrib-84eaa44096b62df28755fa00e6b483dc2b860c89.tar.xz XMonadContrib-84eaa44096b62df28755fa00e6b483dc2b860c89.zip | |
bug fix in DwmPromote. whoops.
darcs-hash:20070522062118-0ff8e-86d6342787bfb015dde2037dc46a59e9e828b014.gz
Diffstat (limited to 'DwmPromote.hs')
| -rw-r--r-- | DwmPromote.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/DwmPromote.hs b/DwmPromote.hs index 10cbafe..946a80f 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -27,13 +27,13 @@ module XMonadContrib.DwmPromote (dwmpromote) where import XMonad import Operations (windows) -import StackSet hiding (swap) -import qualified Data.Map as M +import StackSet dwmpromote :: X () dwmpromote = windows swap swap :: StackSet i a s -> StackSet i a s swap = modify Empty $ \c -> case c of + Node _ [] [] -> c Node t [] (x:rs) -> Node x [] (t:rs) Node t ls rs -> Node t [] (ys ++ x : rs) where (x:ys) = reverse ls |