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 | b548b28d7d7284552f3c3c7d69b543adb8299adb (patch) | |
tree | 06c4433739f5234611711a1f3a29ddfa7ba895aa /StackSet.hs | |
parent | 295978d8f21f8c67d40c0b894bd98a417bb5f63d (diff) | |
download | metatile-b548b28d7d7284552f3c3c7d69b543adb8299adb.tar metatile-b548b28d7d7284552f3c3c7d69b543adb8299adb.zip |
add can't happen case to silence incomplete patterns in StackSet.hs
darcs-hash:20071013185525-cba2c-8a71b323b20478a30ed62c8b1f33549ce563b42f
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 |