st :: DigestAlgorithm -> DigestMethod
simpleDigest a = DigestMethod (Identified a) []

-- |§4.5
simpleDigest :: DigestAlgorithm -> DigestMethod
simpleDigest a = DigestMethod (Identified a) []
simpleDigest a = DigestMethod (Identified a) []