parseCopy :: (ArrowXml a) => a XmlTree TCopy
parseCopy =
    (getAttrValue0 "src") &&& (getAttrValue0 "dst")
    >>^
    (\(x,y) -> Copy {src=x, dst=y})
parseCopy :: (ArrowXml a) => a XmlTree TCopy
parseCopy =
    (getAttrValue0 "src") &&& (getAttrValue0 "dst")
    >>^
    (\(x,y) -> Copy {src=x, dst=y})
parseCopy =
    (getAttrValue0 "src") &&& (getAttrValue0 "dst")
    >>^
    (\(x,y) -> Copy {src=x, dst=y})