From 503d0792d01795c52c48aaf999ade97e9571a85e Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Sat, 13 Oct 2007 20:55:25 +0200
Subject: add can't happen case to silence incomplete patterns in StackSet.hs

darcs-hash:20071013185525-cba2c-8a71b323b20478a30ed62c8b1f33549ce563b42f.gz
---
 StackSet.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/StackSet.hs b/StackSet.hs
index 48bf5e1..516e214 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -244,7 +244,7 @@ view i s
     = s { current = (current s) { workspace = x }
         , hidden = workspace (current s) : L.deleteBy (equating tag) x (hidden s) }
 
---  | otherwise = s -- can't happen: all workspaces are either invalid, current, visible, or hidden
+    | otherwise = s -- can't happen: all workspaces are either invalid, current, visible, or hidden
 
   where equating f = \x y -> f x == f y
 
-- 
cgit v1.2.3