diff options
| author | Don Stewart <dons@galois.com> | 2007-10-13 20:55:25 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-10-13 20:55:25 +0200 |
| commit | 503d0792d01795c52c48aaf999ade97e9571a85e (patch) | |
| tree | 06c4433739f5234611711a1f3a29ddfa7ba895aa /StackSet.hs | |
| parent | b75dbe250eeeefb8073dcc2f5e2b0edaccd21977 (diff) | |
| download | xmonad-503d0792d01795c52c48aaf999ade97e9571a85e.tar.gz xmonad-503d0792d01795c52c48aaf999ade97e9571a85e.tar.xz xmonad-503d0792d01795c52c48aaf999ade97e9571a85e.zip | |
add can't happen case to silence incomplete patterns in StackSet.hs
darcs-hash:20071013185525-cba2c-8a71b323b20478a30ed62c8b1f33549ce563b42f.gz
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 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 |