hsaml2-0.2.0: SAML2/Core/Namespaces.hs

{-# LANGUAGE FlexibleContexts #-}
-- |
-- Schema Organization and Namespaces
--
-- <https://docs.oasis-open.org/security/saml/v2.0/saml-core-2.0-os.pdf saml-core-2.0-os> §1.2
module SAML2.Core.Namespaces 
  ( samlURN
  , samlURNIdentifier
  ) where

import Network.URI (URI(..))

import SAML2.Core.Versioning

samlURN :: SAMLVersion -> [String] -> URI
samlURN v l = URI
  { uriScheme = "urn:"
  , uriAuthority = Nothing
  , uriPath = "oasis:names:tc:SAML" <> concatMap (':':) (show v : l)
  , uriQuery = ""
  , uriFragment = ""
  }

samlURNIdentifier :: String -> (SAMLVersion, String) -> URI
samlURNIdentifier t (v, n) = samlURN v [t, n]