fixing servant-auth (aeson 2.0 bump)

haskell-servant · Nov 14, 2021 · 3e2f28c · 3e2f28c
1 parent 5b14b5a
commit 3e2f28c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/servant-auth/servant-auth/servant-auth.cabal b/servant-auth/servant-auth/servant-auth.cabal
@@ -34,12 +34,12 @@ library
   ghc-options: -Wall
   build-depends:
       base                    >= 4.10     && < 4.16
+    , containers              >= 0.6      && < 0.7
     , aeson                   >= 2.0.0.0  && < 3
     , jose                    >= 0.9      && < 0.10
     , lens                    >= 4.16.1   && < 5.1
     , servant                 >= 0.15     && < 0.19
     , text                    >= 1.2.3.0  && < 1.3
-    , unordered-containers    >= 0.2.9.0  && < 0.3
   exposed-modules:
       Servant.Auth
       Servant.Auth.JWT

diff --git a/servant-auth/servant-auth/src/Servant/Auth/JWT.hs b/servant-auth/servant-auth/src/Servant/Auth/JWT.hs
@@ -4,7 +4,7 @@ import           Control.Lens         ((^.))
 import qualified Crypto.JWT           as Jose
 import           Data.Aeson           (FromJSON, Result (..), ToJSON, fromJSON,
                                        toJSON)
-import qualified Data.HashMap.Strict  as HM
+import qualified Data.Map             as Map
 import qualified Data.Text            as T
 
 
@@ -17,7 +17,7 @@ import qualified Data.Text            as T
 class FromJWT a where
   decodeJWT :: Jose.ClaimsSet -> Either T.Text a
   default decodeJWT :: FromJSON a => Jose.ClaimsSet -> Either T.Text a
-  decodeJWT m = case HM.lookup "dat" (m ^. Jose.unregisteredClaims) of
+  decodeJWT m = case Map.lookup "dat" (m ^. Jose.unregisteredClaims) of
     Nothing -> Left "Missing 'dat' claim"
     Just v  -> case fromJSON v of
       Error e -> Left $ T.pack e