parseSave :: (ArrowXml a) => a XmlTree TSave
parseSave =
    (getAttrValue0 "src") &&& (getAttrValue0 "file")
    >>^
    (\(x,y) -> Save {svvar=x, svfile=y})
parseSave :: (ArrowXml a) => a XmlTree TSave
parseSave =
    (getAttrValue0 "src") &&& (getAttrValue0 "file")
    >>^
    (\(x,y) -> Save {svvar=x, svfile=y})
parseSave =
    (getAttrValue0 "src") &&& (getAttrValue0 "file")
    >>^
    (\(x,y) -> Save {svvar=x, svfile=y})