Fri Sep 30 16:42:15 WEST 2005 Malcolm.Wallace@cs.york.ac.uk
* add ops to Set
Add null test and Ord instance on Sets. (Already in fptools)
{
hunk ./lib/DData/Set.hs 74
+ , Set.null
hunk ./lib/DData/Set.hs 163
+null :: Set a -> Bool
+null = isEmpty
+
hunk ./lib/DData/Set.hs 459
+ Ord
+--------------------------------------------------------------------}
+instance Ord a => Ord (Set a) where
+ compare s1 s2 = compare (toAscList s1) (toAscList s2)
+
+{--------------------------------------------------------------------
hunk ./lib/DData/Set.hs 1043
+
}