diff --git a/src/Network/Wai/SAML2/Request.hs b/src/Network/Wai/SAML2/Request.hs index 3a3d75a..e527ef1 100644 --- a/src/Network/Wai/SAML2/Request.hs +++ b/src/Network/Wai/SAML2/Request.hs @@ -66,7 +66,7 @@ data AuthnRequest -- | The URI reference to which this request is to be sent. Required -- for signed requests -- - -- @since 0.4.1 + -- @since 0.5 , authnRequestDestination :: !(Maybe T.Text) -- | Allow IdP to generate a new identifier , authnRequestAllowCreate :: !Bool diff --git a/src/Network/Wai/SAML2/Response.hs b/src/Network/Wai/SAML2/Response.hs index 6211f98..68acca2 100644 --- a/src/Network/Wai/SAML2/Response.hs +++ b/src/Network/Wai/SAML2/Response.hs @@ -135,6 +135,8 @@ extractSignedInfo cursor = do pure signedInfo -- | Obtain a list of InclusiveNamespaces entries used for exclusive XML canonicalisation. +-- +-- @since 0.5 extractPrefixList :: Cursor -> [T.Text] extractPrefixList cursor = concatMap T.words $ concatMap (attribute "PrefixList") diff --git a/src/Network/Wai/SAML2/XML.hs b/src/Network/Wai/SAML2/XML.hs index a45510b..be1b51f 100644 --- a/src/Network/Wai/SAML2/XML.hs +++ b/src/Network/Wai/SAML2/XML.hs @@ -70,6 +70,8 @@ mdName name = -- | 'ecName' @name@ constructs a 'Name' for @name@ in the -- http://www.w3.org/2001/10/xml-exc-c14n# namespace. +-- +-- @since 0.5 ecName :: T.Text -> Name ecName name = Name name (Just "http://www.w3.org/2001/10/xml-exc-c14n#") (Just "ec") @@ -111,5 +113,7 @@ oneOrFail _ (x:_) = pure x -- | It is important to retain namespaces in order to calculate the hash of the canonicalised XML correctly. -- see: https://stackoverflow.com/questions/69252831/saml-2-0-digest-value-calculation-in-saml-assertion +-- +-- @since 0.5 parseSettings :: ParseSettings parseSettings = def { psRetainNamespaces = True }