From ddecf6d634a095c7ec94f10afc4e286ecb6bdf16 Mon Sep 17 00:00:00 2001 From: ross Date: Wed, 19 Jan 2005 23:32:04 +0000 Subject: [PATCH] [project @ 2005-01-19 23:32:04 by ross] fix name in Typeable instance --- Data/FiniteMap.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4