pcTcfRootNamespace :: (ArrowXml a) => a XmlTree Config
pcTcfRootNamespace =
  hasName "tcf" >>> getChildren >>>
  hasName "tcfRootNamespace" >>>
  getAttrValue "namespace" >>>
  arr (TcfRootNamespace . defaultOnNull defaultTcfRootNamespace)
pcTcfRootNamespace :: (ArrowXml a) => a XmlTree Config
pcTcfRootNamespace =
  hasName "tcf" >>> getChildren >>>
  hasName "tcfRootNamespace" >>>
  getAttrValue "namespace" >>>
  arr (TcfRootNamespace . defaultOnNull defaultTcfRootNamespace)
pcTcfRootNamespace =
  hasName "tcf" >>> getChildren >>>
  hasName "tcfRootNamespace" >>>
  getAttrValue "namespace" >>>
  arr (TcfRootNamespace . defaultOnNull defaultTcfRootNamespace)