From 84eaa44096b62df28755fa00e6b483dc2b860c89 Mon Sep 17 00:00:00 2001
From: Miikka Koskinen <arcatan@kapsi.fi>
Date: Tue, 22 May 2007 08:21:18 +0200
Subject: bug fix in DwmPromote. whoops.

darcs-hash:20070522062118-0ff8e-86d6342787bfb015dde2037dc46a59e9e828b014.gz
---
 DwmPromote.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'DwmPromote.hs')

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
-- 
cgit v1.2.3