diff options
| author | peb <unknown> | 2005-04-12 09:49:44 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-04-12 09:49:44 +0000 |
| commit | fa6ba9a5318640778040e86268e9003216f3636e (patch) | |
| tree | fdbafb9713893bfb978d3c18f0fc7fc778bc763e /src/GF/Data | |
| parent | 5f25c828178281ed8f8b77abc0b599d740c797b0 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Data')
| -rw-r--r-- | src/GF/Data/Assoc.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Data/Assoc.hs b/src/GF/Data/Assoc.hs index c783ef744..64ec3bac9 100644 --- a/src/GF/Data/Assoc.hs +++ b/src/GF/Data/Assoc.hs @@ -5,9 +5,9 @@ -- Stability : Stable -- Portability : Haskell 98 -- --- > CVS $Date: 2005/03/29 11:17:54 $ +-- > CVS $Date: 2005/04/12 10:49:45 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.2 $ +-- > CVS $Revision: 1.3 $ -- -- Association lists, or finite maps, -- including sets as maps with result type @()@. @@ -81,7 +81,7 @@ lookupWith :: Ord a => b -> Assoc a b -> a -> b ------------------------------------------------------------ data Assoc a b = ANil | ANode (Assoc a b) a b (Assoc a b) - deriving (Eq, Show) + deriving (Eq, Ord, Show) emptyAssoc = ANil emptySet = emptyAssoc |