make compression an instance of Eq.
This commit is contained in:
parent
439ea6ba85
commit
2d1aeb76c2
1 changed files with 2 additions and 0 deletions
|
@ -53,6 +53,8 @@ compressionInflate bytes (Compression c) = first Compression $ compressionCInfla
|
|||
|
||||
instance Show Compression where
|
||||
show = show . compressionID
|
||||
instance Eq Compression where
|
||||
(==) c1 c2 = compressionID c1 == compressionID c2
|
||||
|
||||
-- | intersect a list of ids commonly given by the other side with a list of compression
|
||||
-- the function keeps the list of compression in order, to be able to find quickly the prefered
|
||||
|
|
Loading…
Reference in a new issue