parseSelect :: (ArrowXml a) => a XmlTree TSelect
parseSelect =
    (getAttrValue0 "file") &&& (getAttrValue0 "xpath") &&& (getAttrValue0 "var")
    >>^
    (\(x,(y,z)) -> Select {sfile=x, sxpath=y, svar=z})
parseSelect :: (ArrowXml a) => a XmlTree TSelect
parseSelect =
    (getAttrValue0 "file") &&& (getAttrValue0 "xpath") &&& (getAttrValue0 "var")
    >>^
    (\(x,(y,z)) -> Select {sfile=x, sxpath=y, svar=z})
parseSelect =
    (getAttrValue0 "file") &&& (getAttrValue0 "xpath") &&& (getAttrValue0 "var")
    >>^
    (\(x,(y,z)) -> Select {sfile=x, sxpath=y, svar=z})