Skip to content

Commit efffc70

Browse files
committed
fixing servant-auth (aeson 2.0 bump)
1 parent 8af80d3 commit efffc70

File tree

2 files changed

+2
-3
lines changed

2 files changed

+2
-3
lines changed

servant-auth/servant-auth/servant-auth.cabal

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,6 @@ library
4040
, lens >= 4.16.1 && < 5.1
4141
, servant >= 0.15 && < 0.19
4242
, text >= 1.2.3.0 && < 1.3
43-
, unordered-containers >= 0.2.9.0 && < 0.3
4443
exposed-modules:
4544
Servant.Auth
4645
Servant.Auth.JWT

servant-auth/servant-auth/src/Servant/Auth/JWT.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ import Control.Lens ((^.))
44
import qualified Crypto.JWT as Jose
55
import Data.Aeson (FromJSON, Result (..), ToJSON, fromJSON,
66
toJSON)
7-
import qualified Data.HashMap.Strict as HM
7+
import qualified Data.Map as Map
88
import qualified Data.Text as T
99

1010

@@ -17,7 +17,7 @@ import qualified Data.Text as T
1717
class FromJWT a where
1818
decodeJWT :: Jose.ClaimsSet -> Either T.Text a
1919
default decodeJWT :: FromJSON a => Jose.ClaimsSet -> Either T.Text a
20-
decodeJWT m = case HM.lookup "dat" (m ^. Jose.unregisteredClaims) of
20+
decodeJWT m = case Map.lookup "dat" (m ^. Jose.unregisteredClaims) of
2121
Nothing -> Left "Missing 'dat' claim"
2222
Just v -> case fromJSON v of
2323
Error e -> Left $ T.pack e

0 commit comments

Comments
 (0)