lti13 0.1.2.0 → 0.1.2.1

raw patch · 3 files changed

+7/−2 lines, 3 files

Files

CHANGELOG.md +4/−0
lti13.cabal +1/−1
src/Web/LTI13.hs +2/−1

CHANGELOG.md view

@@ -11,3 +11,7 @@ ## 0.1.2.0 -- 2020-09-16  * No changes++## 0.1.2.1 -- 2020-09-16++* Attempt to fix docs building on ghc862

lti13.cabal view

@@ -1,7 +1,7 @@ cabal-version:       >=1.10  name:                lti13-version:             0.1.2.0+version:             0.1.2.1 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

@@ -28,6 +28,7 @@ import Jose.Jwa (JwsAlg(RS256)) import qualified Jose.Jwk as Jwk import Control.Monad (when, (>=>))+import qualified Control.Monad.Fail as Fail import Control.Exception.Safe (MonadCatch, catch, throwM, Typeable, Exception, MonadThrow, throw) import Control.Monad.IO.Class (liftIO, MonadIO) import Data.Aeson (eitherDecode, FromJSON (parseJSON), ToJSON(toJSON, toEncoding), Object,@@ -136,7 +137,7 @@ newtype LtiTokenClaims = LtiTokenClaims UncheckedLtiTokenClaims     deriving (Show) -limitLength :: (MonadFail m) => Int -> Text -> m Text+limitLength :: (Fail.MonadFail m) => Int -> Text -> m Text limitLength len string     | (T.length string) <= len     = return string