Attrs

Attrs is imported by: CertAttrs, CertServers, ParseAttrs.

module Attrs where
import List(isPrefixOf)

Types for attributes. Both certificate servers and certificates have attributes.

type Name = String -- Tag
type Value = String
type Attr = (Name,Value)
type Attrs = [Attr]

printAttrs :: Attrs->String
printAttrs = unlines . map printAttr

printAttr :: Attr->String
printAttr (name,value) = name++": "++value

Certificate attributes called file or file/xxx are assumed to refer to files that are required to validate a certificate.

namesFile :: Name -> Bool
namesFile name = takeWhile (/='/') name=="file"

(HTML for this module was generated on 2006-08-12. About the conversion tool.)