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

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

diff --git a/Data/IntSet.hs b/Data/IntSet.hs
index 510498c..1d46218 100644 (file)
--- a/Data/IntSet.hs
+++ b/Data/IntSet.hs
@@ -95,6 +95,7 @@ import Data.Int
 
 import qualified Data.List as List
 import Data.Monoid
+import Data.Typeable
 
 {-
 -- just for testing
@@ -581,6 +582,13 @@ showSet (x:xs)
     showTail (x:xs) = showChar ',' . shows x . showTail xs
 
 {--------------------------------------------------------------------
+  Typeable
+--------------------------------------------------------------------}
+
+#include "Typeable.h"
+INSTANCE_TYPEABLE0(IntSet,intSetTc,"IntSet")
+
+{--------------------------------------------------------------------
   Debugging
 --------------------------------------------------------------------}
 -- | /O(n)/. Show the tree that implements the set. The tree is shown