diff options
| -rw-r--r-- | StackSet.hs | 2 |
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' |