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

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

diff --git a/Data/Map.hs b/Data/Map.hs
index da12f9d..96dc045 100644 (file)
--- a/Data/Map.hs
+++ b/Data/Map.hs
@@ -212,6 +212,7 @@ instance (Data k, Data a, Ord k) => Data (Map k a) where
   toConstr _     = error "toConstr"
   gunfold _ _    = error "gunfold"
   dataTypeOf _   = mkNorepType "Data.Map.Map"
+  dataCast2      = gcast2
 
 #endif