[project @ 2005-01-19 23:32:04 by ross]

fix name in Typeable instance

diff --git a/Data/FiniteMap.hs b/Data/FiniteMap.hs
index d927917..8bafafc 100644 (file)
--- a/Data/FiniteMap.hs
+++ b/Data/FiniteMap.hs
@@ -305,7 +305,7 @@ instance (Data a, Data b, Ord a) => Data (FiniteMap a b) where
   gfoldl f z fm = z listToFM `f` (fmToList fm)
   toConstr _    = error "toConstr"
   gunfold _ _   = error "gunfold"
-  dataTypeOf _  = mkNorepType "Data.Array.Array"
+  dataTypeOf _  = mkNorepType "Data.FiniteMap.FiniteMap"
 
 #endif