Changes between Version 31 and Version 32 of ViewPatterns


Ignore:
Timestamp:
Jul 23, 2007 2:38:34 PM (8 years ago)
Author:
simonmar
Comment:

fix Set insert

Legend:

Unmodified
Added
Removed
Modified
  • ViewPatterns

    v31 v32  
    164164   
    165165  insert :: a -> Set a -> Set a 
    166   insert x s@(has x -> _) = s 
    167   insert x (S xs)         = S (x:xs) 
     166  insert x s@(has x -> Just _) = s 
     167  insert x (S xs)              = S (x:xs) 
    168168}}} 
    169169