diff options
author | Miikka Koskinen <arcatan@kapsi.fi> | 2007-05-10 17:41:58 +0200 |
---|---|---|
committer | Miikka Koskinen <arcatan@kapsi.fi> | 2007-05-10 17:41:58 +0200 |
commit | 0a94f42558fbcc6e7bbc6bdd8b12b3a22cecc9d2 (patch) | |
tree | 9765eb2e1b9d9c73e53cada58d5f163a35f8b5ca /DwmPromote.hs | |
parent | 6c8f0bf45f558ce35d4ecadb4c285cca0830eb57 (diff) | |
download | XMonadContrib-0a94f42558fbcc6e7bbc6bdd8b12b3a22cecc9d2.tar.gz XMonadContrib-0a94f42558fbcc6e7bbc6bdd8b12b3a22cecc9d2.tar.xz XMonadContrib-0a94f42558fbcc6e7bbc6bdd8b12b3a22cecc9d2.zip |
make DwmPromote compile again
darcs-hash:20070510154158-0ff8e-bcf0ba38fcd4f6d28e491996d0d2370667111861.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 68487ce..e2f64a0 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -36,8 +36,8 @@ dwmpromote = windows promote 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 - newstack = swap a (next stack a) stack + stack <- index (current w) w + let 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 |