instance Eq AnyVenue

runeksvendsen · Jan 8, 2024 · ec5f232 · ec5f232
1 parent fbcc273
commit ec5f232
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/CryptoVenues/Fetch/MarketBook.hs b/src/CryptoVenues/Fetch/MarketBook.hs
@@ -139,6 +139,10 @@ data AnyVenue
      MarketBook venue
    => AnyVenue (Proxy venue)
 
+instance Eq AnyVenue where
+   AnyVenue p1 == AnyVenue p2 =
+      symbolVal p1 == symbolVal p2
+
 instance Show AnyVenue where
    show (AnyVenue p) = symbolVal p