search

frasertweedale / hs-jose

Haskell JOSE and JWT library
http://hackage.haskell.org/package/jose
Apache License 2.0
122 stars 46 forks source link

public JWTCrypto #28

Closed haishengwu-okta closed 7 years ago

haishengwu-okta commented 7 years ago

my use case is to access kid from header of an JWTJWS.

getKid :: JWT -> [Maybe String]
getKid (JWT (JWTJWS (JWS _ ss)) _) = map kid' ss
  where kid' = fmap param . (^. jwsHeaderKid) . (^. header)
frasertweedale commented 7 years ago

Please update the pull request to include only the change to JWT.hs. Apart from that, happy to merge it.

haishengwu-okta commented 7 years ago

Force pushed to my branch so it only has change to JWT.hs. Thanks!

frasertweedale commented 7 years ago

Thanks. I will cut release v0.5.0.2 this weekend.