fix instance declaration of RingMap

This commit is contained in:
Trolli Schmittlauch 2020-06-17 14:32:26 +02:00
parent 7e08250f8c
commit fb164dea0a

View file

@ -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