X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FMap.hs;h=b23880a1a3a47ef08c007432bae378a3c8425253;hb=7d4e0922dd95d5a72d02ecc865598f1ce86aa48d;hp=245101625b9329170faa270ecc928ea736c8e38f;hpb=faa067c418ce36f4cb4e54e2fb19012736ef49ed;p=ghc-base.git

diff --git a/Data/Map.hs b/Data/Map.hs
index 2451016..b23880a 100644
--- a/Data/Map.hs
+++ b/Data/Map.hs
@@ -151,6 +151,7 @@ import Prelude hiding (lookup,map,filter,foldr,foldl,null)
 import Data.Monoid
 import qualified Data.Set as Set
 import qualified Data.List as List
+import Data.Typeable
 
 {-
 -- for quick check
@@ -1374,6 +1375,12 @@ node           = "+--"
 withBar bars   = "|  ":bars
 withEmpty bars = "   ":bars
 
+{--------------------------------------------------------------------
+  Typeable
+--------------------------------------------------------------------}
+
+#include "Typeable.h"
+INSTANCE_TYPEABLE2(Map,mapTc,"Map")
 
 {--------------------------------------------------------------------
   Assertions