к
Size: a a a
MK
MK
MK
YS
YS
AV
-- | Get raw data of the jwt payload as json object.
unsafeDecodeData :: B.ByteString -> Either Error Value
unsafeDecodeData bs =
case B.split '.' bs of
[_header,body,_signature] -> do
first ErrorDecode $ eitherDecodeStrict $ Base64.decodeLenient body
_ -> Left $ ErrorInvalidFormatDB
AV
DB
DB
AV
AV
AV
YS
-- | Get raw data of the jwt payload as json object.
unsafeDecodeData :: B.ByteString -> Either Error Value
unsafeDecodeData bs =
case B.split '.' bs of
[_header,body,_signature] -> do
first ErrorDecode $ eitherDecodeStrict $ Base64.decodeLenient body
_ -> Left $ ErrorInvalidFormatAV