pcTcfIdBase :: IOSArrow XmlTree Config
pcTcfIdBase =
  hasName "tcf" >>> getChildren >>>
  hasName "idBase" >>>   getAttrValue "base" >>>
  arr (TcfIdBase . fromMaybe defaultTcfIdBase . fmap fst . C.readInt . C.pack)
pcTcfIdBase :: IOSArrow XmlTree Config
pcTcfIdBase =
  hasName "tcf" >>> getChildren >>>
  hasName "idBase" >>>   getAttrValue "base" >>>
  arr (TcfIdBase . fromMaybe defaultTcfIdBase . fmap fst . C.readInt . C.pack)
pcTcfIdBase =
  hasName "tcf" >>> getChildren >>>
  hasName "idBase" >>>   getAttrValue "base" >>>
  arr (TcfIdBase . fromMaybe defaultTcfIdBase . fmap fst . C.readInt . C.pack)