[project @ 2005-01-17 13:23:43 by simonmar]

[ghc-base.git] / Data / Map.hs

diff --git a/Data/Map.hs b/Data/Map.hs
index 2451016..b23880a 100644 (file)
--- 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