mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-05-12 03:44:45 +00:00
spaced4ndy
89b81d151f
* agent: getConnShortLinkAsync * enable all tests * comment * comment * join conn async for contact URI (wip) * fix test * remove enableNtfs param * FixedLinkData --------- Co-authored-by: Evgeny Poberezkin <evgeny@poberezkin.com>
34 lines
823 B
Haskell
34 lines
823 B
Haskell
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE StandaloneDeriving #-}
|
|
{-# OPTIONS_GHC -Wno-orphans #-}
|
|
|
|
module AgentTests.EqInstances where
|
|
|
|
import Data.Type.Equality
|
|
import Simplex.Messaging.Agent.Protocol (ShortLinkCreds (..))
|
|
import Simplex.Messaging.Agent.Store
|
|
import Simplex.Messaging.Client (ProxiedRelay (..))
|
|
|
|
instance (Eq rq, Eq sq) => Eq (SomeConn' rq sq) where
|
|
SomeConn d c == SomeConn d' c' = case testEquality d d' of
|
|
Just Refl -> c == c'
|
|
_ -> False
|
|
|
|
deriving instance (Eq rq, Eq sq) => Eq (Connection' d rq sq)
|
|
|
|
deriving instance Eq (SConnType d)
|
|
|
|
deriving instance Eq (StoredRcvQueue s)
|
|
|
|
deriving instance Eq (StoredSndQueue q)
|
|
|
|
deriving instance Eq RcvQueueSub
|
|
|
|
deriving instance Eq ClientNtfCreds
|
|
|
|
deriving instance Eq ShortLinkCreds
|
|
|
|
deriving instance Show ProxiedRelay
|
|
|
|
deriving instance Eq ProxiedRelay
|