From 55ddb65c69dd48fc38d26754fb068df28c4c3611 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 13 Jun 2007 05:53:23 +0200
Subject: Update MagicFocus to the new StackSet

darcs-hash:20070613035323-a5988-1edc050bc03665275f154daa034f5117f1c157ce.gz
---
 MagicFocus.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'MagicFocus.hs')

diff --git a/MagicFocus.hs b/MagicFocus.hs
index 444a100..ecc10b4 100644
--- a/MagicFocus.hs
+++ b/MagicFocus.hs
@@ -7,5 +7,4 @@ magicFocus l = l { doLayout = \s -> (doLayout l) s . swap
                  , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x }
 
 swap :: Stack a -> Stack a
-swap Empty = Empty
-swap (Node f u d) = Node f [] (reverse u ++ d)
+swap (Stack f u d) = Stack f [] (reverse u ++ d)
-- 
cgit v1.2.3