Make the Set store the elements evaluated (bang added).
authorMilan Straka <fox@ucw.cz>
Mon, 13 Sep 2010 16:51:32 +0000 (16:51 +0000)
committerMilan Straka <fox@ucw.cz>
Mon, 13 Sep 2010 16:51:32 +0000 (16:51 +0000)
Data/Set.hs

index 43060cf..3658c5d 100644 (file)
@@ -150,7 +150,7 @@ m1 \\ m2 = difference m1 m2
 --------------------------------------------------------------------}
 -- | A set of values @a@.
 data Set a    = Tip 
-              | Bin {-# UNPACK #-} !Size a !(Set a) !(Set a) 
+              | Bin {-# UNPACK #-} !Size !a !(Set a) !(Set a) 
 
 type Size     = Int