let extract_location location = match location with | `Scp l -> l | `Wget l -> l | `Fail _ -> "NoFile-0.0b.Linux.tar.gz"