lti13 0.1.2.1 → 0.1.2.2
raw patch · 3 files changed
+21/−3 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ Web.LTI13: [displayName] :: UncheckedLtiTokenClaims -> Maybe Text
+ Web.LTI13: [firstName] :: UncheckedLtiTokenClaims -> Maybe Text
+ Web.LTI13: [lastName] :: UncheckedLtiTokenClaims -> Maybe Text
- Web.LTI13: UncheckedLtiTokenClaims :: Text -> Text -> Text -> Text -> [Role] -> Maybe Text -> Maybe ContextClaim -> UncheckedLtiTokenClaims
+ Web.LTI13: UncheckedLtiTokenClaims :: Text -> Text -> Text -> Text -> [Role] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ContextClaim -> UncheckedLtiTokenClaims
Files
- CHANGELOG.md +4/−0
- lti13.cabal +1/−1
- src/Web/LTI13.hs +16/−2
CHANGELOG.md view
@@ -15,3 +15,7 @@ ## 0.1.2.1 -- 2020-09-16 * Attempt to fix docs building on ghc862++## 0.1.2.2 -- 2020-09-19++* We now parse the name fields
lti13.cabal view
@@ -1,7 +1,7 @@ cabal-version: >=1.10 name: lti13-version: 0.1.2.1+version: 0.1.2.2 synopsis: Core functionality for LTI 1.3. description: A library implementing the core <http://www.imsglobal.org/spec/lti/v1p3/ LTI 1.3> authentication protocol,
src/Web/LTI13.hs view
@@ -129,6 +129,9 @@ , targetLinkUri :: Text , roles :: [Role] , email :: Maybe Text+ , displayName :: Maybe Text+ , firstName :: Maybe Text+ , lastName :: Maybe Text , context :: Maybe ContextClaim } deriving (Show) @@ -165,12 +168,16 @@ <*> v .: claimTargetLinkUri <*> v .: claimRoles <*> v .:? "email"+ <*> v .:? "name"+ <*> v .:? "given_name"+ <*> v .:? "family_name" <*> v .:? claimContext instance ToJSON UncheckedLtiTokenClaims where toJSON (UncheckedLtiTokenClaims { messageType, ltiVersion, deploymentId- , targetLinkUri, roles, email, context}) =+ , targetLinkUri, roles, email, displayName+ , firstName, lastName, context}) = object [ claimMessageType .= messageType , claimVersion .= ltiVersion@@ -178,11 +185,15 @@ , claimTargetLinkUri .= targetLinkUri , claimRoles .= roles , "email" .= email+ , "name" .= displayName+ , "given_name" .= firstName+ , "family_name" .= lastName , claimContext .= context ] toEncoding (UncheckedLtiTokenClaims { messageType, ltiVersion, deploymentId- , targetLinkUri, roles, email, context}) =+ , targetLinkUri, roles, email, displayName+ , firstName, lastName, context}) = pairs ( claimMessageType .= messageType <> claimVersion .= ltiVersion@@ -190,6 +201,9 @@ <> claimTargetLinkUri .= targetLinkUri <> claimRoles .= roles <> "email" .= email+ <> "name" .= displayName+ <> "given_name" .= firstName+ <> "family_name" .= lastName <> claimContext .= context )