When splitting a bucket, keep the contents in the same order

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

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