From 8252c263305bc52db9c71cde73faac8cecc4fb93 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 4 Jun 2007 20:33:44 +0200
Subject: Remove redundant cases in swapUp/Down

darcs-hash:20070604183344-a5988-77df217c8b8b2f958f1adfceb3ee8fe94942e9a8
---
 StackSet.hs | 2 --
 1 file changed, 2 deletions(-)

(limited to 'StackSet.hs')

diff --git a/StackSet.hs b/StackSet.hs
index d1fe054..2b6ed68 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -279,12 +279,10 @@ focusUp' (Node t []     rs) = Node x xs [] where (x:xs) = reverse (t:rs)
 focusDown = modify Empty (reverseStack . focusUp' . reverseStack)
 
 swapUp = modify Empty $ \c -> case c of
-    Node _ []     [] -> c
     Node t (l:ls) rs -> Node t ls (l:rs)
     Node t []     rs -> Node t (reverse rs) []
 
 swapDown = modify Empty $ \c -> case c of
-    Node _ []     [] -> c
     Node t ls (r:rs) -> Node t (r:ls) rs
     Node t ls     [] -> Node t [] (reverse ls)
 
-- 
cgit v1.2.3