projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 qualified Data.List as List
import Data.Monoid
+import Data.Typeable
{-
-- just for testing
{-
-- just for testing
@@
-581,6
+582,13
@@
showSet (x:xs)
showTail (x:xs) = showChar ',' . shows x . showTail 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
Debugging
--------------------------------------------------------------------}
-- | /O(n)/. Show the tree that implements the set. The tree is shown