From 24897e0ad0b3d986c74a467716f6962d53559ed0 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Tue, 30 Dec 2014 17:15:22 -0600 Subject: [PATCH] fixed more absolute path bugs --- private/coveralls.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/coveralls.rkt b/private/coveralls.rkt index 2b3be42..c7e0902 100644 --- a/private/coveralls.rkt +++ b/private/coveralls.rkt @@ -11,8 +11,8 @@ (define-runtime-path post "curl.sh") (define (generate-coveralls-coverage coverage [dir "coverage"]) (make-directory* dir) - (define coverage-path (path->string (build-path (current-directory) dir))) - (define coverage-file (string-append coverage-path "/coverage.json")) + (define coverage-path dir) + (define coverage-file (build-path coverage-path "coverage.json")) (define json (generate-coveralls-json coverage (hasheq))) (define meta-data (determine-build-type)) (with-output-to-file coverage-file