fix instance declaration of RingMap
This commit is contained in:
parent
7e08250f8c
commit
fb164dea0a
|
@ -256,10 +256,10 @@ type NodeCache = RingMap CacheEntry
|
|||
-- | generic data structure for holding elements with a key and modular lookup
|
||||
newtype RingMap a = RingMap { getRingMap :: HasKeyID a => Map.Map NodeID (RingEntry a) }
|
||||
|
||||
instance Eq (RingMap a) where
|
||||
instance (HasKeyID a) => Eq (RingMap a) where
|
||||
a == b = getRingMap a == getRingMap b
|
||||
|
||||
instance Show (RingMap a) where
|
||||
instance (HasKeyID a) => Show (RingMap a) where
|
||||
show rmap = shows (getRingMap rmap) "RingMap "
|
||||
|
||||
-- | entry of a 'RingMap' that holds a value and can also
|
||||
|
|
Loading…
Reference in a new issue