From 150e990ea4c5b875d54a5ffcad79e202865b1e62 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 12 Jun 2007 16:32:48 +0200
Subject: Make 'view' a total function

darcs-hash:20070612143248-a5988-1e99f26ec88e7f8ca791e215bb81ec5a17c7bb58
---
 StackSet.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/StackSet.hs b/StackSet.hs
index a226573..99684ad 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -214,7 +214,7 @@ view i s
     = s { current = Screen x (screen (current s))
         , hidden = workspace (current s) : L.delete x (hidden s) }
 
-    | otherwise = abort "Inconsistent StackSet: workspace not found"
+    | otherwise = s
 
     -- 'Catch'ing this might be hard. Relies on monotonically increasing
     -- workspace tags defined in 'new'
-- 
cgit v1.2.3