Changes between Version 31 and Version 32 of ViewPatterns

Timestamp:

07/23/07 07:38:34 (6 years ago)

Author:

simonmar

Comment:

fix Set insert

ViewPatterns

@@ -164 +164 @@
   
   insert :: a -> Set a -> Set a
-  insert x s@(has x -> _) = s
-  insert x (S xs)         = S (x:xs)
+  insert x s@(has x -> Just _) = s
+  insert x (S xs)              = S (x:xs)
 }}}