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
/
Set.hs
diff --git
a/Data/Set.hs
b/Data/Set.hs
index
887c206
..
3affb0a
100644
(file)
--- a/
Data/Set.hs
+++ b/
Data/Set.hs
@@
-114,6
+114,7
@@
module Data.Set (
import Prelude hiding (filter,foldr,foldl,null,map)
import Data.Monoid
import qualified Data.List as List
import Prelude hiding (filter,foldr,foldl,null,map)
import Data.Monoid
import qualified Data.List as List
+import Data.Typeable
{-
-- just for testing
{-
-- just for testing
@@
-508,6
+509,13
@@
showSet (x:xs)
{--------------------------------------------------------------------
{--------------------------------------------------------------------
+ Typeable/Data
+--------------------------------------------------------------------}
+
+#include "Typeable.h"
+INSTANCE_TYPEABLE1(Set,setTc,"Set")
+
+{--------------------------------------------------------------------
Utility functions that return sub-ranges of the original
tree. Some functions take a comparison function as argument to
allow comparisons against infinite values. A function [cmplo x]
Utility functions that return sub-ranges of the original
tree. Some functions take a comparison function as argument to
allow comparisons against infinite values. A function [cmplo x]