[project @ 2006-01-06 15:51:23 by simonpj]

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

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