X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=darcs-all;fp=darcs-all;h=a80e6f86ac7d018a2da98f0914828eb3d0c57667;hp=69445d04d38f80d33753f14915f4ae109b400343;hb=b8bea68cd642bf4455892e4fbac8ad398b694ec9;hpb=5dd95594637dbb6b03bc675c032a1bf430c4b0bf

diff --git a/darcs-all b/darcs-all
index 69445d0..a80e6f8 100644
--- a/darcs-all
+++ b/darcs-all
@@ -118,6 +118,12 @@ sub download {
     my @cmd = ("wget", $from, "-O", $to);
     message "== running @cmd";
     system @cmd;
+    if ($? == -1) {
+        die "Failed to execute wget: $!\n";
+    }
+    elsif ($? != 0) {
+        die "wget failed: $?\n";
+    }
 }
 
 sub darcs {