From: ross <unknown>
Date: Wed, 19 Jan 2005 23:32:04 +0000 (+0000)
Subject: [project @ 2005-01-19 23:32:04 by ross]
X-Git-Tag: nhc98-1-18-release~98
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ddecf6d634a095c7ec94f10afc4e286ecb6bdf16;p=haskell-directory.git

[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
--- 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