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

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

diff --git a/Data/IntMap.hs b/Data/IntMap.hs
index d5fc9e7..1606413 100644 (file)
--- a/Data/IntMap.hs
+++ b/Data/IntMap.hs
@@ -236,7 +236,7 @@ instance Data a => Data (IntMap a) where
   toConstr _    = error "toConstr"
   gunfold _ _   = error "gunfold"
   dataTypeOf _  = mkNorepType "Data.IntMap.IntMap"
-  dataCast1      = gcast1
+  dataCast1 f   = gcast1 f
 
 #endif