From d0bf5a33953809e9dc12dfd5e69f69d38288eca3 Mon Sep 17 00:00:00 2001
From: Jonathan Lorimer <jonathan_lorimer@mac.com>
Date: Wed, 17 Jul 2024 12:44:12 -0400
Subject: [PATCH] feat: add Eq instance to OIDC

---
 src/Web/OIDC/Client/Discovery/Provider.hs | 2 +-
 src/Web/OIDC/Client/Settings.hs           | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Web/OIDC/Client/Discovery/Provider.hs b/src/Web/OIDC/Client/Discovery/Provider.hs
index e0c3d94..513263a 100644
--- a/src/Web/OIDC/Client/Discovery/Provider.hs
+++ b/src/Web/OIDC/Client/Discovery/Provider.hs
@@ -24,7 +24,7 @@ import           Jose.Jwk              (Jwk)
 import           Web.OIDC.Client.Types (IssuerLocation, ScopeValue)
 
 -- | An OpenID Provider information
-data Provider = Provider { configuration :: Configuration, jwkSet :: [Jwk] } deriving (Show)
+data Provider = Provider { configuration :: Configuration, jwkSet :: [Jwk] } deriving (Eq, Show)
 
 data JwsAlgJson = JwsAlgJson { getJwsAlg :: JwsAlg } | Unsupported Text deriving (Show, Eq)
 
diff --git a/src/Web/OIDC/Client/Settings.hs b/src/Web/OIDC/Client/Settings.hs
index 958a2c5..9df0abe 100644
--- a/src/Web/OIDC/Client/Settings.hs
+++ b/src/Web/OIDC/Client/Settings.hs
@@ -26,7 +26,7 @@ data OIDC = OIDC
     , oidcClientSecret           :: ByteString
     , oidcRedirectUri            :: ByteString
     , oidcProvider               :: Provider
-    } deriving Show
+    } deriving (Eq, Show)
 
 def :: OIDC
 def = OIDC