X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FIntSet.hs;h=1d462182bdfd654541351ecef9d5670c4ab00f8f;hb=7d4e0922dd95d5a72d02ecc865598f1ce86aa48d;hp=510498ca7579013a147901c2e815cd7362187ebf;hpb=7e8c7becf29c0fd359ff7e205b60df3ef4b920fb;p=ghc-base.git

diff --git a/Data/IntSet.hs b/Data/IntSet.hs
index 510498c..1d46218 100644
--- 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