pcMonth :: IOSArrow XmlTree Config
pcMonth =
  hasName "tokenizer" >>> getChildren >>>
  hasName "month" >>> getChildren >>>
  isText >>> getText >>>
  arr (Month)
pcMonth :: IOSArrow XmlTree Config
pcMonth =
  hasName "tokenizer" >>> getChildren >>>
  hasName "month" >>> getChildren >>>
  isText >>> getText >>>
  arr (Month)
pcMonth =
  hasName "tokenizer" >>> getChildren >>>
  hasName "month" >>> getChildren >>>
  isText >>> getText >>>
  arr (Month)