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

[haskell-directory.git] / Data / Map.hs

diff --git a/Data/Map.hs b/Data/Map.hs
index beddb7b..d88ceb5 100644 (file)
--- a/Data/Map.hs
+++ b/Data/Map.hs
@@ -216,7 +216,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
+  dataCast2 f    = gcast2 f
 
 #endif