dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-03-30 09:59:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

instance

Browse Source
This commit is contained in:
Evgeny Poberezkin
2025-11-11 18:16:20 +00:00
parent 4257255de2
commit 17fe6edcde
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/Simplex/Messaging/Notifications/Protocol.hs
View File

@@ -470,13 +470,13 @@ toWPAuth s
newtype WPP256dh = WPP256dh ECC.PublicPoint
deriving (Eq, Show)
-- This Ord instance for ECC point is quite arbitrary, it is needed because token is used as Map key
instance Ord WPP256dh where
compare (WPP256dh p1) (WPP256dh p2) = comparePt p1 p2
where
comparePt ECC.PointO ECC.PointO = EQ
comparePt ECC.PointO (ECC.Point _ _) = LT
comparePt (ECC.Point _ _) ECC.PointO = GT
comparePt (ECC.Point x1 y1) (ECC.Point x2 y2) = compare (x1, y1) (x2, y2)
compare (WPP256dh p1) (WPP256dh p2) = case (p1, p2) of
(ECC.PointO, ECC.PointO) -> EQ
(ECC.PointO, _) -> GT
(_, ECC.PointO) -> LT
(ECC.Point x1 y1, ECC.Point x2 y2) -> compare (x1, y1) (x2, y2)
data WPKey = WPKey
{ wpAuth :: WPAuth,