diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-12 16:32:48 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-12 16:32:48 +0200 |
| commit | 150e990ea4c5b875d54a5ffcad79e202865b1e62 (patch) | |
| tree | 7f1397720b2f14e0e771b32f3c535f80f6fe302e /StackSet.hs | |
| parent | f588fbb5a378f321be8fb0cfa33204ed83508983 (diff) | |
| download | metatile-150e990ea4c5b875d54a5ffcad79e202865b1e62.tar metatile-150e990ea4c5b875d54a5ffcad79e202865b1e62.zip | |
Make 'view' a total function
darcs-hash:20070612143248-a5988-1e99f26ec88e7f8ca791e215bb81ec5a17c7bb58
Diffstat (limited to 'StackSet.hs')
| -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' |