summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-12 16:32:48 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-12 16:32:48 +0200
commit150e990ea4c5b875d54a5ffcad79e202865b1e62 (patch)
tree7f1397720b2f14e0e771b32f3c535f80f6fe302e
parentf588fbb5a378f321be8fb0cfa33204ed83508983 (diff)
downloadmetatile-150e990ea4c5b875d54a5ffcad79e202865b1e62.tar
metatile-150e990ea4c5b875d54a5ffcad79e202865b1e62.zip
Make 'view' a total function
darcs-hash:20070612143248-a5988-1e99f26ec88e7f8ca791e215bb81ec5a17c7bb58
-rw-r--r--StackSet.hs2
1 files changed, 1 insertions, 1 deletions
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'