diff options
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 48bf5e1..516e214 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -244,7 +244,7 @@ view i s = s { current = (current s) { workspace = x } , hidden = workspace (current s) : L.deleteBy (equating tag) x (hidden s) } --- | otherwise = s -- can't happen: all workspaces are either invalid, current, visible, or hidden + | otherwise = s -- can't happen: all workspaces are either invalid, current, visible, or hidden where equating f = \x y -> f x == f y |