[project @ 2005-12-15 11:17:31 by simonmar]

[ghc-base.git] / Data / Set.hs

diff --git a/Data/Set.hs b/Data/Set.hs
index fe3b0b4..34cb16a 100644 (file)
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -171,6 +171,7 @@ instance (Data a, Ord a) => Data (Set a) where
   toConstr _     = error "toConstr"
   gunfold _ _    = error "gunfold"
   dataTypeOf _   = mkNorepType "Data.Set.Set"
+  dataCast1      = gcast1
 
 #endif