let path_of_destination ~src ~dst = match dst with | `Into p -> Filename.(concat p (basename src)) | `Onto p -> p