check request failure when mirroring

luarocks · Aug 14, 2023 · f4a6176 · f4a6176
1 parent a45b250
commit f4a6176
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/helpers/mirror.moon b/helpers/mirror.moon
@@ -65,14 +65,20 @@ update_manifest_on_disk = (server, dest, force=false) ->
 
           tmp_fname = "#{fname}.tmp"
 
-          http.request {
+          res, status = http.request {
             :url
             sink: ltn12.sink.file io.open tmp_fname, "w"
             headers: {
               "user-agent": "moonrocks_backup"
             }
           }
 
+          if (not res) or (type(status) == "number" and status >= 400)
+            seen_files[fname] = nil
+            os.execute "rm '#{tmp_fname}'"
+            print "failed"
+            continue
+
           os.execute "mv '#{tmp_fname}' #{fname}"
           print "done"