fail on curl failure (Issue #7)

florence · Jan 12, 2015 · edc306d · edc306d
1 parent 3c98384
commit edc306d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/private/coveralls.rkt b/private/coveralls.rkt
@@ -42,9 +42,12 @@
                   (if (verbose)
                       (current-output-port)
                       (open-output-nowhere))])
-    (void (system* (path->string post)
-                   coverage-file
-                   (if (verbose) "-v" "")))))
+    (define result
+      (system* (path->string post)
+               coverage-file
+               (if (verbose) "-v" "")))
+    (unless result
+      (error 'coveralls "request to coveralls failed"))))
 
 ;; Maps service name to the environment variable that indicates that the service is to be used.
 (define BUILD-TYPES (hash "travis-ci" "TRAVIS_JOB_ID"))

diff --git a/private/curl.sh b/private/curl.sh
@@ -3,4 +3,4 @@
 file=$1
 verbose=$2
 
-curl $verbose --include --form json_file=@"$file" "https://coveralls.io/api/v1/jobs"
+curl $verbose --include --fail --form json_file=@"$file" "https://coveralls.io/api/v1/jobs"