From 1af7582b30d70ded97db92a69673849372c98fb9 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Tue, 12 Jun 2007 17:12:09 +0200 Subject: changes to work with Stacks that can't be empty. darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz --- DwmPromote.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'DwmPromote.hs') diff --git a/DwmPromote.hs b/DwmPromote.hs index 946a80f..cfcdad2 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -33,7 +33,7 @@ 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 +swap = modify' $ \c -> case c of + Stack _ [] [] -> c + Stack t [] (x:rs) -> Stack x [] (t:rs) + Stack t ls rs -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls -- cgit v1.2.3