diff options
| author | Miikka Koskinen <arcatan@kapsi.fi> | 2007-05-03 12:52:36 +0200 |
|---|---|---|
| committer | Miikka Koskinen <arcatan@kapsi.fi> | 2007-05-03 12:52:36 +0200 |
| commit | 6c8f0bf45f558ce35d4ecadb4c285cca0830eb57 (patch) | |
| tree | b4d5d9b3b5b5c7afa7a0ac52f57aed1d0aaba2fa /DwmPromote.hs | |
| parent | a27649dcabb864253e3496e15a24842a0fcd3b92 (diff) | |
| download | XMonadContrib-6c8f0bf45f558ce35d4ecadb4c285cca0830eb57.tar.gz XMonadContrib-6c8f0bf45f558ce35d4ecadb4c285cca0830eb57.tar.xz XMonadContrib-6c8f0bf45f558ce35d4ecadb4c285cca0830eb57.zip | |
make DwmPromote compile
darcs-hash:20070503105236-0ff8e-5a4a5a5f389f1319b56e1535af461a0a28cf5c2f.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 7792fdd..68487ce 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -37,8 +37,8 @@ promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a promote w = maybe w id $ do a <- peek w -- fail if null let stack = index (current w) w - let newstack = swap a (next stack a) stack - return $ w { stacks = M.insert (current w) newstack (stacks w), + newstack = swap a (next stack a) stack + return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w), focus = M.insert (current w) (head newstack) (focus w) } where next s a | head s /= a = head s -- focused is not master |