cleanup :: String -> IO (ExitCode, String, String)
cleanup drive = readProcessWithExitCode "cmd" ["/c net use /delete /y " ++ drive] []
cleanup :: String -> IO (ExitCode, String, String)
cleanup drive = readProcessWithExitCode "cmd" ["/c net use /delete /y " ++ drive] []
cleanup drive = readProcessWithExitCode "cmd" ["/c net use /delete /y " ++ drive] []