From 6153458ce51cadbaf31fbc3fcbc4ca14a76772e8 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.gz
---
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