Merge pull request #67 from JonathanLorimer/add-eq-instance-to-oidc

feat: add Eq instance to OIDC
krdlab · Jul 29, 2024 · 233d5ee · 233d5ee
2 parents 5f88f84 + d0bf5a3
commit 233d5ee
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