yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make compression an instance of Eq.

Browse source
This commit is contained in:
Vincent Hanquez 2014-01-17 07:09:50 +00:00
parent 439ea6ba85
commit 2d1aeb76c2
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/Network/TLS/Compression.hs
View file

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