feat: add Eq instance to OIDC

krdlab · Jul 17, 2024 · d0bf5a3 · d0bf5a3
1 parent 93a64b9
commit d0bf5a3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -26,7 +26,7 @@ data OIDC = OIDC
     , oidcClientSecret           :: ByteString
     , oidcRedirectUri            :: ByteString
     , oidcProvider               :: Provider
-    } deriving Show
+    } deriving (Eq, Show)
 
 def :: OIDC
 def = OIDC