X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FFiniteMap.hs;h=8bafafce1d349c15afb854c48962c4d888691a00;hb=c926c49d6a535729214d31815a748520561191a6;hp=d9279171c348e0f4758194b6263ddae46f36f017;hpb=0d6c1599c246100deb2fa54315811ed94d1a300c;p=ghc-base.git

diff --git a/Data/FiniteMap.hs b/Data/FiniteMap.hs
index d927917..8bafafc 100644
--- 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