From 78d4f03d2923a1a1c661361b92a170351fedd72b Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 24 Jul 2007 17:23:40 +0200
Subject: shift: use guards instead of if

darcs-hash:20070724152340-a5988-dec59fcb145282845349ec5baf700b62a25ac116.gz
---
 StackSet.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'StackSet.hs')

diff --git a/StackSet.hs b/StackSet.hs
index 3951ec2..e6b2996 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -474,7 +474,7 @@ swapMaster = modify' $ \c -> case c of
 -- element on the current stack, the original stackSet is returned.
 --
 shift :: (Ord a, Eq s, Eq i) => i -> StackSet i a s sd -> StackSet i a s sd
-shift n s = if n `tagMember` s && n /= curtag
-              then maybe s go (peek s) else s
+shift n s | n `tagMember` s && n /= curtag = maybe s go (peek s)
+          | otherwise                      = s
     where go w = view curtag . insertUp w . view n . delete w $ s
           curtag = tag (workspace (current s))
-- 
cgit v1.2.3